<%@ LANGUAGE="VBSCRIPT" %> <% 'Server.ScriptTimeout = 300 %> <% ' This Script displays the plugin upload page ' 'Randomize Timer response.ContentType="text/html" ' Response.charset = "UTF-8" set conntemp=server.createobject("adodb.connection") conntemp.open "DSN=CDizzMain" ' Get the variables from the query string ' < pluginID, cdizzID, clientSerial, session, IP, theTime cdizzID=request.querystring("CDizzID") theSession=CLng(VOD(request.querystring("session"),0)) clientSerial=request.querystring("CID") clientVersion=VOD(request.querystring("Cver"),0) pluginType=request.querystring("pluginType") trackBack=request.querystring("TB") lang=UCase(VOD(request.querystring("lang"), "")) albumID=request.querystring("albumID") If clientSerial="" or clientVersion="" Then ' prt clientSerial & " " & clientVersion & " " & theSession showErrorPage "Insufficient Input" End If ' Check if the session matches ' < sessionID ' | theSession ' > clientSerial, theSession, now ' mySQL="SELECT sessionID FROM Sessions WHERE clientSerial='" & clientSerial & "' and session=" & theSession 'Set rstemp=conntemp.execute(mySQL) 'If rstemp.eof Then ' ' Invalid Session ' rstemp.close ' showErrorPage "Session Expired" 'Else ' ' Update the current record ' sessionID=rstemp("sessionID") ' rstemp.close ' mySQL="UPDATE sessions SET modified='" & theTime & "' WHERE sessionID=" & sessionID ' Set rstemp=conntemp.execute(mySQL) 'End If ' Check the Player Client Version ' Check if User Exists (clientSerial) ' < theTimer, userID ' > clientSerial ' Check if clientSerial is valid and if user is registered mySQL="SELECT * FROM users WHERE clientSerial='" & clientSerial & "'" Set rstemp=conntemp.execute(mySQL) If rstemp.eof Then showErrorPage "Unknown User" End If userID=rstemp("userID") username=rstemp("username") birthYear=VOD(rstemp("birthYear"),0) birthMonth=VOD(rstemp("birthMonth"),0) birthDay=VOD(rstemp("birthDay"),0) firstName=rstemp("firstName") lastName=rstemp("lastName") email=rstemp("email") registered=rstemp("registered") countryID=CLng(VOD(rstemp("countryID"),0)) languageID=CLng(VOD(rstemp("languageID"),0)) pluginAuthorID=CLng(VOD(rstemp("pluginAuthorID"),0)) rstemp.close If registered=false Then responsePageHeader "CDizz Registration" Else responsePageHeader "Update CDizz Registration" End If prt "

CDizz strongly objects to any violations of copyright laws. Please do not submit any copyrighted material. If you encounter any copyrighted material in an unofficial CDizz plugin, please report it using the feedback button in your CDizz player.

" responsePageHeader2 %>

> > > > >

CDizz Registration

<% If registered Then %><% Else displayTextField "Desired Username (Required)", "username", 20, 20, "", "You need to select a unique username." End If %> <% If registered=false Then %> <% End If displayTextField "First Name", "firstname", 20, 20, firstname, "" displayTextField "Last Name", "lastname", 20, 30, lastname, "" displayTextField "Email Address", "email", 50, 50, email, "This email address will be used to retrieve your password in case you forget it.
It will also be used to contact authors.
We will not publish your email without your consent, and we will not send you any spam." %>

Username:	<%=userName%>
Password (Required):		Change Password
Confirm Password (Required):
Birth Date:
Country:	<% displayCountries %>

<% If registered and pluginAuthorID>0 Then prt "

This user is already registered as a CDizz Author.

" Else %>

I Wish to submit my own content and become a CDizz Author. (This requires that you enter a valid email address)

<% End If %>

I am over 13 years old.

<% Set rstemp=nothing conntemp.close set conntemp=nothing responsePageFooter response.end Function showErrorPage (errorCode) Select Case errorCode Case "Insufficient Input" responsePageHeader "Insufficient Input" prt "

Error: " & errorCode & "

" prt "

Please invoke this page from the CDizz Player.

" responsePageHeader2 prt "

Can your CDizz Player connect to the internet?

" prt "

Please configure your firewall to let CDizz Player connect to the internet.
If you keep getting this page, try inserting a CD before attempting to login.

" Case "Unknown User" responsePageHeader "Unknown User" responsePageHeader2 %>

Registration must be performed from the CDizz Player software. Please run the software and select "Registration".

<% Case "needToRegister", "needToAuthor" responsePageHeader "CDizz Candizz Upload Page" %>

Users must be registered as Authors to submit CDizz Candizz.

Click here to Register.

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

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

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

Why did I get this Error?

CDizz uses a session system for security reasons. You can not bookmark this page and return here later, instead 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 Else responsePageHeader errorCode prt "

Error: " & errorCode & "

" responsePageHeader2 End Select %>

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 constantly try to add more value to our registered users.

<% responsePageFooter response.end End Function Sub displayTextField (uText, uName, uSize, uMax, uValue, uDesc) %> <%=uText%>: <% If uMax>0 Then prt " maxsize=" & uMax End If If registered Then prt " value=" & quote & dequote(uValue) & quote End If %> >

<%=uDesc%>

<% End Sub Sub displayMonth (num, mText) prt "" End Sub Sub op (oValue, oText) prt "" End Sub Sub displayCountries %>