Multiple User login in ASP

[mr merky]

Hi I have set up a site that contains a login area. It works fine and I can
add multiple users. The problem I have got is that each user will be sent to
the same page (client.asp), how can I change it so that each user is sent to
their own page. I have attached the code I'm using. Any help would be much
appreciated!

<%
Set conn = server.createobject("adodb.connection")
DSNtemp = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
Server.Mappath("../../private/login.mdb")
conn.Open DSNtemp

If InStr(Request.Form("uid"),"'") Then
uid = Replace(Request.Form("uid"),"'"," ")
Else
uid = Request.Form("uid")
End If
If InStr(Request.Form("pwd"),"'") Then
pwd = Replace(Request.Form("pwd"),"'"," ")
Else
pwd = Request.Form("pwd")
End If

SQL = "Select * From users Where uid = '" & uid & "' And pwd = '" & pwd & "'"
Set RS = Conn.Execute(SQL)

If Not RS.EOF Then
Session("okeydokey") = True

Set RS = Nothing
Conn.Close

Response.Redirect "client.asp"
Else

Set RS = Nothing
Conn.Close
Response.Redirect "login.asp"

End If
%>

[Paul Whitham TMM]

If by their own page you are meaning that their own details will be shown,
then simply change client.asp so that it filters based on the passed session
variable and only displays that information.

--
Regards

Paul Whitham
Macromedia Certified Professional for Dreamweaver MX2004
Valleybiz Internet Design
[url]www.valleybiz.net[/url]

Team Macromedia Volunteer for Ultradev/Dreamweaver MX
[url]www.macromedia.com/support/forums/team_macromedia[/url]

"mr merky" <webforumsuser@macromedia.com> wrote in message
news:d2otvl$fkq$1@forums.macromedia.com...

> Hi I have set up a site that contains a login area. It works fine and I

can

> add multiple users. The problem I have got is that each user will be

sent to

> the same page (client.asp), how can I change it so that each user is sent

to

> their own page. I have attached the code I'm using. Any help would be

much

> appreciated!
>
> <%
> Set conn = server.createobject("adodb.connection")
> DSNtemp = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
> Server.Mappath("../../private/login.mdb")
> conn.Open DSNtemp
>
> If InStr(Request.Form("uid"),"'") Then
> uid = Replace(Request.Form("uid"),"'"," ")
> Else
> uid = Request.Form("uid")
> End If
> If InStr(Request.Form("pwd"),"'") Then
> pwd = Replace(Request.Form("pwd"),"'"," ")
> Else
> pwd = Request.Form("pwd")
> End If
>
> SQL = "Select * From users Where uid = '" & uid & "' And pwd = '" & pwd &

"'"

> Set RS = Conn.Execute(SQL)
>
> If Not RS.EOF Then
> Session("okeydokey") = True
>
> Set RS = Nothing
> Conn.Close
>
> Response.Redirect "client.asp"
> Else
>
> Set RS = Nothing
> Conn.Close
> Response.Redirect "login.asp"
>
> End If
> %>
>