loginnavn overført til session
Hej jeg har dette loginscript som bliver indlæst når man logger ind... for at jeg så skal kunne hive noget ud, eks bruger navn skal jeg åbne forbindelsen igen og så hente det..Jeg vil så gerne at det bliver smidt i Sessionen i stedet for oprette forbindelse hele tiden....
rs("login") skal være session("username") da session("login") er autoID. jeg syns ikk jeg kan få det til at virke..
<%
if request ("mode") = "login" then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("users.mdb")
Conn.Open DSN
Login = Trim(Replace(Request.Form("Login"),"'","''" ))
Password = Trim(Replace(Request.Form("Password"),"'","''" ))
rsSQL = "SELECT * FROM users where Login = '" & Login & "' and Password = '" & Password & "'"
set rs = Conn.execute(rsSQL)
If Not (rs.BOF Or rs.Eof) Then
Session("ID") = rs("ID")
session("login") = True
Response.redirect "default.asp"
Else
Response.redirect "default.asp"
End If
Conn.Close
Set Conn = Nothing
End if
%>
