et eks .: set Conn = Server.createobject("ADODB.Connection") Conn.open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & server.mappath("database.mdb") Set RS = Server.createObject("ADODB.Recordset") SQL = "SELECT Bruger_status, Adgangskode, Navn, from tbltabel where Email = '" & login & "'" SQL = SQL & " AND Adgangskode = '" & kodeord & "'" RS.open SQL,conn IF NOT RS.EOF THEN IF RS("Bruger_status") = 1 THEN RS.close Set RS = Nothing Conn.close Set conn = nothing Response.redirect "andenside.asp" ELSE RS.close Set RS = Nothing Conn.close Set conn = nothing end if
hov mangler et end if til sidste :) IF NOT RS.EOF THEN IF RS("Bruger_status") = 1 THEN RS.close Set RS = Nothing Conn.close Set conn = nothing Response.redirect "andenside.asp" ELSE RS.close Set RS = Nothing Conn.close Set conn = nothing response.write "Ingen Adgang!!" END IF End if
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.