<%@ Language = VBScript %> <% '----variables cat = request.querystring("cat") if cat = "P100LF" or len(cat) = 0 then cat = "phantom" end if filekey = cat page = request.querystring("page") ext = request.querystring("ext") caption = request.querystring("caption") %> <% '----setup Const cnstr = "DSN=monsterbooks" 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 sub makethumbnail(myEXT, myCAPTION) response.write "" & chr(13) if page = "still" then response.write "" & chr(13) response.write "" else response.write "" & chr(13) response.write "" end if response.write "" response.write "" & chr(13) response.write "" & chr(13) if page = "still" then response.write "" & chr(13) response.write "" response.write myCAPTION response.write "" & chr(13) response.write "" & chr(13) end if response.write "" & chr(13) end sub %>
<% '----header image response.write "" %>   <% '----book title response.write "

" & rs0("TITLE") & "

" %>
<% '----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 "Information on the Book
" & chr(13) set rs1 = cn.execute("SELECT * FROM POSTERS WHERE FILEKEY='" & filekey & "'") if not rs1.eof then response.write "Posters for " & rs0("TITLE") & "
" & chr(13) end if set rs1 = cn.execute("SELECT * FROM STILLS WHERE FILEKEY='" & filekey & "'") if not rs1.eof then response.write "Stills from " & rs0("TITLE") & "
" & chr(13) end if if len(rs0("IMDBKEY")) > 0 then response.write "Search IMDb for " & rs0("TITLE") & "
" & 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) elseif page = "book" 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) response.write "
GO BACK
" & 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) elseif page = "poster" then response.write "" & chr(13) set rs1 = cn.execute("SELECT * FROM POSTERS WHERE FILEKEY='" & filekey & "'") if rs1.eof then response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) else response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) rs1.movefirst while not rs1.eof makethumbnail rs1("EXTENSION"), null rs1.movenext wend rs1.movefirst end if response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "
" & chr(13) response.write "

" & chr(13) response.write "

Sorry... Not Yet!

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

Click a thumbnail below to view a full-size image

" & chr(13) response.write "
" & chr(13) response.write "
GO BACK
" & chr(13) response.write "
" & chr(13) elseif page = "still" then response.write "" & chr(13) set rs1 = cn.execute("SELECT * FROM STILLS WHERE FILEKEY='" & filekey & "'") if rs1.eof then response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) else response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) rs1.movefirst while not rs1.eof makethumbnail rs1("EXTENSION"), rs1("CAPTION") rs1.movenext wend rs1.movefirst end if response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "
" & chr(13) response.write "

" & chr(13) response.write "

Sorry... Not Yet!

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

Click a thumbnail below to view a full-size image

" & chr(13) response.write "
" & chr(13) response.write "
GO BACK
" & chr(13) response.write "
" & chr(13) elseif page = "showposter" then response.write "" response.write "" response.write "" response.write "" response.write "
" response.write "

 

" response.write "
" response.write "
" response.write "
GO BACK
" & chr(13) response.write "
" elseif page = "showstill" then response.write "" response.write "" response.write "" response.write "" response.write "
" response.write "

 

" response.write "
" response.write "

" & caption & "

" response.write "
GO BACK
" & chr(13) response.write "
" end if %>
<% '----cleanup cn.close set cn = Nothing set rs0 = Nothing set rs1 = Nothing %>