
<% If request("imgDisp") = "" then
display = " "
response.write ""
response.write rs("imgTitle")
response.write ""
story = rs("imgDesc")
Else
Set rsGet = conn.Execute("SELECT * FROM portImages WHERE portImages.imgId=" & request("imgDisp") & ";")
display = " "
response.write ""
response.write rsGet("imgTitle")
response.write ""
story = rsGet("imgDesc")
%>
<% End If %>
 |
 |
 |
 |
<%= display %> |
 |
 |
 |
 |
<% If story <> "" then%>
|
PORTRAIT DETAILS:
<%= story %>
|
|
<% End If %>
|
 |


| Click on any of the “Now Showing” names to reveal a unique cartoon.

|
<%
buildLoop = 0
While NOT rs.EOF
buildLoop = buildLoop + 1
response.write ""
If imgSelect = buildLoop then
response.write " "
End If
response.write " | "
response.write ""
response.write rs("imgTitle")
response.write " | "
response.write " "
rs.MoveNext
Wend
%>
|
 |
<%Set rs = conn.Execute("SELECT * FROM qtMovies WHERE qtMovies.imgPub = 1 ORDER BY qtMovies.imgTitle;")
While NOT rs.EOF
response.write " | "
response.write ""
response.write ""
response.write rs("imgTitle") & ""
response.write "
| "
rs.MoveNext
Wend
rs.MoveFirst
%>
|
 |
|
www.kingmini.com
|
|
www.kevinpope.com
|
|
|
 |
|