Hejsan. Sitter och sliter med en inloggning jag haft länge.
Skulle vilja lägga till en kaka men får det inte att läsa igenom det rätt.
Jag får felkod:
Feltyp:
ADODB.Recordset (0x800A0CC1)
Objektet kunde inte hittas i mängden med det begärda namnet eller numret.
/forum_mitt/kontroll.asp, line 19
Den jag villlägga till är denna:
Response.Cookies("anvnamn") = RecSet("anvnamn")
:h Tacksam för lite hjälp på vägen med detta.
kontroll.asp ser ut så här just nu och det är
<%
Function secure(txt)
txt = Replace(txt, "'", "''")
secure = txt
End Function
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\inetpub\wwwroot\forum_mitt\lagret\nisse.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")
anvNamn = secure(Request.Form("anvnamn"))
losenord = secure(Request.Form("losenord"))
SQL = "SELECT niva FROM admin WHERE anvnamn='" & anvnamn & "' AND losenord='" & losenord &"'"
RecSet.Open SQL, Connect, 3, 3
If not RecSet.EOF Then
Response.Cookies("anvnamn") = RecSet("anvnamn")
Response.Cookies("niva") = RecSet("niva")
If RecSet("niva")="1" Then
strPage="forum/index.asp"
elseIf RecSet("niva")="2" Then
strPage="forum/index.asp"
End If
' Här loggas IP när rätt lösenord och password angetts
SQL = "INSERT INTO iplogg([username],[ip],[loginstatus],[tid]) values ('"& anvnamn &"','"& Request.Servervariables("REMOTE_ADDR") &"','OK',#"& now() &"#)"
Connect.execute(SQL)
Response.Redirect strPage
else
' Här loggas IP när fel lösenrod och password angetts
query="INSERT INTO iplogg([username],[ip],[loginstatus],[tid]) values ('"& anvnamn &"','"& Request.Servervariables("REMOTE_ADDR") &"','Fail',#"& now() &"#)"
Connect.Execute(query)
End If
RecSet.Close : set recset = nothing
Connect.Close : set connect = nothing
Response.Redirect "forum/index.asp"
%>
Jag försökte gå vidare på detta men stötte på patrull... Ska inte detta gå ??? När den kom fram till "Response.Cookies("msn") = RecSet("msn")" spikade den ifrån men med dom 4 första bara gick det igenom.
Vi struntar i den biten nu för jag ger varje ett värde om det inte skrivs in nått och då funkar det ändå.
Jag har en annan sak i denna kak röra :)
Jag har gjort en profilsida som jag inte lyckas koppla till rätt id. Man har loggat in och sen när jag trycker på inställningar ska jag komma till profilsida. Vitsen är ju att man bara ska se den inloggades uppgifter men eftersom jag alldrig kopplat på detta vis vet jag inte hur det ska se ut. Min nuvarande kod ser ut så här på profilsidan
<%
Response.buffer=True
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("../lagret/nisse.mdb")
Set RecSet = Connect.Execute("select * from admin order by id ASC")
rs_user = RecSet("anvnamn")
rs_anvnamn = Request.Cookies("anvnamn")
'If rs_anvnamn = RecSet(anvnamn) Then
If Request.Cookies("anvnamn") = rs_user Then
%>
Jag vet att den inte är riktig på långa vägar och jag vet inte hur jag kopplar den till aktuell inloggad
