<% 'Green colorset 'BackgroundColor="#C9DDB3" 'BorderColor="#006600" 'Blue colorset 'BackgroundColor="#AFD1F8" 'BorderColor="#000080" 'Navy colorset BackgroundColor="navy" BorderColor="White" 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 for Registered members" 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

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

Invalid username

Back

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

NEW USER CREATED

" else Content = Content & "
" Content = Content & "
Username: " Content = Content & "Password: " Content = Content & "" Content = Content & "
" Content = Content & "

CLICK HERE TO VIEW GenuineFXs' Currency Charts


" end if %> GenuineFX Valued Client Login
<% Response.Write("") Response.Write(Content) ' Paste the contents in the table %>
" & Title & "