Vidare från indexsida

Det där ska nog fungera. Vad blir det för fel då?

<frame name="main" src=[b]"[/b]valkommen.asp?UserID=<%=rs("UserID")%>[b]"[/b]>

eller

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:

<%
strUserID = rs("UserID")
%>
<frame name="main" src="valkommen.asp?UserID=<%=strUserID%>">

ja det är ju iofs rätt (det bör ju inte vara några mellanslag i länkar) så jag håller med Pace får du ut nått värde ur rs("UserID") ??

Detta får jag på sidan valkommen.asp:

Syntax error (missing operator) in query expression 'UserID ='.

Kan hända att jag gjort allt fel. Jag är rätt så kass på detta.

Nä rjag använde exemplet:

<%
strUserID = rs("UserID")
%>
<frame name="main" src="valkommen.asp?UserID=<%=strUserID%>">

så visades sidan inte alls.

Det är frågan som är fel.
Får vi se SQL-frågan så..

om du bara skriver ut:

strUserID = rs("UserID")
response.Write strUserID

får du nått då ??

Vart skulle jag skriva:

strUserID = rs("UserID")
response.Write strUserID

På vilken sida?

Från vilken sida skall jag visa SQL-frågan? Vilken sida tror ni att felet ligger på? Framesidan eller mottagar sidan (som är valkommen.asp)

Tack för att ni försöker att hjälpa mig *hi hi* Trots att jag är lite trög!

visa SQL-satsen från frame sidan (inte valkommen.asp)..

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.. så ser det ut... *hmm*

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.

Testa om detta funkar
Några fnuttar fel ,tror jag

<%
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
%>

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!

Bara kul!

Är inte felet att du aldrig lagrar rs("UserID") i variabeln innan databasen stängs?

Med ovanstående så stannade framesidan redan på 6:e raden!

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
%>

[r] Lite otydligt kanske [/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") & "' 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
%>

Hehe.. Många som inte har så mycket att göra.

<%
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
%>