<%
dim conn 'database connection object
dim rs 'recordset
dim strSQL 'sql query
dim endline
'set endline
endline = chr(10)
'create the connection object
set conn = Server.CreateObject("ADODB.Connection")
'open the connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\home\hnt7c211\legacy\f7e8af3jk23sd3.mdb;"
'create a recordset
set rs = Server.CreateObject("ADODB.Recordset")
if Session("ID") then
'delete party names
strSQL = "SELECT * FROM Party WHERE MasterID=" & Session("ID") & ""
rs.LockType = adLockOptimistic 'to lock the recordset while updating
rs.Open strSQL, conn
do while not rs.EOF
rs.Delete
rs.MoveNext
loop
rs.Close
'delete the user
strSQL = "SELECT * FROM Users WHERE ID=" & Session("ID") & ""
rs.LockType = adLockOptimistic 'to lock the recordset while updating
rs.Open strSQL, conn
do while not rs.EOF
rs.Delete
rs.MoveNext
loop
rs.Close
Session.Contents.Remove("ID")
Session.Contents.Remove("firstName")
Session("responseString") = "You have successfully deleted your account information."
else
Session("responseString") = "You must be signed in to do that! " &_
"Sign in now."
end if
'redirect to form_submit
Response.Redirect "form_submit.asp"
%>
Legacy Cruise II
