Help with login authentication redirect

ASP Free Forums Sponsor:

May 18th, 2004, 02:44 PM

graphicstation

Registered User

Join Date: May 2004

Location: Florida

Posts: 22

Time spent in forums: < 1 sec
Reputation Power: 0

Send a message via Yahoo to graphicstation

Help with login authentication redirect

Using some basic login code but trying to redirect user based on
their login type. What I would really like to do is have a varible for the name of the
redirect page that also pulls from the db based on loginType. Anyway,here is what
I have which is not working.

Code:

<%
dim db, rs, sql
dim err1, err2, err
if request.form("validate") = 1 then
 set db = server.createobject("adodb.connection")
 set rs = server.createobject("adodb.recordset")
 err = false
 err1 = false
 err2 = false
 db.Open Application("webissues_ConnectionString")
 sql = "select password, loginType from tblLoginInfo where username = '" & request.form("username") & "'"
 rs.open sql, db
 if rs.eof then
  err = true
  err1 = true
 else
  if rs("password") <> request.form("password")  then
   err = true
   err2 = true
 else
  If (loginType = "ops")  Then
Response.Redirect("opsWelcome.asp")
 else
  If (loginType = "admin")  Then
Response.Redirect("resourceWelcome.asp")
 else
  If (loginType = "tman")  Then
Response.Redirect("tmanWelcome.asp")
End If
End If
End If
End If
end if
 rs.close
 db.close
end if
%>

May 18th, 2004, 03:30 PM

Memnoch

Unholy Moderator

ASP Free God 15th Plane (12000 - 12499 posts)

Join Date: Oct 2003

Location: In hell, where did you think?

Posts: 12,025

Time spent in forums: 3 Weeks 6 Days 12 h 21 m 3 sec
Reputation Power: 628

try something like this.
Add a field in your database called redirectPage, then specify the value of the field based on the logintype.

Code:

If Request.Form("validate") = 1 Then
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open Application("webissues_ConnectionString")

   	strSql = "SELECT redirectPage FROM tblLoginInfo WHERE Username = '" & Request.Form("username")  & "' AND [Password] = '" & Request.Form("password") & "'"
	Set rs = Conn.Execute(strSql)

	if rs.eof Then
		Response.write("No records returned")
	else
		RedirectPage = rs("redirectPage")
	end if

	Conn.Close
	Set Conn = Nothing

	Response.Redirect(RedirectPage)
End If

May 18th, 2004, 03:40 PM

graphicstation

Registered User

Join Date: May 2004

Location: Florida

Posts: 22

Time spent in forums: < 1 sec
Reputation Power: 0

Excellent!
Worked beautifully. Thanks.
Anthony
www.graphicstation.com

Viewing: ASP Free Forums > Programming > Code Bank > Help with login authentication redirect

« Previous Thread | Next Thread »

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump

Free IT White Papers!

Create the Optimal Architecture for your Critical Applications
Warburton's the largest independently owned bakery in the UK faced a number of difficult challenges in providing the most robust yet efficient IT infrastructure for their organization's success. IBM's services combined with their xSeries servers created the perfect platform for their SAP environment with sufficient flexibility, and did so in very time effective fashion.

Five Best Practices for Deploying a Successful Service-Oriented Architecture
This white paper describes the benefits you can expect with SOA, and how IBM can help take your business there.

Gartner Magic Quadrant for Application Delivery Controllers
Gartner summarizes its view on Application Delivery Controllers, evaluates strengths and weaknesses of solutions, and provides Magic Quadrant reporting for a quick comparison across all vendors. Learn from Gartner how you can benefit from an all-in-one device like Citrix NetScaler that delivers the highest levels of availability, performance and security.

Knowledge is Power
What you don't know can hurt you, and is likely costing you money and increasing your security risks during an era of scarce resources. This white paper proposes six key strategies that enterprise security managers can use to improve their network defense posture.

Rationalizing the Multi-Tool Environment
The rationalized multi-tool approach is flexible, scalable and cost effective. It provides the necessary input to the IT service management business processes. It preserves prior investments in monitoring tools, empowers technologists to select the best tools with which to do their jobs, and enhances effective response to incidents.

More Free IT White Papers!