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)
user login process
dim item
dim password
dim userid
dim rss
dim Connection
dim Sql
dim Z
for each item in Request.Form
if item="txtuid" then
userid=Request.Form(Item)
end if
if item="loginpassword" then
password=Request.Form(Item)
end if
next
set connection=Server.CreateObject("AdoDB.Connection")
Connection.Open "DSN=dsn;uid=userid;pwd=password"
set rss=Server.CreateObject("AdoDB.RecordSet")
Sql = " SELECT RNo From Account Where uid='" & userid & "' and Password='" & password & "'"
rss.Open Sql, connection, adOpenDynamic, adLockOptimistic
If Rss.EOF = True And Rss.BOF = True Then
rss.Close
Connection.Close
set rss=nothing
set connection=nothing
Response.Redirect "Error.asp"
end if
Session("SNo")=rs("No")
rss.Close
Connection.Close
set rss=nothing
set connection=nothing
Response.Redirect "abc.asp"
%>