<% doctype = request.QueryString("Type") sqltemp="SELECT *" & _ "FROM library WHERE (Type LIKE '%"& doctype &"%')" 'set up recordset set rstemp=server.CreateObject("adodb.recordset") rstemp.CursorType=2 'open recordset rstemp.Open sqltemp, conntemp do while not rstemp.eof head=rstemp.Fields("Header") auth=rstemp.Fields("Author") link=rstemp.Fields("Link") text=rstemp.Fields("Text") htype=rstemp.Fields("Type") response.write "" & head & "
" response.write auth & "
" If htype <> "Review " Then response.write ""& link &"

" Else response.write "Buy This Book At Amazon.com

" End If response.write "ABSTRACT: "& text & "


" rstemp.movenext loop 'clean up rstemp.close conntemp.close set rstemp=nothing set conntemp=nothing %>


home contact back to top
(c) 2000 Vlearn3D.org VLearn3D is a Special Interest Group of the Contact Consortium
Design by Spinach & Salami