Hello, <%=Session("Title")%> <%=Session("Firstname")%> <%=Session("Lastname")%>. Welcome to your Homepage! <% If Session("OlsAccounts") = "multiple" Then %> (You are logged in as Registrant no. <%=Session("UserID")%>, which is the registration you made for the purposes of <%=Session("UserStatus")%> supervision.) <% End If If Session("OlsAccounts") = "multipleButNotYetLoggedIn" AND Session("UserID") = "" Then %>

You are logged in as a GroupInterVisual customer (Customer no. <%=Session("GivCustomerID")%>), but you have several registrations on the online-supervision.net website, and you have not yet indicated which one in particular of your online-supervision.net registrations you wish to use for this session.

Because of this, unfortunately you will not be able to get any further into the secure part of the website than this page and the 'Edit GroupInterVisual Account Details' feature. Please click here to choose which of your online-supervision.net registrations you wish to log in with, so you can enter the site proper.

<% End If If Session("OlsAccounts") = "none" Then %>

You are logged in as a GroupInterVisual customer (Customer no. <%=Session("GivCustomerID")%>), but as you have not yet registered with online-supervision.net for the purposes of supervision, unfortunately you will not be able to get any further into the secure part of the website than this page and the 'Edit GroupInterVisual Account Details' feature.

Please look over it though to get a feel for what features are available once you do register. We would be delighted if you then chose to register interest either in providing or receiving supervision via this site by clicking on the link marked 'Online Supervision' in the main navigation bar above.

<% End If %> From here you can:

access tools to search out and contact users whose registrations are awaiting authorisation, email batches of registrants, and so on. researchers tools page
for optimum matches between yourself and other users of this site who are looking to provide or receive supervision... find both	review supervision groups and dyads you belong to... <% Set conn = Server.CreateObject("ADODB.Connection") conn.Open connstr ' Open database connection %> <% strSQL = "SELECT GroupMemberships.GroupMembershipID, Groups.GroupID," strSQL = strSQL & " Groups.Name, Groups.Description FROM GroupMemberships" strSQL = strSQL & " INNER JOIN Groups ON GroupMemberships.GroupID = Groups.GroupID" strSQL = strSQL & " WHERE GroupMemberships.UserID = '" & Session("UserID") & "' AND Groups.GroupStatus = 1" 'response.write strSQL Set rs = conn.Execute(strSQL) ' 6/ if there's no record corresponding to the username ' supplied, then bounceback to login calling an arror message ' based on data in the QS to reflect that fact If rs.eof Then response.write "" End If strCount = 1 Do While Not rs.eof response.write "" strCount = strCount + 1 rs.movenext loop ' Set rs = nothing ' Close recordset %> reg.#<%=Session("UserID")%> (<%=Session("UserStatus")%> supervision) no listing for this registration " & rs(2) & " (" & rs(3) & ")
... and view and edit the information we hold for you on our database <% strSQL = "SELECT UserID, UserStatus" 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 response.write "" End If strCount = 1 Do While Not rs.EOF If Session("UserID") + 1 = rs(0) + 1 Then response.write "" Else response.write "" End If 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 view edit 0 no registration found! " & rs(0) & " " & rs(1) & " supervision " & rs(0) & " " & rs(1) & " supervision GroupInterVisual personal account information reg. no. edit upload photo <%=Session("GivCustomerID")%> " ONMOUSEOUT="MM_swapImgRestore()" ONMOUSEOVER="MM_swapImage('edit_account<%=strCount%>','','/assets/smallbuttons/edit_account_f2.gif',1)" > " ONMOUSEOUT="MM_swapImgRestore()" ONMOUSEOVER="MM_swapImage('upload_photo_small<%=strCount%>','','/assets/smallbuttons/upload_photo_small_f2.gif',1)" >