%
If Not Sess_Array(48) = Session.SessionID then
UpdateSessions False
Response.Redirect "default.asp"
End If
If Request.Form("RW") > 0 then
strSQL = "UPDATE " & tablPfx & "Main SET "
strSQL = strSQL & "head_left1 = '" & sq(Request.Form("HTL1")) & "', head_left2 = '" & sq(Request.Form("HTL2")) & "', head_left3 = '" & sq(Request.Form("HTL3")) & "', "
strSQL = strSQL & "head_right1 = '" & sq(Request.Form("HTR1")) & "', head_right2 = '" & sq(Request.Form("HTR2")) & "', head_right3 = '" & sq(Request.Form("HTR3")) & "', "
strSQL = strSQL & "display_left1 = " & CLng(Request.Form("CL1")) & ", display_left2 = " & CLng(Request.Form("CL2")) & ", display_left3 = " & CLng(Request.Form("CL3")) & ", "
strSQL = strSQL & "display_right1 = " & CLng(Request.Form("CR1")) & ", display_right2 = " & CLng(Request.Form("CR2")) & ", display_right3 = " & CLng(Request.Form("CR3")) & ", "
strSQL = strSQL & "top_left1 = " & CLng(Request.Form("CLN1")) & ", top_left2 = " & CLng(Request.Form("CLN2")) & ", top_left3 = " & CLng(Request.Form("CLN3")) & ", "
strSQL = strSQL & "top_right1 = " & CLng(Request.Form("CRN1")) & ", top_right2 = " & CLng(Request.Form("CRN2")) & ", top_right3 = " & CLng(Request.Form("CRN3")) & ", "
strSQL = strSQL & "with_left = " & CLng(Request.Form("LW")) & ", with_right = " & CLng(Request.Form("RW")) & ", editor_pick = '" & Request.Form("R1") & "';"
objConn.Execute(strSQL)
UpdateSessions False
Response.Redirect "admin_main.asp"
End If
strSQL = "SELECT * FROM " & tablPfx & "Main;"
set rs = objConn.Execute(strSQL)
head_left1 = rs(1): display_left1 = rs(2): top_left1 = rs(3)
head_left2 = rs(4): display_left2 = rs(5): top_left2 = rs(6)
head_left3 = rs(7): display_left3 = rs(8): top_left3 = rs(9)
head_right1 = rs(10): display_right1 = rs(11): top_right1 = rs(12)
head_right2 = rs(13): display_right2 = rs(14): top_right2 = rs(15)
head_right3 = rs(16): display_right3 = rs(17): top_right3 = rs(18)
with_left = rs(19): with_right = rs(20): faq = rs(21)
rs.close
%>