<%@ Language=VBScript %> <% 'Response.Write("HI" & Session("qedid")) If Session("QEDID")<>"" Then 'This user is clear! For Each x IN Request.QueryString If strUrl="" Then strURL=strUrl & "?" & x & "=" & Request(x) Else strURL=strUrl & "&" & x & "=" & Request(x) End If Next Response.Redirect("trackit.asp" & strUrl) End If c=GetCompany() %> <% SELECT CASE c Case 0 %> <% Case 1 %> <% End Select %>

<% For Each X in Request.QueryString %> <% Next rv=Trim(Request("rv")) If rv<>"" Then Select Case rv Case "-2" 'user name not found sMessage="The username entered is invalid. Please correct." Case "-1" 'Password incorrect sMessage = "Incorrect password entered for this user." Case "0" 'User does not have access" sMessage = "User information authenticated, but no access has been granted." End Select End If %>

Please Log In
User Name
Password
<%= sMessage %>