Det ska ju egentligen kvitta så länge som det inte finns några mellanslag (fast man ska ju göra en god vana av att använda sådana)... måste bero på databas kopplingen, testa med följande:
Ja du... skratta inte åt detta. Jag har kopierat det och vet inte riktigt vad den gör men, det funkar i alla fall.
Jag har alltså först en inloggningssidan. Är man fel person så kommer man till en speciell sida. Är man rätt person så kommer man till en framesida och på denna ser det ut så här:
<%
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "DSN=databas;UID=;PWD="
SQL = "SELECT * From personer WHERE UserID = '" & Request.Form("UserID") & "'"
rs.Open SQL, MinCon, 1, 2
If rs.EOF Then
Response.Redirect "../annansida.html"
End If
If Not rs("losenord") = Request.Form("pwd") Then
Response.Redirect "../annansida.html"
End If
rs.Close
SET rs = Nothing
%>
Ja alltså framesidan visas juh. Men på nått sätt måste jag juh skicka vidare UserID till de sidorna som visas i framen också eftersom att jag vill ha lite saker där också. Typ hej och välkommen xxx osv.
<%
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "DSN=databas;UID=;PWD="
SQL = "SELECT * From personer WHERE UserID = " & Request.Form("UserID") & " "
rs.Open SQL, MinCon, 1, 2
If rs.EOF Then
Response.Redirect "../annansida.html"
End If
If Not rs("losenord") = Request.Form("pwd") Then
Response.Redirect "../annansida.html"
End If
rs.Close
SET rs = Nothing
%>
------------------
MVH // Cyprys Cyprys
Synd att du inte kan köpa en voodoojordglob och sedan snurra på den fort som fan och skrämma skiten ur alla.
Varför skulle vi skratta åt det? Det är ju sådana här forum är till för - att hjälpa folk med problem (progg problem alltså - inget annat :) ) att förstå bättre och lära sig mer!
En liten justering, stäng databasen innan du skickar användaren till en annan sida (för sedan körs ju inte koden med rs.Close):
<%
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "DSN=databas;UID=;PWD="
SQL = "SELECT * From personer WHERE UserID = " & Request.Form("UserID") & " "
rs.Open SQL, MinCon, 1, 2
If rs.EOF Then
[b]rs.Close
SET rs = Nothing[/b]
Response.Redirect "../annansida.html"
End If
If Not rs("losenord") = Request.Form("pwd") Then
[b]rs.Close
SET rs = Nothing[/b]
Response.Redirect "../annansida.html"
End If
%>
<%
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "DSN=databas;UID=;PWD="
SQL = "SELECT * From personer WHERE UserID = '" & Request.Form("UserID") & "' AND losenord = '"&Request.form("pwd")&"' "
rs.Open SQL, MinCon, 1, 2
If rs.EOF Then
Response.Redirect "../annansida.html"
End If
strUserID = rs("UserID")
rs.Close
SET rs = Nothing
%>
<%
Set MinCon = Server.CreateObject("ADODB.Connection")
MinCon.Open "DSN=databas"
Set RS = MinCon.execute("SELECT * From personer WHERE UserID = " & Request.Form("UserID") & " ")
if rs.eof OR rs("losenord") <> request.form("pwd") then
mincon.close
Set MinCon = nothing
set RS = nothing
response.redirect "../annansida.html"
end if
%>
------------------
MVH // Cyprys Cyprys
Synd att du inte kan köpa en voodoojordglob och sedan snurra på den fort som fan och skrämma skiten ur alla.
[Redigerat av cyprys den 24 jul 2001]
259 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849