| |
<% if not len(Request.Form("Bilderbuch") & "") < 1 then
Set connbb = server.createobject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("../database/bilderbuch.mdb")
connbb.Open DSNtemp
Set resBB = connbb.Execute("SELECT * FROM tblBilderbuecher WHERE bilderbuchid=" + Request.Form("Bilderbuch"))
strBezeichnung = resBB.Fields("bezeichnung").value
strKurztext = resBB.Fields("kurztext").value
%>
<%= strBezeichnung %>
<%= strKurztext %>
|
<%
resBB.Close
Set resBilder = connbb.Execute("SELECT * FROM tblBilder WHERE bilderbuchid ='"& Request.Form("Bilderbuch") &"'")
linksrechts = "links"
while not resBilder.EOF
strBild=resBilder.Fields("bild").value
strBeschreibung=resBilder.Fields("beschreibung").value
if linksrechts = "links" then
linksrechts ="rechts"
%>

<%= strBeschreibung %> |
|
<% else
linksrechts ="links"
%>

<%= strBeschreibung %> |
|
<%
end if
resBilder.MoveNext
wend
resBilder.close
connbb.Close
%>
<% end if %>
|