%'Include Data Connection%> <%'Include ADO constants include file for VBScript%> <% 'open data connection OpenConn() %> <% 'diplay dynamic text and images Response.Write "
" & GetUrlBodyAlt(Session("CurrentURL")) & "
" 'close data connection Call CloseConn() %>