Vær i øvrigt lige opmærksom på at dit dokument risikerer at blive ugyldig HTML, når du sætter <html>, <head> osv. inde i løkken. Du bør rykke det op over den første <%. Jeg har retttet din kode til herunder:
<html>
<head>
<meta name="Generator" content="Stone's WebWriter 4">
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Main</title>
</head>
<body background="../IMAGES/startile.gif" text="#FFC600" link="#FFC600" vlink="#FFC600" alink="#975386">
<br>
<div style="text-align:center">
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../DATABASER/login.mdb")
strSQL = "SELECT * FROM Users WHERE UserID = " & Session("UserID")
Set objRs = objConn.Execute(strSQL)
if Not objRs.EOF then
Response.Write("Hej " & ObjRs("FirstName") & " " & ObjRs("LastName") & "<br />" & vbCrLf)
opdaterLogin = true
else
opdaterLogin = false
end if
objRs.close
set objRs = nothing
if opdaterLogin then
strSQL = "UPDATE Users SET Sidst_Online = now() WHERE UserID = " & Session("UserID")
objConn.Execute(strSQL)
end if
' Luk databaseforbindelse
objConn.close
Set objConn = Nothing
%>
</div>
</body>
</html>
Jeg er klar over du nok bliver reddet af, at der kun er en bruger, men hvis der nu ikke er en bruger, så vil der slet ikke komme header-information (og starttag til body), så det er under alle omstændigheder en dårlig struktur. Gør i stedet som ovenfor, jeg har benyttet en if-then-else-end if i stedet for en while-løkken til et resultat som givetvis kun returerer max en række...
En sidste ting er, at du altid bør lukke dine recordset og databaseforbindelser efter du har lavet opslag i din database (og helst så tidligt som muligt). Så risikerer du ikke at servere spilde resurser eller i værste fald oplever memoryleaks (specielt i forbindelse med Access).
Ny bruger
Nybegynder
Opret
Preview
