% response.buffer=True %>
<%
dim image_id
image_id = request.querystring("image_id")
response.write("" & VbCrLf)
response.write("" & VbCrLf)
response.write("
" & VbCrLf)
response.write("" & VbCrLf)
strSQL = "Select * from images where image_id = " & image_id
Set rs = LoadRSFromDB(strSQL)
if not rs.EOF then
response.write("
" & rs("image_title") & "
" & VbCrLf)
response.write("
![]()
" & VbCrLf)
end if
response.write("
" & VbCrLf)
Response.Write("
" & VbCrLf)
Response.Write("" & VbCrLf)
Response.Write("" & VbCrLf)
%>