<% 'Green colorset 'BackgroundColor="#C9DDB3" 'BorderColor="#006600" 'Blue colorset BackgroundColor="#AFD1F8" BorderColor="#000080" 'Purple colorset 'BackgroundColor="#FDC8F2" 'BorderColor="#800080" Content = "" 'Clear the Content string QStr = Request.QueryString("login") 'Save the login querystring to QStr if ucase(left(QStr,6))="CREATE" then Title = "Register" else Title = "Login" end if 'The code below saves the contents the table must have in the variable Content 'The content depends on what's in the QueryString if QStr="passfailed" then Content = Content & "

Wrong password

Back" elseif QStr="createpassfailed" then Content = Content & "

Wrong password

Back

Cancel registration" elseif QStr="namefailed" then Content = Content & "

Invalid username

Click here to create an acount

Back" elseif QStr="createnamefailed" then Content = Content & "

Invalid username

Back

Cancel registration" elseif QStr="creatednew" then Content = Content & "

Your account has been created

Login" elseif QStr="createnew" then Content = Content & "
" Content = Content & "
Username: " Content = Content & "Password: " Content = Content & "
Firstname: " Content = Content & "Surname: " Content = Content & "e-mail: " Content = Content & "Tel1: " Content = Content & "Tel2: " Content = Content & "Mobile: " Content = Content & "Address: " Content = Content & "City: " Content = Content & "ZIP Code: " Content = Content & "Country: " Content = Content & "" Content = Content & "
" else Content = Content & "
" Content = Content & "
Username: " Content = Content & "Password: " Content = Content & "" Content = Content & "
" Content = Content & "Click here to create an acount" end if %> ASP Login
<% Response.Write("") Response.Write(Content) ' Paste the contents in the table %>
" & Title & "
Home page