<% OPTION EXPLICIT 'Server.ScriptTimeout = 300 %> <% ' This Script displays the plugin upload page ' 'Randomize Timer response.ContentType="text/html" DIM itemType, itemID, itemLanguage, pageLanguage, albumID DIM conntemp,rstemp,mySQL DIM albumLongTitle,cdtitle,artistID,genreID,labelID,cdartist,cdartistE,cdgenre,cdlabel,releaseDate,EnglishTitle,languageID,cdLanguage DIM tracks, albumVoteScore, albumNumVotes, albumHits DIM cp DIM pluginTypeName ' Get the variables from the query string ' < pluginID, cdizzID, clientSerial, session, IP, theTime itemType=request.querystring("itemType") itemID=CLng(VOD(request.querystring("itemID"), 0)) itemLanguage="ENG" pageLanguage=itemLanguage ' Response.charset = getCharset(itemLanguage) ' "UTF-8" set conntemp=server.createobject("adodb.connection") conntemp.open "DSN=CDizzMain" albumLongTitle="" select case itemType case "album" albumID=itemID If albumID<=0 Then showErrorPage "Album not Specified" else mySQL="SELECT * FROM RecordLabels RIGHT JOIN (languages RIGHT JOIN (Genre RIGHT JOIN (Artists RIGHT JOIN Albums ON Artists.artistID = Albums.ArtistID) ON Genre.GenreID = Albums.GenreID) ON languages.languageID = Albums.languageID) ON RecordLabels.labelID = Albums.labelID WHERE albumID=" & albumID Set rstemp=conntemp.execute(mySQL) If rstemp.eof Then ' Invalid albumID rstemp.close showErrorPage "Album does not exist" End If albumLongTitle= rstemp("LongTitle") cdtitle=rstemp("Title") artistID=rstemp("artistID") genreID=rstemp("genreID") labelID=rstemp("labelID") cdartist=rstemp("artistName") cdartistE=rstemp("artistNameEnglish") cdgenre=rstemp("Genre") cdlabel=rstemp("labelName") releaseDate=rstemp("releaseDate") EnglishTitle=rstemp("EnglishTitle") languageID=rstemp("languageID") cdLanguage=rstemp("languageShort") tracks=rstemp("Tracks") albumVoteScore=rstemp("albumVoteScore") albumNumVotes=rstemp("albumNumVotes") albumHits=rstemp("albumHits") rstemp.close Response.charset = getCharset(cdLanguage) end if ' Album ID <= 0 responsePageHeader "Album Details" prt "

" & albumLongTitle & "

" responsePageHeader2 %>

<%=cdtitle%>

<% displayRow "Artist", cdartist displayRow "Artist (English)", cdartistE displayRow "Tracks", tracks displayRow "Genre", cdgenre displayRow "Label", cdlabel displayRow "Released", releaseDate displayRow "English Title", EnglishTitle displayRow "Language", cdLanguage %>

You may add/update information via the CDizz Player.

<% mySQL="SELECT * FROM cdtracks WHERE albumID=" & albumID & " ORDER BY TrackNumber" Set rstemp=conntemp.execute(mySQL) If rstemp.eof Then ' Invalid albumID rstemp.close else %>

Tracks

<% while not rstemp.eof prt "" prt "" prt "" prt "" prt "" prt "" prt "" prt "" rstemp.moveNext wend rstemp.close %>

" & rstemp("TrackNumber") & ".

" & rstemp("TrackName") if rstemp("TrackNameEnglish")<>"" and not isNull(rstemp("TrackNameEnglish")) then prt "
(" & rstemp("TrackNameEnglish") & ")" end if prt "

" & rstemp("trackLength") & "

" & VOD(rstemp("trackVoteScore"),"") & "

" & VOD(rstemp("trackNumVotes"),"") & "

<% End If %>

CDizz Statistics

<% displayRow "User Score", albumVoteScore displayRow "Votes", albumNumVotes displayRow "Hits", albumHits %>

Actions
	Back to CDizz home

Associated Candizz

<% mySQL="SELECT * FROM plugins RIGHT JOIN pluginTypes on plugins.pluginTypeID=pluginTypes.pluginTypeID WHERE albumID=" & albumID & " AND enabled=TRUE AND pluginTypeName<>'CDDetails' AND pluginTypeName<>'Ad' ORDER BY pluginID" Set rstemp=conntemp.execute(mySQL) If rstemp.eof Then ' Invalid albumID prt "

No Candizz found.

Be the first to add multimedia to this CD via the CDizz Player.

" rstemp.close else prt "" prt "" while not rstemp.eof prt "" pluginTypeName=rstemp("pluginTypeName") prt "" prt "" 'prt "" prt "" prt "" prt "" prt "" rstemp.moveNext wend rstemp.close prt "

	Candi	Hits	Score	Votes
	" & rstemp("pluginShortName") & "	" & rstemp("pluginShortName") ' if rstemp("TrackNameEnglish")<>"" and not isNull(rstemp("TrackNameEnglish")) then ' prt " (" & rstemp("TrackNameEnglish") & ")" 'end if 'prt "	" & rstemp("pluginHits") & "	" & VOD0(rstemp("pluginVoteScore"),"") & "	" & VOD0(rstemp("pluginNumVotes"),"") & "

" prt "

Add more Candizz via the CDizz Player.

" end if %>

<% case else responsePageHeader2 End select ' cp=displayPluginDescription (pluginType) responsePageFooter Set rstemp=nothing conntemp.close set conntemp=nothing response.end ' Get plugin Name, check that the plugin matches the CD 'mySQL="SELECT * FROM pluginQueryFull WHERE pluginID=" & pluginID & " and cdizzID='" & cdizzID & "' and Enabled=true" 'Set rsPlugins=conntemp.execute(mySQL) 'If rsPlugins.eof Then ' showError "Plugin Not Available: " & pluginID 'End If 'pluginList = composePluginLine (rsPlugins) 'display "PLUGIN", pluginList 'rsPlugins.close Function showErrorPage (errorCode) Select Case errorCode Case "needToRegister", "needToAuthor" responsePageHeader "CDizz Candizz Upload Page" if errorCode="needToRegister" then prt "

Users must be registered as Authors to submit CDizz Candizz.

" else prt "

Users must be registered as Authors to submit CDizz Candizz.

" end if %>

Click here to Register as a CDizz Author or edit your registration details..

Registration is free, simple, and fast: username, password and email.

If you are already a registered author, you may need to login in order to associate your account with your current CDizz Player software.

<% responsePageHeader2 %>

Why register?

Your personal information will remain confidential. We will not send you unsolicited emails. Really.
We need to contact you If one of your creations wins a prize of some sort. Your registration associates your creations with you.
Registration reduces unwanted upload submissions, so the overall content is of higher quality.
You will be able to download candizz by selecting them from the web site.
Get a cool webpage displaying your CD collection so you can show it to your friends.
We always try and add more advanteges for our registered users.

<% Case "Session Expired" responsePageHeader "Upload Session Expired" responsePageHeader2 %>

Why did I get this Error?

CDizz uses a session system for security reasons. You must run the CDizz Player and select the proper item from the "Submit" menu.

If you still get this message, please make sure that:

Your CDizz Player can connect to the internet (Check your firewall)
You allowed enough time for the CDizz Player to connect. (In other words, wait about 30 seconds before uploading)

You need to go back to the CDizz player and try again.

<% case "Insufficient Input" responsePageHeader "Insufficient Input" responsePageHeader2 %>

Insufficient Input

Please invoke this page from the CDizz Player after the CDizz player connected to CDizz Online.

Try the following:

Open the CDizz Player
Make sure that an audio CD is inserted, and the correct CD drive letter is selected.
Make sure your firewall is not blocking traffic from the CDizz Player to the internet
Select the proper item from the "Submit" menu

<% Case Else responsePageHeader errorCode prt "

Error: " & errorCode & "

" responsePageHeader2 End Select responsePageFooter response.end End Function Function displayPluginDescription (pType) DIM cp cp=0 ' Credit points for a successful plugin submission. Select Case LCase(pType) Case "cddetails" cp=20 %>

Accurate CD details are useful for all users.

<% Case "bg" cp=50 %>

A good Background image sets the mood for the whole graphical interface.

<% Case "intro" cp=20 if albumID=0 then cp=-1 %>

Smart-Intro allows you to create your own CD highlights and share them with other users. Instead of just listening to the first 10 seconds of each song, you can pick the most memorable part of each track and quickly listen to a CD summary.

<% Case "titles" cp=10 if albumID=0 then cp=-1 %>

Although CDizz uses an external database to detect CD details and track titles, some audio CDs are still unfamiliar to online databases.

With your help, these CDs can be recognized.

<% Case "colorscheme" %>

Select the best colors to use when watching text based candizz for the selected CD.

<% Case "pointer" cp=300 %>

The Playhead Pointer indicated the track's advancement in time. It allows you to skip back and forth within a certain track, and functions as a visual indication of the track's progress.

<% Case "lyrics" cp=30 if albumID=0 then cp=-1 %>

You may upload lyrics for any track as long as you do not violate the artist's copyright priviliges. This is mainly for artists or their representatives.

You may also upload translations to song lyrics (under the same terms).

<% Case "credits" cp=20 if albumID=0 then cp=-1 %>

This should be an exact copy of the CD copyright notices as they appear on the CD cover.

<% Case "info" cp=40 if albumID=0 then cp=-1 %>

This is the place for you to submit useful information for other CDizz users about the CD or the artist.

<% Case "pops" cp=100 if albumID=0 then cp=-1 %>

Pops appear and disappear while playing a track, in specific times. They provide information about the track in a fun way.

<% Case "popsbg" cp=180 %>

Create custom animated graphics for displaying pops. This skin can be associated with either a particular CD or any CD.

<% Case "cover" cp=50 if albumID=0 then cp=-1 %>

CD Cover images, including the front and back covers of the CD.

Cover images should not be posted without the permission of the copyright owners.

<% Case "image" cp=60 if albumID=0 then cp=-1 %>

Publish your own graphic creations inspired by a song or an entire CD.

<% Case "customimage" %>

Future Candizz.

<% Case "slideshow" cp=200 if albumID=0 then cp=-1 %>

Combine a series of images to a slideshow syncronized with your favorite track.

<% Case "karaoke" cp=50 if albumID=0 then cp=-1 %>

Karaoke or Sing-a-Long displays the lyrics of a song while the song is played in the CDizz Player.

<% Case "chords" cp=150 if albumID=0 then cp=-1 %>

The CDizz player can display a graphic display of guitar chords while a CD track is being played.

This is a great feature for beginner guitar players, and a convenient way to learn how to play guitar chords.

<% Case "chordsbg" cp=180 %>

Create custom animated graphics for displaying chords. This skin can be associated with a particular CD or used by any CD after downloading.

<% Case "visual" cp=120 %>

There are two kinds of basic animations. One is frame based, and the other is a singing character animation.

<% Case "video" cp=300 %>

A short video clip.

<% Case "cdvideo" %>

Reference to a video file located on the audio CD.

<% Case "videostream" %>

<% Case "coupon" %> <% Case "flashclip" cp=350 if albumID=0 then cp=-1 %>

Flash animation that accompanies the CD track.

<% Case "flashgame" cp=400 %>

Flash game. Allows an interactive game within CDizz.

<% Case "customflash" %>

Future Candizz.

<% Case "phone" cp=0 %>

Internal Candizz.

<% Case "shop" cp=0 %>

Internal Candizz.

<% Case "links" cp=0 %>

Web Links related to CD or Track.
Reviews, Fan Clubs, Articles, Blog Posts, Videos etc.

<% Case "ad" cp=0 %>

Internal Candizz.

<% End Select %>

See Requirements

<% displayPluginDescription=cp End Function Sub displayUsername displayTextField "Enter your Username", "username", 20, username, 20 %> Password: <% End Sub Sub displayTextField (uText, uName, uSize, uValue, uMax) if phase=1 or uName="username" then %> <%=uText%>: <% if uMax>0 then %> maxlength=<%=uMax%> <% End If %> value="<%=dequote(uValue)%>"> <% end if End Sub Sub displayLanguage (selectedLanguage) if phase=1 then %> Select Language: <% selectLanguage (selectedLanguage) %> <% end if end Sub Sub displayXY (uText, uNameX, uNameY, uSize, uValue, uMax) if phase=1 then %> <%=uText%>: <% if uMax>0 then %> maxlength=<%=uMax%> <% End If %> value=<%=uValue%>>, <% if uMax>0 then %> maxlength=<%=uMax%> <% End If %> value=<%=uValue%>> <% end if End Sub Sub displayColor (uText, uName, uValue, uAction) if phase=1 then %> <%=uText%>: > (RGB values) <% end if End Sub Sub displaySelect (uText, uName, uSelected) if phase=1 then %> <%=uText%>: <% end if End Sub Sub displayYesNo (uText, uName) if phase=1 then %> <%=uText%>: <% end if End Sub Sub displayUpload (uText, uName) if phase=2 then %> <%=uText%>: <% end if End Sub Sub displayRow (uText, uName) if uName<>"" and not isNull(uName) then %> <%=uText%>: <%=uName%> <% end if End Sub Sub displayFileName (uName) if phase=2 then if uName<>"" then %> Upload: <%=uName%> <% end if end if End Sub Sub displayTextArea (uText, uName,cols,rows) if phase=1 then %> <%=uText%>: <% end if End Sub Sub displaySubmit displayTextArea "Note to moderator (English Only!)", "comment", 30, 3 theSubmitText="Submit" if phase=1 and phases(pluginType)>1 then theSubmitText="Continue" end if %> By clicking the Submit button, you agree to the CDizz submission terms. Value=<%=theSubmitText%>> <% End Sub %>