China Tour 2000: Bulletin Board

<% 'Option Explicit On Error Resume Next Dim RS Dim SQL Dim Username Dim Password Dim Result Dim Field Username = Request.Form("Username") Password = Server.URLEncode(Request.Form("Password")) If Username <> "" And Password <> "" Then Set RS = Server.CreateObject("ADODB.RecordSet") SQL = "SELECT * FROM Users WHERE (Username = '" & Username & _ "' AND Password = '" & Password & "')" RS.Open SQL, Application("CHINA_ConnectionString"), 2, 2 If RS.EOF Then Result = Result & "ERROR: Username not found, or password is incorrect." ElseIf Not RS("Authorized") Then Result = Result & "Your account has not been verified yet. Please try again later. " & vbCrLf Else For Each Field In Fields Session(Field) = RS(Field) Next RS.Close Set RS = Nothing If Session("LOGIN_REDIRECT_URL") <> "" Then Response.Redirect Session("LOGIN_REDIRECT_URL") Else Response.Redirect "default.asp" End If End If RS.Close Set RS = Nothing End If %> China Tour 2000: Bulletin Board

Go to China Tour Home

new trier high school chamber orchestra / jazz ensemble

Bulletin Board

Login

The page you requested is password protected.
Certain areas are limited to tour participants and their families. Families of tour participants may create a new account, or login below if you have already created an account. A username and password will be required to gain access. Have you forgotten your password?
<% If Result <> "" Then %>
<%= Result %> <% End If %>

The purpose of the Bulletin Board is for people to ask questions and receive answers for all to see. During the trip we hope it can be used to send and receive messages from students.