<%'Include Data Connection%> <%'Include ADO constants include file for VBScript%> <% 'open data connection Call OpenConn() %> <%'Include Utility Scripts%> This page displays the following posting:
Select a type of Posting... <% dim intPostingTypeId 'get the session variable into intPostingTypeId (since this file is called from Server.Exectue) intPostingTypeId = Session("PostingTypeId") 'if the posting type id is numeric then... If intPostingTypeId <> "" And IsNumeric(intPostingTypeId) Then 'cast intPostingTypeId as an integer intPostingTypeId = CInt(intPostingTypeId) End If 'display the posting type options Response.Write GetPostingTypeOptions(intPostingTypeId) %> <% 'close data connection CloseConn() %>