Nachfolgend sehen Sie
unsere Werbeartikel. Sie können diese bei unserer
Geschäftsstelle bestellen. Lieferung erfolgt nur gegen Vorkasse und solange der Vorrat
reicht.
Die Preise gelten zuzüglich Porto. |
<%
Call OpenDB ("tibet")
sql = "SELECT ID, Produkt.TypBez, Produkt.Beschreibung, Produkt.list, Not IsNull([file]) AS IsBild, Not IsNull([big]) AS IsBig, Produkt.file_updates, Produkt.big_updates, PItem.Art, Preis AS eur "
sql = sql & "FROM Produkt INNER JOIN PItem ON Produkt.ID = PItem.Produkt "
sql = sql & "ORDER BY TypBez, Art; "
'Response.Write sql
Set rs = cn.Execute(sql)
If rs.eof Then
%>
|
Momentan sind keine Werbeartikel verfügbar! |
|
<%
else
i=0
IDVgl=0
While Not rs.eof
i=i+1
If Not rs.EOF Then ID = rs("ID")
Bezeichnung = RS("TypBez")
if rs("IsBig") then
zoom = "Klicken für Großdarstellung"
Else
If rs("IsBild") Then
zoom = "Keine Großdarstellung verfügbar"
Else
zoom = "Keine Abbildungen verfügbar"
End if
end if
If rs("Isbig") Then
g_src = "Typ=Produkt&field=big&TypID=" & ID & "&u=" & RS("big_updates") & "&db=shop"
hrefnoscript = "href=" & Chr(34) & "bild.asp?" & g_src & Chr(34)
hrefscript = "href=\" & Chr(34) & "javascript:Show('Bild" & i & "','','" & g_src & "');\" & Chr(34) & " onmouseover=\" & Chr(34) & "window.status='Klicken für Großdarstellung!';return true;\" & Chr(34) & " onmouseout=\" & Chr(34) & "window.status='';return true;\" & Chr(34)
ersatz = "ohne_vorschau.gif"
Else
hrefnoscript ="name=dummy"
hrefscript = "name=\" & Chr(34) & "dummy\" & Chr(34)
ersatz = "ohne_abbildung.gif"
End if
If rs("IsBild") Then
img_src = " & ) "
Else
img_src = " & respath & ) "
End if
If ID<>IDVgl then
ColorChange=0
%>
 |
| <%
If rs("IsBig") Then
%>
<%
End if
%>
|
|
| <%=Bezeichnung%> |
|
| <%
Response.Write(convert(RS("Beschreibung"), RS("list"), "us10b", "shop3"))
%> |
|
|
Ausführung |
EUR |
<%
End if
Art=RS("Art")
eur=RS("eur")
If IsNull(eur) Then
PreisStr = "a. Anfr."
else
PreisStr = FormatNumber(eur,2,-1,0,-1)
end if
ColorChange=ColorChange+1
If ColorChange Mod 2 = 0 Then cellclass="hg2" else cellclass="hg3"
%>
| <%=Art%> |
<%=PreisStr %> |
<%
IDVgl=ID
rs.MoveNext
If Not rs.EOF Then ID = rs("ID")
If ID<>IDVgl OR rs.EOF then
%>
|
|
<%
End if
Wend
end if
rs.close
set rs=Nothing
Call CloseDB
%>
|
