<%
' splstmt definieren
sqlstmt = "SELECT * from bombaeng"
' Datenbankverbindung herstellen, öffen und sql starten
myRecordsetObj.open sqlstmt, connectme
' Meldung wenn Datenbank leer
If myRecordsetObj.eof then
response.write "There are no records in the database "
response.write "Please check back later"
response.end
Else
'Schleife durch die Datenbank, abfrage und Ausgabe
Do while not myRecordsetObj.eof
kategoriename = myRecordsetObj("kategoriename")
artikelnr = myRecordsetObj("artikelnr")
artiklebeschreibung = myRecordsetObj("artiklebeschreibung")
einzelpreis = myRecordsetObj("einzelpreis")
detail = myrecordsetobj("detail")
test = myrecordsetobj("detail")
IF detail = "none.htm" then
test = "no pic"
elseif detail <> "none.htm" then
test = "Pic"
end if
'Ausgabe der Tabelle
response.write "