<%@ Language=VBScript%> <% 'Option Explicit %>   <% SessionReset "INITITAL" If Session("TimeOut") = TRUE Then %>

SimpleTruth.com

<% Session("TimeOut") = FALSE End IF Session("cityID") = 0 'PUBLIC callingquery 'used in Functions to carry cityID and areaID DIM ACTIONMODE : ACTIONMODE="FIRST" 'for pass 1 through this page thisfilename = "default.asp" Session("PrivateMode") = "" 'INITIALIZE VARIABLES %> SimpleTruth.com - Current Information - Fast <% Function WriteDefaultMainMenu() DIM headingfont,messagefont headingfont = "" messagefont = "" %>

1

<%=headingfont%> Seminars and Programs
Simple Truth 		<%=messagefont%>
  • Dating For Marriage Program
  • Men Marry Wives - Not Single Women

2

<%=headingfont%> Books
Simple Truth Press 		<%=messagefont%>
  • Men Marry Wives - Not Single Women
<% End Function %> <% WriteSimpleTruthHeader SELECT CASE ACTIONMODE CASE "FIRST" WriteDefaultMainMenu ' WriteBillboardHeading FALSE ' FillState "center",BillboardpageURL,6,4,"#FF0000","#00FFFF",TRUE CASE ELSE rw("got to CASE ELSE with ACTIONMODE = " & ACTIONMODE) END SELECT%> <%'WriteFooterSimpleTruthWithBillboard FALSE 'do not include link exchange here for speed purposes %>