%
'###############################################################
'#####
'##### Project: Korck Publishing
'##### Developer: Schalk Botha
'##### Development Date: 21 September 2005
'#####
'###############################################################
'###|___| System Initialisation |_____|####################
'###|___| Marquee Links |_____|####################
set conn=server.createobject("ADODB.connection")
conn.open strDbConn
'get all posters for scrolling marquee
sqlString = "SELECT * FROM korck_posters WHERE pos_index < 3999 ORDER BY pos_index"
set rs = conn.execute(sqlString)
tdCount = 0
posCount = 0
while not rs.eof
pos_title = rs("pos_title")
pos_description = rs("pos_description")
pos_id = rs("pos_id")
pos_index = rs("pos_index")
posCount = posCount + 1
marqueeHTML = marqueeHTML & ""& pos_title &" - "
rs.moveNext
wend
'sqlString = "SELECT * FROM korck_posters WHERE pos_index = " & cint(request.querystring("pos_id")*10)
sqlString = "SELECT * FROM korck_posters WHERE pos_id = " & request.querystring("pos_id")
set rs = conn.execute(sqlString)
if not rs.eof then
pos_title = rs("pos_title")
pos_img2 = rs("pos_img1")
pos_img3 = rs("pos_img3")
pos_description = rs("pos_description")
pos_location = rs("pos_location")
pos_size = rs("pos_size")
pos_isbn = rs("pos_isbn")
pos_id = rs("pos_id")
pos_index = rs("pos_index")
pos_price_ZAR = rs("pos_price_ZAR")
pos_price_GBP = rs("pos_price_GBP")
pos_price_USD = rs("pos_price_USD")
pos_price_AUD = rs("pos_price_AUD")
if inStr(pos_price_ZAR,".") = 0 then
'add ".00" to amount
pos_price_ZAR = pos_price_ZAR & ".00"
end if
if inStr(pos_price_GBP,".") = 0 then
'add ".00" to amount
pos_price_GBP = pos_price_GBP & ".00"
end if
if pos_price_GBP = "7.5" then
'add ".00" to amount
pos_price_GBP = "7.50"
end if
if inStr(pos_price_USD,".") = 0 then
'add ".00" to amount
pos_price_USD = pos_price_USD & ".00"
end if
if pos_price_USD ="12.5" then
'add ".00" to amount
pos_price_USD = "12.50"
end if
if inStr(pos_price_AUD,".") = 0 then
'add ".00" to amount
pos_price_AUD = pos_price_AUD & ".00"
end if
end if
%>
[Note] Click on the poster image or arrow (above) to see a near actual size portion of the poster...This will give you an idea of the quality and detail of our posters.
Or click here for a "zoomed in" section of the poster...
<%
if pos_id > 1 then
%>
[">Back]
<%
end if
%><%=pos_id%> / <%=posCount%><%
if pos_id < posCount then
%>
[">Next]
<%
end if
%>
<% if session("googleAnalyticsOn") = true then %>
<% end if %>