<%=lehrer%> <%=leseprobe%> <%=quiz%> <%=ohrenspitz%> <- Bücherliste |
<%=Titel%> <%=kurz1%> <%=kurz2%> <%=kurz3%> ISBN: <%=ISBN13%> <%=umfang%> Preis: <%=Preis%> Euro <%=Beschreibung%> |
% 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="
<%=lehrer%> <%=leseprobe%> <%=quiz%> <%=ohrenspitz%> <- Bücherliste |
<%=Titel%> <%=kurz1%> <%=kurz2%> <%=kurz3%> ISBN: <%=ISBN13%> <%=umfang%> Preis: <%=Preis%> Euro <%=Beschreibung%> |