|
<%
Dim Login, Losen
Login = Request.Form("Login")
Login = Request.Form("Losen")
'H�mtar login och l�sen fr�n f�reg�ende sida
Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open "Din Databas-Connection str�ng h�r!"
SQL = "Select Login, Losen From tblLogin " _
& "Where login = '"&Login&"' And Losen = '"&Losen&"'"
Set RS = MyConn.Execute(SQL)
If Not RS.EOF Then
Session("inne") = True
' Du �r inloggad om denna koden k�rs, det vill s�ga,
' att login och l�sen matchar det som finns
' i databasen
%> |
|
