<% dim t,o,m,f,p,peuro,d,b_gross,b dim sql, sqlorder, sqlwhere ID=Request.QueryString("ID") 'If IsObject(Session("buch.mdb_conn")) Then ' Set conn = Session("buch.mdb_conn") 'Else Set conn = Server.CreateObject("ADODB.Connection") connect="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("buch.mdb") conn.open connect Set Session("buch.mdb_conn") = conn 'End If 'response.write sqlwhere sql = "SELECT * FROM buecher WHERE buecher.ProductID=" & ID set rs = conn.Execute(sql) ISBN=Server.HTMLEncode(rs.Fields("ISBN").Value) Preis=Server.HTMLEncode(rs.Fields("UnitPrice").Value) Titel=Server.HTMLEncode(rs.Fields("Titel").Value) if rs.Fields("umfang").Value <> "" then umfang=Server.HTMLEncode(rs.Fields("umfang").Value) 'Beschreibung=Server.HTMLEncode(rs.Fields("Beschreibung").Value) Beschreibung=rs.Fields("Beschreibung").Value www= rs.Fields("www").Value Verlag=rs.Fields("Verlag").Value ISBN13=rs.Fields("ISBN13").Value 'if rs.Fields("kurz1").Value <> "" then kurz1=Server.HTMLEncode(rs.Fields("kurz1").Value) kurz1= rs.Fields("kurz1").Value if rs.Fields("kurz2").Value <> "" then kurz2=Server.HTMLEncode(rs.Fields("kurz2").Value) if rs.Fields("kurz3").Value <> "" then kurz3=rs.Fields("kurz3").Value if rs.Fields("lehrer").Value <> "" then lehrer=Server.HTMLEncode(rs.Fields("lehrer").Value) if lehrer<>"" then lehrer="
  • Lehrerhandbuch" if rs.Fields("ohrenspitz").Value <> "" then ohrenspitz=rs.Fields("ohrenspitz").Value: ohrenspitz="
  • Hörprobe" quiz=Server.HTMLEncode(rs.Fields("quiz").Value) if quiz="True" then quiz="
  • Lesequiz" else quiz="" end if leseprobe=Server.HTMLEncode(rs.Fields("leseprobe").Value) if leseprobe="True" then leseprobe="
  • Leseprobe
  • " else leseprobe="" end if bild=ID + ".jpg" buchtitel="maedchen_" amazon="http://www.amazon.de/exec/obidos/asin/" + ISBN + "/realismusgalerie" lesequiz="../fragen_maedchen/fragen.asp" conn.close%> <%mmbild="../images/leer.gif" %>




    <%=lehrer%>
    <%=leseprobe%>
    <%=quiz%>
    <%=ohrenspitz%>
  • Bestellung

  • <%=Verlag%>


  • <- Bücherliste
    <%=Titel%>

    <%=kurz1%>
    <%=kurz2%>
    <%=kurz3%>

    ISBN: <%=ISBN13%>
    <%=umfang%>
    Preis: <%=Preis%> Euro


    <%=Beschreibung%>