syntaxfel... :(

ja.. d är tanken :)

strContents = strContents & "<tr bgcolor=" & bgcolor & ">   <td>"
IF rs("Online") = "Ja" THEN 
   strcontents = strcontents & "<img src=""com/online.gif"" border=""0"">"
ELSE 
   strcontents = strContents & "<img src=""com/offline.gif"" border=""0"">"
END IF 
IF rs("bild") <> "" THEN
   strcontents = strcontents & "<img src=""com/bild.gif"" border=""0"">"
END IF
strcontents = strcontents & "</td><td><font  face=""Verdana"" size=""1"">" & _
 "<a href=""default.asp?id=com/user_info&userid="" & objRs("Namn") & """>" & _
  objRs( "Namn" ) & " <b>" & objRs( "kon" ) &  _
 DiffADate(DateSerial(ar,manad,dag)) & "</b></a></td></tr"

får felmeddelande:

Kompileringsfel i Microsoft VBScript (0x800A0401)
Slut på programsats förväntas.

"<a href=""default.asp?id=com/user_info&userid="" & objRs("Namn") & """>" & _
----------------------------------------------------------^

strcontents = strcontents & "</td><td><font  face=""Verdana"" size=""1"">" & _
 "<a href=""default.asp?id=com/user_info&userid=""" & objRs("Namn") & """>" & _
  objRs( "Namn" ) & " <b>" & objRs( "kon" ) &  _
 DiffADate(DateSerial(ar,manad,dag)) & "</b></a></td></tr"

det var en " för lite precis före & objRs("Namn")