Find fejlen...

IF NOT rs(\"picture_name\") = \"\" THEN

skriv sådan istedet

ok, jeg fatter ikke lige det her MS-fis... :o) Nu får jeg en anden fejl.

Jeg har gjort som du sagde, så nu viser jeg lidt mere kode, og så lige den anden fejl jeg fik:


\' SQL querry
strSQL = \"Select * from tbl_products ORDER BY product_name\"
\' Proceed querry
Set rs = Conn.Execute(strSQL)

\' Loop through recordset
Do

If Not rs(\"picture_name\") = \"\" Then
strPictureLink = \"<a href=\'/productpics/\" & rs(\"picture_name\") & \"\'><img height=\'19\' hspace=\'0\' src=\'/graf/home_files/camera.gif\' width=\'23\' border=\'0\'></a>\"
Else
strPictureLink = \"<IMG height=19 hspace=0 src=\'/graf/home_files/nocamera.gif\' width=23 border=0>\"

    Response.Write rs(\"product_name\") & strPictureLink & \"<br>\"

  \'Next record
  rs.MoveNext

\' Proceed until the end of file
Loop While Not rs.EOF

\' Close database connection
Conn.Close
Set Conn = Nothing
%>


FEJL:

Microsoft VBScript compilation error \'800a040e\'

\'loop\' without \'do\'

/tst.asp, line 34

Loop While Not rs.EOF
^

If Not rs(\"picture_name\") = \"\" Then
strPictureLink = \"<a href=\'/productpics/\" & rs(\"picture_name\") & \"\'><img height=\'19\' hspace=\'0\' src=\'/graf/home_files/camera.gif\' width=\'23\' border=\'0\'></a>\"
Else
strPictureLink = \"<IMG height=19 hspace=0 src=\'/graf/home_files/nocamera.gif\' width=23 border=0>\"

du mangler en End If sådan:

If Not rs(\"picture_name\") = \"\" Then
strPictureLink = \"<a href=\'/productpics/\" & rs(\"picture_name\") & \"\'><img height=\'19\' hspace=\'0\' src=\'/graf/home_files/camera.gif\' width=\'23\' border=\'0\'></a>\"
Else
strPictureLink = \"<IMG height=19 hspace=0 src=\'/graf/home_files/nocamera.gif\' width=23 border=0>\"
end if

Helt sikkert! Jeg vidste egentlig godt at man skulle afslutte IF-sætninger... men tak fordi du mindede mig om det!

så lidt :-)