//Überprüfen, ob Bild vorhanden ist
name = "24.gif"
Set objFs = CreateObject("Scripting.FileSystemObject")
strprodukte = Server.MapPath("/bilder/" & name)
%>
<tr>
<input type="hidden" name="id" value="<%Response.Write(prod(0))%>">
<td width="30%"><%Response.Write(prod(3))%></td>
<td width="50%"><%Response.Write(prod(4))%></td>
<%
if objFS.FileExists(strprodukte) = true then
%> <td width="20%">Bild</td></tr> <%
ELSE
%><td width="20%">.</td></tr><%
END IF