<% int1 = 1 If Request.Cookies("Cookie")("USERNAME") <> "" then Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../allan/db/database.mdb") ' Opbygning af SQL streng strSQL = "SELECT brugerID,userid,username,bagpic FROM spobruger"&_ " WHERE (username = '" & Request.Cookies("Cookie")("USERNAME") & "')" Set rs = myConn.Execute(strSQL) strBagPic = rs("bagpic") intUID2 = rs("userid") If intUID2 = "" then response.write "du er ikke godkendt" Else Session("NAME") = Request.Cookies("Cookie")("USERNAME") Session("ID") = Request.Cookies("Cookie")("ID") Session("ADMINID") = Request.Cookies("Cookie")("ADMINID") Session.Timeout = 30 end if End If %>

<% If isEmpty(Session("ID")) Then Response.write " www.StolPaaOs.dk " Else StrNAME1 = Session("NAME") Response.write " "&strNAME1&" " END IF %>

Start | 16c | Blog | SG | Wap * | Artikler | Forum <% If isEmpty(Session("ID")) Then Response.write "| Login " Else Response.write"| Logud " End If %> - [ <%SetLocale(1030)%> <%=FormatDateTime(Date, 1)%>]