• Home
 · 
• Miscellaneous
 · 
• user login process

user login process

user login process

Rate user login process

• 1
• 2
• 3
• 4
• 5

(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"	
%>