<% response.redirect("default.htm")
dim whichSection
dim whichPage
dim the_Title, the_Top_Banner_Ad, the_free_resources, the_book_store, the_shopping_cart
dim the_clergy_email, the_network_resources, the_information, the_promo
dim theContent, the_top_menu, the_sub_menu
whichSection = clean(request("whichSection"), "Illustrations")
whichPage = clean(request("whichPage"), "Home")
whichOne = clean(request("whichOne"), "a")
whichOne2 = clean(request("whichOne2"), "")
if trim(whichOne) <> "" Then
whichOne = whichOne & "\"
end if
theType = clean(request("theType"), "Thefiles")
theType2 = clean(request("theType2"), "folder")
if whichPage <> "" Then
the_Title = replace(whichPage, "_", " ")
end if
the_free_resources = buildMenu("free_resources")
the_book_store = buildMenu("Illustrations")
the_network_resources = buildMenu("network_resources")
the_information = buildMenu("information")
the_top_menu = buildTopMenu(whichSection)
the_sub_menu = buildSubMenu("default.asp", "Illustrations")
the_promo = getFile(Server.MapPath("..\inc\illustrations_statement.html"))
the_clergy_email = getFile(Server.MapPath("..\inc\theClergy.html"))
the_user_info = userLoginInfo(session_id)
tempEsermonsLogin = getFile(Server.MapPath("..\inc\eSermonsLogin.html"))
the_shopping_cart = the_shopping_cart & tempEsermonsLogin
theContentSQL = "SELECT theContent from table_contents where whichPage = 'default.asp' and whichSection ='illustrations'"
theContent = execSQL(theContentSQL, "getValue")
tempFile = getFile(Server.MapPath("..\templates\mainpageNoTopBreak.html"))
Set FileObject = CreateObject("Scripting.FileSystemObject")
If FileObject.FileExists("d:\InetPub\wwwroot\christianglobe\illustrations\index.html") Then
tempMetaTags = getFile(Server.MapPath("index.html"))
if instr(tempMetaTags, "") Then
tempMetaTags = right(tempMetaTags, len(tempMetaTags) - instr(tempMetaTags, "<title>")+1)
end if
if instr(tempMetaTags, "<!-- the end -->") Then
tempMetaTags = left(tempMetaTags, instr(tempMetaTags, "<!-- the end -->")-1)
end if
if trim(tempMetaTags) <> "" then
tempFile = replace(tempFile, "<title>ChristianGlobe.com :: the_Title", tempMetaTags)
end if
end if
set FileObject = nothing
'if trim(whichOne2) = "" Then
' tempList = getFolderContents(Server.MapPath("a-z\a"), "Thefiles")
'end if
if trim(whichOne2) = "" Then
tempList = getFolderContents(Server.MapPath("a-z\" & whichOne), theType)
end if
theContent = theContent & tempList
tempBoxes = getAdBoxes()
tempFile = replace(tempFile, " & )
", "")
tempFile = replace(tempFile, "the_Title", the_Title)
the_Search_Bar = getSearchBar(Cat_ID, "1")
tempFile = replace(tempFile, "the_user_info", the_user_info)
tempFile = replace(tempFile, "the_user_info", the_user_info)
tempFile = replace(tempFile, "the_Search_Bar", the_Search_Bar)
tempFile = replace(tempFile, "the_top_menu", the_top_menu)
tempFile = replace(tempFile, "the_sub_menu", the_sub_menu)
tempFile = replace(tempFile, "the_free_resources", the_free_resources)
tempFile = replace(tempFile, "the_book_store", the_book_store)
tempFile = replace(tempFile, "the_network_resources", the_network_resources)
tempFile = replace(tempFile, "the_information", the_information)
tempFile = replace(tempFile, "the_clergy_email", the_clergy_email)
tempFile = replace(tempFile, "the_promo", the_promo)
tempFile = replace(tempFile, "the_shopping_cart", the_shopping_cart)
tempFile = replace(tempFile, "the_Top_Banner_Ad", the_Top_Banner_Ad)
tempFile = replace(tempFile, "", tempBoxes)
tempFile = replace(tempFile, "theContent", theContent)
response.write tempFile
%>