by Zahid (7 Submissions)
Category: Miscellaneous
Compatability: VB Script
Difficulty: Unknown Difficulty
Originally Published: Mon 5th June 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Delete user information/user id and password.
dim item
dim userid
dim rss
dim Connection
dim Sql
for each item in Request.Form
if item="txtuid" then
userid=Request.Form(Item)
end if
next
set connection=Server.CreateObject("AdoDB.Connection")
Connection.Open "DSN=DSN;uid=userid;pwd=passward"
set rss=Server.CreateObject("AdoDB.RecordSet")
Sql = " Delete From Account where uid='" & userid & "'"
rss.Open Sql, connection, adOpenDynamic, adLockOptimistic
Connection.Close
set rss=nothing
set connection=nothing
Response.Redirect "login.asp"
%>