Hejsan ja har då först och främst skapast ett inloggnings system då man då får en som heter vem som lagrar RecSet("anv") sedan vill ja nu då endast skriva ut de filmer från den valda Sessionen men hur skulle den koden se ut? typ
SQL = "SELECT * From movies WHERE namn = Session('vem') ORDER BY ID ASC"
Ja ja det står i alla fall helt still för mig så snälla hjälp :)
------------------
Dont drink and drive!!! smoke shit and fly!!!
<% If Request.Querystring("logga") = "in" Then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("movies.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From login"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
Do Until RecSet.EOF
If RecSet("anv") = Request.Form("anv2") AND RecSet("los") = Request.Form("losen2") Then
Session("user") = "user"
Session("vem") = RecSet("anv")
Session.Timeout = "30"
RecSet.Close
Set RecSet = nothing
Connect.Close
Set Connect = nothing
Response.Redirect("default.asp")
End If
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
Response.Redirect("weeee.asp")
%>
<% End If %>
så skappas juh en Session men varför skriver den inte ut det när ja kör
SQL = "SELECT * From movies WHERE namn = '" & Session("vem") & "' ORDER BY ID ASC"
Någon som vet varför?
------------------
Dont drink and drive!!! smoke shit and fly!!!
Hur då? Du sparar ett värde från tabellen login i din session. Varför skulle du få någon träff i tabellen movies med det namnet?
Din kod för inloggning är väldigt ineffektiv
<% If Request.Querystring("logga") = "in" Then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("movies.mdb")
sql = "Select * From login where anv = '" & request.form("anv2") & "' and los = '" & request.form("losen2") & "'"
set recset = Connect.execute(sql)
if not recset.eof then
Session("user") = "user"
Session("vem") = RecSet("anv")
Session.Timeout = "30"
found = true
else
found = false
end if
RecSet.Close
Set RecSet = nothing
Connect.Close
Set Connect = nothing
if found then
Response.Redirect("default.asp")
End If
Response.Redirect("weeee.asp")
End If %>
red: Tog bort det end if som jag felaktigt lade dit.
------------------ essentitia preter non sans multiplicandum
Error Type:
Microsoft JET Database Engine (0x80040E14)
Syntax error (missing operator) in query expression 'and = 'figg3' and los = 'admin''.
/figg3/filmer/default.asp, line 145
Så du är också lite virrig i dag, själv har ja en ganska stor och fin migrän, men ja är juh så klart för dum för att flytta mig från datron ;)
------------------
Dont drink and drive!!! smoke shit and fly!!!
