Z Zaad Medlem sedan dec. 2001 50 inlägg Frågan 7 jan. 2002 19:42 #1 Hejsan, jag lyckades få tag på denna lilla kod snutten. Men jag måste ha lite till på den tror jag. Vad e det som fattas för att det ska fungera att använda den...
SQLStmt = "SELECT * FROM users WHERE Username = '" & Request.Form("user") & "' AND Password = '" & Request.Form("Pass") & "'"
Set RS = objDB.Execute(SQLStmt)
If RS.EOF Then
Response.Redirect("error.asp")
Else
Response.Cokies("Login")("AnvId") = RS("Id")
Response.Redirect("../inloggad.html")
End If
RS.Close()
set RS = Nothing
Ps: cokie med 2 o. Men dom ville inte att man skulle ha det här tydligen. =/
------------------
Zaad - A way to live.
L LarsG Medlem sedan dec. 2000 12 464 inlägg Det som saknas är kod för att öppna databasen. Exakt hur det ser ut beror på vilken databashanterare du använder.
http://cgi.webforum.nu/wf/Forum11/HTML/001285.html
visar på hur det ser ut med access t.ex.
------------------
essentitia preter non sans multiplicandum
Z Zaad Medlem sedan dec. 2001 50 inlägg Men... Jag tror fortfarande det fattas lite tecken som gör att servern behandlar det på rätt sätt...
Min fil ser ut så här.
confirm.asp
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Provider = "Microsoft.Jet.OLEDB.4.0"
Connection.ConnectionString = "Data Source=" & Server.MapPath("../db/users.mdb")
Connection.Open
SQLStmt = "SELECT * FROM users WHERE Username = '" & Request.Form("user") & "' AND Password = '" & Request.Form("Pass") & "'"
Set RS = objDB.Execute(SQLStmt)
If RS.EOF Then
Response.Redirect("error.asp")
Else
Response.Cokies("Login")("AnvId") = RS("Id")
Response.Redirect("../inloggad.html")
End If
RS.Close()
set RS = Nothing
------------------
Zaad - A way to live.
L LarsG Medlem sedan dec. 2000 12 464 inlägg Set RS = connection.Execute(SQLStmt)
------------------
essentitia preter non sans multiplicandum
Z Zaad Medlem sedan dec. 2001 50 inlägg Men den vissar bara koden i min browser. Den verkar inte behandla det som asp. Eller så e det nått som fattas...
------------------
Zaad - A way to live.
@nders Medlem sedan juni 2000 32 967 inlägg Du skall omsluta asp-koden med <% %>.
Alltså:
[b]<%[/b]
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Provider = "Microsoft.Jet.OLEDB.4.0"
Connection.ConnectionString = "Data Source=" & Server.MapPath("../db/users.mdb")
Connection.Open
SQLStmt = "SELECT * FROM users WHERE Username = '" & Request.Form("user") & "' AND Password = '" & Request.Form("Pass") & "'"
Set RS = objDB.Execute(SQLStmt)
If RS.EOF Then
Response.Redirect("error.asp")
Else
Response.Cokies("Login")("AnvId") = RS("Id")
Response.Redirect("../inloggad.html")
End If
RS.Close()
set RS = Nothing
[b]%>[/b]
Mvh,
Z Zaad Medlem sedan dec. 2001 50 inlägg Körningsfel i Microsoft VBScript fel '800a01a8'
Objekt krävs.: 'objDB'
/duell/asp/confirm.asp, rad 7
Rad 7 = Set RS = objDB.Execute(SQLStmt)
------------------
Zaad - A way to live.
I icaaq Medlem sedan okt. 2000 5 273 inlägg Du ska som LarsG sa tidigare byta ut
Set RS = objDB.Execute(SQLStmt)
Till
Set RS = connection.Execute(SQLStmt)
------------------
kolung.....det tål att tänkas på!
@nders Medlem sedan juni 2000 32 967 inlägg Jag ber om ursäkt för att jag missade det i den koden jag postade.
Mvh,
Z Zaad Medlem sedan dec. 2001 50 inlägg Fel igen. Jag rättade till det sista. Kan inte någon typ bara ta min kod och rätta till den. =) Och posta den här. =)
Microsoft JET Database Engine fel '80040e10'
Det har inte angetts något värde för en eller flera nödvändiga parametrar.
/duell/asp/confirm.asp, rad 7
confirm.asp
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Provider = "Microsoft.Jet.OLEDB.4.0"
Connection.ConnectionString = "Data Source=" & Server.MapPath("../db/users.mdb")
Connection.Open
SQLStmt = "SELECT * FROM users WHERE Username = '" & Request.Form("user") & "' AND Password = '" & Request.Form("Pass") & "'"
Set RS = connection.Execute(SQLStmt)
If RS.EOF Then
Response.Redirect("error.asp")
Else
Response.Cokies("Login")("AnvId") = RS("Id")
Response.Redirect("../inloggad.html")
End If
RS.Close()
set RS = Nothing
%>
------------------
Zaad - A way to live.
L LarsG Medlem sedan dec. 2000 12 464 inlägg Det felet du fick nu beror på att du i select-satsen har angett kolumnnamn som inte finns i din tabell.
------------------
essentitia preter non sans multiplicandum
Z Zaad Medlem sedan dec. 2001 50 inlägg Fel igen...
Jag säger bara en sak. Mycket klydd för lite nytta. Men nu tänker jag inte ge mej...
ADODB.Recordset fel '800a0cc1'
Objektet kunde inte hittas i mängden med det begärda namnet eller numret.
/duell/asp/confirm.asp, rad 11
rad 11
Response.Cokies("Login")("AnvId") = RS("Id")
"cokies med 2 o"
------------------
Zaad - A way to live.
@nders Medlem sedan juni 2000 32 967 inlägg Heter fältet ID i tabellen? Felmeddelandet antyder att så icke är fallet.
Mvh,
Z Zaad Medlem sedan dec. 2001 50 inlägg Databasen har 3 fält..
ID, Username, Password
ADODB.Recordset fel '800a0cc1'
Objektet kunde inte hittas i mängden med det begärda namnet eller numret.
/duell/asp/confirm.asp, rad 11
------------------
Zaad - A way to live.
Z Zaad Medlem sedan dec. 2001 50 inlägg Sorry, mitt fel.
Stort D på ID. =)
Nu funkar det..
Tack allihopa för hjälpen....
------------------
Zaad - A way to live.