" elseif QStr="createpassfailed" then Content = Content & "" elseif QStr="createpassphrasefailed" then Content = Content & "" elseif QStr="namefailed" then Content = Content & "" elseif QStr="createnamefailed" then Content = Content & "" elseif QStr="creatednew" then Content = Content & "" elseif QStr="createnew" then Content = Content & "" Content = Content & "" Content = Content & "" Content = Content & "" Content = Content & "" Content = Content & "" Content = Content & "" else Content = Content & "" Content = Content & "" Content = Content & "" Content = Content & "" Content = Content & "" Content = Content & "" end if %>

<% '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

Wrong password Back Cancel registration

Wrong passphrase Back Cancel registration

Invalid username Click here to create an acount Back

Invalid username Back Cancel registration

Your account has been created Login

Username:

Password:

Full name:

Pass Phrase:

Username:

Password:

Click here to create an acount

<% Response.Write("") Response.Write(Content) ' Paste the contents in the table %>

" & Title & "