HJÆÆLP

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/database.mdb")
Conn.Open DSN

strSQL = "Select * FROM users WHERE username = '" & session("passw") & "'"

Set rs = Conn.Execute(strSQL) %>

<%
sub AppendLog(strUserName, strDate)
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  if objFSO.FileExists(Server.MapPath("log.txt")) then
    Set objFile = objFSO.OpenTextFile(Server.MapPath("log.txt"), 8)
  else
    Set objFile = objFSO.CreateTextFile(Server.MapPath("log.txt"), 8)
  end if
    objFile.WriteLine strUserName & Chr(9) & strDate
  objFile.Close
  Set objFile = Nothing
  Set objSFO = Nothing 
end sub

AppendLog "& rs("username") &", Now
%>
<%
Conn.Close
Set Conn = Nothing
%>

Hvad kan der dog være galt? - Dette er et forsøg så måske er det vanvigtigt? :)

Jeg får denne fejl:
Der opstod en Microsoft VBScript-kompileringsfejl fejl '800a0401'

Slut på sætning var ventet

/log.asp, linje 25

AppendLog "& rs("username") &", Now