Microsoft VBScript runtime error \'800a000d\'
Jeg har flikket et nyhedsmodul sammen, men har nu fået problemer fordi ikke alle nyheder skal vises på samme måde, når man klikker videre fra oversigten.Problemet er at de nyheder hvor feltet docname er udfyldt skal åbne et dokument ved navn \"docname\" der ligger i et dump-bibliotek.
Alle de andre skal åbne en nyhedsside via et id-nummer.
De to systemer virker ok hver for sig.
****************************
Her er den \"blandede\" kode, der er gået ged i:
<%
DO WHILE NOT rs.EOF
overskrift = rs(\"overskrift\")
teaser = replace(rs(\"teaser\"),vbcrlf,\"<br>\")
tidsstempel = rs(\"tidsstempel\")
forfatter = rs(\"forfatter\")
ID = rs(\"ID\")
Dato = rs(\"Dato\")
docname = rs(\"docname\")
referat = rs(\"referat\")
%>
<div class=\"nyhedsover\">
<%
if docname <> 0 then
response.write \"<a href=\"\"../documentdump/\" & rs(\"docname\") & \">\"
else
response.write \"<a href=nyhedsdel/se_nyhed.asp?id=\" & ID & \">\"
end if
%>
<%=overskrift%></div>
<div class=\"nyhedsdato\"><%=tidsstempel%> ~ <%=forfatter%></div>
<div class=\"teaser\"><a href=\"nyhedsdel/se_nyhed.asp?id=<%=ID%>\"><%=teaser%></a></div><br>
<%
rs.MoveNext
LOOP
RS.Close
Her er den fejlbesked jeg får:
Microsoft VBScript runtime error \'800a000d\'
Type mismatch: \'docname\'
****************************
Her er den originale kode der virker fint (med id):
<div class=\"nyhedsover\"><a href=\"nyhedsdel/se_nyhed.asp?id=<%=ID%>\"><%=overskrift%></a></div>
<div class=\"nyhedsdato\"><%=tidsstempel%> ~ <%=forfatter%></div>
<div class=\"teaser\"><a href=\"nyhedsdel/se_nyhed.asp?id=<%=ID%>\"><%=teaser%></a></div><br>
****************************
Her er den originale kode der virker fint (med docname):
<span class=\"nyhedsover\"><a href=\"../documentdump/<%=docname%>\" target=\"_blank\"><%=overskrift%></a> - </span>
<span class=\"nyhedsdato\"><%=tidsstempel%> ~ <%=forfatter%></span><br>
<span class=\"teaser\"><a href=\"../documentdump/<%=docname%>\" target=\"_blank\"><%=teaser%></a></span>
