user login process
user login process
Rate user login process
(1(1 Vote))
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"
%>
user login process Comments
No comments yet — be the first to post one!
Post a Comment