 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
<%
If Session("UserID") = "" Then
%> <%
Else
response.write " "
End If
%> |
 |
 |
 |
 |
 |
 |
 |
 |
<%
If Session("UserID") = "" Then
%>
<%
Else
response.write " "
End If
%> |
 |
 |
 |
 |
 |
 |
 |
 |
 |
|
<%
strQS = "?GivCookieTest=" & Request.Querystring("GivCookieTest")
Session("GivCookieTest") = Request.Querystring("GivCookieTest")
If Session("GivCookieTest") = "" Then
GivCookieTestBounceURL = "http://www.groupintervisual.net/asp/alienCookieTest.asp?Referral=www.online-supervision.net/asp/tools/FormLetterToUsers.asp"
response.redirect GivCookieTestBounceURL
End If
Session("GivCustomerID") = Request.Querystring("GivCustomerID")
If Session("GivCustomerID") = "" Then
If Request.Cookies("OLS").HasKeys Then
Session("GivCustomerID")= Request.Cookies("OLS")("GivCustomerID")
End If
End If
If Session("GivCustomerID") <> "" Then
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
strSQL = "SELECT Username, Title, Password, FirstName,"
strSQL = strSQL & " LastName, EmailAddress,"
strSQL = strSQL & " StreetAddress1, StreetAddress2, Town,"
strSQL = strSQL & " County, Country, PostCode, TelephoneNo"
strSQL = strSQL & " FROM Customers"
strSQL = strSQL & " WHERE CustomerID = '" & Session("GivCustomerID") & "'"
Set rs = conn.Execute(strSQL)
Session("username") = rs.Fields("Username")
Session("password") = rs.Fields("password")
Session("title") = rs.Fields("Title")
Session("firstname") = rs.Fields("Firstname")
Session("lastname") = rs.Fields("Lastname")
Session("emailaddress") = rs.Fields("EmailAddress")
Session("address1") = rs.Fields("StreetAddress1")
Session("address2") = rs.Fields("StreetAddress2")
Session("town") = rs.Fields("Town")
Session("county") = rs.Fields("County")
Session("country") = rs.Fields("Country")
Session("postcode") = rs.Fields("PostCode")
Session("telephone") = rs.Fields("TelephoneNo")
rs.Close ' Close recordset
Set rs = nothing ' Remove recordset
conn.close
End If
%> |
| |
 |