Hvor dan laver jeg det på denne kode??
Hvor dan laver jeg så at man ikke bliver smidt af efter et par seconder vis man ikke er aktiv med denne kode<%
if request ("mode") = "login" then
' Opretter forbindelse til databasen
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=db.guf4you.dk;DATABASE=xxxx;USER=xxxxx;PASSWORD=xxxxxxxxx;OPTION=3;"
'ændre imput
Login = Trim(Replace(Request.Form("Login"),"'","''" ))
Password = Trim(Replace(Request.Form("Password"),"'","''" ))
'Lavet af Jimmy Jacobsen www.webshadow.frip.dk
'Opbygger Sql-sætningen
rsSQL = "SELECT * FROM ja_admin where brugernavn = '" & Login & "' and kode = '" & Password & "'"
' hvis brugeren var i databasen
set rs = Conn.execute(rsSQL)
If Not (rs.BOF Or rs.Eof) Then
Session("Id") = rs("Id")
session("login") = True
Response.redirect "../admin/admin.asp"
Else
'
' Hvis brugeren ikke var i databasen
Response.redirect "index.asp"
End If
' Lukker forbindelse til databasen
Conn.Close
Set Conn = Nothing
End if
%>
