set rsUser = server.CreateObject("ADODB.Recordset")
rsUser.open SQL, cn, 3, 1
if rsUser.eof then
response.Redirect("index.asp")
else
sTitle = rsUser("Title")
sFirstname = rsUser("Firstname")
sLastname = rsUser("Lastname")
sCompanyName = rsUser("CompanyName")
sAddress1 = rsUser("Address1")
sAddress2 = rsUser("Address2")
sAddress3 = rsUser("Address3")
sAddress4 = rsUser("Address4")
sAddress5 = rsUser("Address5")
sPostcode = rsUser("Postcode")
sEmail = rsUser("Email")
sTelephone = rsUser("Telephone")
sLastAccessDate = rsUser("LastAccessDate")
sLastAccessIP = rsUser("LastAccessIP")
sStatus = rsUser("Status")
end if
rsUser.close
set rsUser = nothing