www.online-supervision.net

<% If Session("UserID") = "" Then %>

<% Else response.write "" End If %>

<% If Session("UserID") = "" Then %>

<% Else response.write "" End If %>

Welcome <% Response.Write Session("Title") & " " & Session("FirstName") & " " & Session("LastName") %>!

<% If Session("UserID") = "" Then %> Your username and password have been recognised, but it appears that you have more than one registration with online-supervision.net. This may be because you have registered both as a supervisee and as a supervisor. Before we log you in completely we need you to choose which registration you want to log in with.

<% Else %> You have reached this page even though you are logged in already with your registration no. <%=Session("UserID")%>. Presumably this is because you are wanting to login afresh with a different registration.

<% End If %> All your registrations are listed below. Please select the appropriate registration and then click the login button below to complete your login.

<% Set conn = Server.CreateObject("ADODB.Connection") conn.Open connstr ' Open database connection strSQL = "SELECT UserID, UserStatus, Authorised" strSQL = strSQL & " FROM RegisterInterest" strSQL = strSQL & " WHERE GivCustomerID = '" & Session("GivCustomerID") & "'" Set rs = conn.Execute(strSQL) ' 6/ if there's no record corresponding to the username ' supplied, then bounceback to login calling an error message ' based on data in the QS to reflect that fact If rs.eof Then strCount = 0 response.write "" End If strCount = 1 Do While Not rs.EOF %> " VALUE="<%=rs(2)%>"> " VALUE="<%=rs(1)%>"> <% strCount = strCount + 1 rs.movenext loop Set rs = nothing ' Close recordset conn.close ' Close open connection Set conn = nothing ' Remove database object %>

online-supervision.net professional information
reg. no.	purpose of registration	use this registration
0	no registration found!
<%=rs(0)%>	<%=rs(1)%> supervision