<%@ Language = VBScript %> <% '----variables cat = request.querystring("cat") if cat = "P100LF" or len(cat) = 0 then cat = "shipmates" end if filekey = cat page = request.querystring("page") %> <% '----setup Const cnstr = "DSN=selfpubbooks" Dim cn set cn = server.createobject("ADODB.Connection") cn.open cnstr Dim rs0 set rs0 = server.createobject("ADODB.Recordset") set rs0 = cn.execute("SELECT * FROM BOOKS WHERE FILEKEY='" & cat & "'") %> <% '----subroutines %>

<% '----book title if rs0("HEADER") = "yes" then response.write "

" else response.write "

" & rs0("TITLE") & "

" end if %>

<% '----content here. if len(page) = 0 then response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "

" & chr(13) response.write "

" response.write "

" & rs0("BLURB") & "

" response.write "
" & chr(13) if len(rs0("HOMEPAGE")) > 0 then response.write "" & rs0("TITLE") & " Homepage
" & chr(13) end if response.write "
" & chr(13) response.write "

" & chr(13) response.write "

" & chr(13) if rs0("INPRINT") = 0 then response.write "

JOIN WAITING LIST

JOIN WAITING LIST

" & chr(13) else response.write "

ORDER THIS BOOK

ORDER THIS BOOK

" & chr(13) end if response.write "

" & chr(13) end if %>

<% '----cleanup cn.close set cn = Nothing set rs0 = Nothing %>