<% 'Include Security Server.Execute("/admin/includes/popup_security.asp") %> <%'Include Data Connection%> <%'Include ADO constants include file for VBScript%> <% 'open data connection OpenConn() %> <%'Include Utility Scripts%> <% 'close data connection CloseConn() %> <% 'dim strMode - The strMode variable is defined in the header_inc.asp file. 'dim strLanguage - The strLanguage variable is defined in the common_utils.asp file. dim intUrlId dim intDisplayTypeId dim intPostingTypeId dim intSectionId dim strUrl dim strUrlBody dim bolUsesAltTemplate 'if form elements have been submitted then... If Request.Form <> "" Then 'set the posting info variables with the relevant form element values strMode = Trim(Request.Form("txtMode")) intUrlId = Trim(Request.Form("txtId")) intSectionId = Trim(Request.Form("txtSectionId")) intDisplayTypeId = Trim(Request.Form("selDisplayType")) intPostingTypeId = Trim(Request.Form("selPostingType")) bolUsesAltTemplate = (Request.Form("chkAltTemplate")="1") 'if the whole url is in the txturl form element then... If Request.Form("selFolders") = "" Then strUrl = Trim(Replace(Request.Form("txtUrl"), Chr(92), "/")) Else strUrl = Trim(Replace(Request.Form("selFolders"), Chr(92), "/") & "/" & Trim(Request.Form("txtUrl"))) End If strUrlBody = Trim(Request.Form("txtUrlBody")) 'if form elements have not been submitted then... Else 'redirect the user to the posting type index Response.Redirect("/admin/urls.asp") End If %>

<% 'evaluate the user's selection of display type for the current posting... Select Case True 'if the current posting's content is dyanic (HTLM) text and images then... Case (CInt(intDisplayTypeId) = 4) 'output the HTML text and images Response.Write "

" & strUrl & "

" & "

" & strUrlBody & "

" End Select %>