<% On Error Resume Next 'get the name of the page to configure strPageName = request("pagename") if strPageName = "" then strPageName = "Page1" 'response.write strPageName & "
" & vbcrlf 'get the name of the layout strSQL = "Select * FROM PageDef where PageName = '" & strPageName & "' " 'response.Write strSQL & "
" & vbcrlf set rs=server.CreateObject ("ADODB.Recordset") rs.open strSQL, objConn, 1 If Err.Number <> 0 then Response.Redirect "dinomsg.asp?msg=PageDef Read Error" end if if rs.eof then Response.Redirect "dinomsg.asp?msg=Invalid Page Name" end if 'save the current data strPageLayoutName = rs.fields("PageLayoutName") strThemeName=rs.fields("ThemeName") strPageTitle = rs.fields("PageTitle") strText = rs.fields("text") strIMG1Button = rs.fields("IMG1Button") strIMG1ButtonOver = rs.fields("IMG1ButtonOver") strIMG2_1 = rs.fields("IMG2_1") strIMG2_2 = rs.fields("IMG2_2") strIMG2_3 = rs.fields("IMG2_3") strIMG3_1 = rs.fields("IMG3_1") strIMG3_2 = rs.fields("IMG3_2") strIMG3_3 = rs.fields("IMG3_3") strIMG3_4 = rs.fields("IMG3_4") strIMG4_1 = rs.fields("IMG4_1") strIMG4_2 = rs.fields("IMG4_2") strIMG4_3 = rs.fields("IMG4_3") strIMG4_4 = rs.fields("IMG4_4") strIMG4_5 = rs.fields("IMG4_5") strIMG4_6 = rs.fields("IMG4_6") strIMG5_1 = rs.fields("IMG5_1") strIMG5_2 = rs.fields("IMG5_2") strIMG6_1 = rs.fields("IMG6_1") strIMG7_1 = rs.fields("IMG7_1") strBlob1 = rs.fields("Blob1") strBlob2 = rs.fields("Blob2") strBlob3 = rs.fields("Blob3") strBlob4 = rs.fields("Blob4") strBlob5 = rs.fields("Blob5") strBlob6 = rs.fields("Blob6") strTrailer = rs.fields("Trailer") strColour1 = rs.fields("Colour1") strColour2 = rs.fields("Colour2") strColour3 = rs.fields("Colour3") strColour4 = rs.fields("Colour4") strColour5 = rs.fields("Colour5") strColour6 = rs.fields("Colour6") rs.close set rs = nothing strSQL = "Select * FROM SiteDef" 'response.Write strSQL & "
" & vbcrlf set rs=server.CreateObject ("ADODB.Recordset") rs.open strSQL, objConn, 1 If Err.Number <> 0 then Response.Redirect "dinomsg.asp?msg=SiteDef Read Error" end if if rs.eof then Response.Redirect "dinomsg.asp?msg=Missing Site Def" end if 'save the current data strSiteTitle = rs.fields("SiteTitle") strStyleSheetSmall=rs.fields("StyleSheetSmall") strStyleSheetBig = rs.fields("StyleSheetBig") strMetaDescription = rs.fields("MetaDescription") strMetaKeywords = rs.fields("MetaKeywords") strReplyToEmail = rs.fields("ReplyToEmail") strCandidateFormPage = rs.fields("CandidateFormPage") strJobSearchPage = rs.fields("JobSearchPage") strBGColour = rs.fields("BackgroundColour") strButtonTextColourOff = rs.fields("ButtonTextColourOff") strButtonTextColourOver = rs.fields("ButtonTextColourOver") rs.close set rs = nothing strSQL = "Select IncludeNumber From PageLayoutDef where PageLayoutName='" & strPageLayoutName & "'" 'response.Write strSQL & "
" & vbcrlf set rs=server.CreateObject ("ADODB.Recordset") rs.open strSQL, objConn, 1 If Err.Number <> 0 then Response.Redirect "dinomsg.asp?msg=PageLayoutDef Read Error" end if if rs.eof then Response.Redirect "dinomsg.asp?msg=Invalid PageLayoutName Name" end if 'save the current data strIncludeNumber = rs.fields("IncludeNumber") rs.close set rs=nothing %> <% select case cint(strIncludeNumber) case 1 %> <% case 2 %> <% case 3 %> <% case 4 %> <% case 5 %> <% case 6 %> <% case 7 %> <% case 8 %> <% case 9 %> <% case 10 %> <% case 11 %> <% case 12 %> <% case 13 %> <% case 14 %> <% case 15 %> <% case 16 %> <% case 17 %> <% case 18 %> <% case 19 %> <% case 20 %> <% case 21 %> <% case 22 %> <% case 23 %> <% case 24 %> <% case 25 %> <% case 26 %> <% case 27 %> <% case 28 %> <% case 29 %> <% case 30 %> <% case 31 %> <% case 32 %> <% case 33 %> <% case 34 %> <% case 35 %> <% case 36 %> <% case 37 %> <% case 38 %> <% case 39 %> <% case 40 %> <% case else Response.Redirect "dinomsg.asp?msg=Invalid Include" end select %> <% objConn.Close set objConn = Nothing %>