Response.write og if

Jeg får nedenstående fejl, når jeg sætter If then ind i mit script før mine response.write sætninger.
Jeg anvender disse IF then sætninger til at springe en response.write over, hvis feltet der skal udskrives alligevel er tomt i accessdb´en, hvor scriptet udtrækker data fra.
hvad gør jeg galt?

Der opstod en Microsoft VBScript-kørselsfejl fejl \'800a000d\'

Typerne passer ikke sammen: \'[string: \"Formål:<br>1904,1953\"]\'

/fuldpost.asp, linje 57


Mine script ser således ud:


<%

strID = Request(\"ID\")
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT * FROM af WHERE ID=\" & strID & \";\"

strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"test.mdb\")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then


Response.Write \"<tr><th><b><font size=3><p></p><p>A.:  </b></th></tr>\"
Response.Write \"<font color=#FFFFFF><b>\" & rs(\"af\") & \"</b></font><br><br>\"

Response.Write \"<tr><th><b>Arbet:  </b></th></tr>\"
Response.Write \"<font color=#FFFFFF><b>\" & rs(\"arbet\") & \"</font><br><br>\"

If rs(\"fodt\") > 0 then
Response.Write \"<tr><th><b>Stiftet:  </b></th></tr>\"
Response.Write \"<font color=#FFFFFF><b>\" & rs(\"fodt\") & \"</font><br><br>\"
end if

If rs(\"dod\") > 0 then
Response.Write \"<tr><th><b>Nedlagt/død:  </b></th></tr>\"
Response.Write \"<font color=#FFFFFF><b>\" & rs(\"dod\") & \"</font></b><br><br>\"
end if

Response.Write \"<tr><th><b>Sted:  </b></th></tr>\"
Response.Write \"<font color=#FFFFFF><b>\" & rs(\"Sted\") & \"</font></b><br><br>\"

Response.Write \"<tr><th><b>Pakket:  </b></th></tr>\"
Response.Write \"<font color=#FFFFFF><b>\" & rs(\"pakket\") & \"</font></b><br><br>\"

Response.Write \"<tr><th><b>Indh:  </b></th></tr>\"
Response.Write \"<font color=#FFFFFF><b>\" & rs(\"indsig\") & \"</font></b><br><br>\"

If rs(\"bem\") > 0 then
Response.Write \"<tr><th><b>Bemærkninger:  </b></th></tr><br>\"
Response.Write \"<font color=#FFFFFF><b>\" & rs(\"bem\") & \"</font></b><br><br>\"
end if

Response.Write \"<tr><th><b>Indhold:  </b></th></tr><br>\"
if rs(\"indhold\") <> \"\" then
Response.Write \"<font color=#FFFFFF><b>\" & Replace(rs(\"Indhold\"), vbCrLf, \"<br>\") & \"</font><br>\"
end if

End If
rs.Close
Set rs = Nothing
%>