%@ 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)
elseif page = "book" then
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)
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)
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)
response.write " Sorry... Not Yet! " & chr(13)
response.write " | " & chr(13)
response.write " " & chr(13)
else
response.write "" & 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 " " & 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 " GO BACK" & chr(13)
response.write " | " & chr(13)
response.write " " & 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)
response.write " Sorry... Not Yet! " & chr(13)
response.write " | " & chr(13)
response.write " " & chr(13)
else
response.write "" & 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 " " & 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 " GO BACK" & chr(13)
response.write " | " & chr(13)
response.write " " & chr(13)
response.write " " & chr(13)
elseif page = "showposter" then
response.write ""
response.write ""
response.write ""
response.write " "
response.write " "
response.write " "
response.write " GO BACK" & chr(13)
response.write " | "
response.write " "
response.write " "
elseif page = "showstill" then
response.write ""
response.write ""
response.write ""
response.write " "
response.write " "
response.write "" & caption & " "
response.write " GO BACK" & chr(13)
response.write " | "
response.write " "
response.write " "
end if
%>
|
<% '----cleanup
cn.close
set cn = Nothing
set rs0 = Nothing
set rs1 = Nothing
%>