<% If Not session("admin_loggedin" & strSUnique) = Session.SessionID then Response.Redirect "default.asp" If Request.form("HL1") = Empty then HL1 = 0: Else: HL1 = Request.form("HL1"): End If If Request.form("HL2") = Empty then HL2 = 0: Else: HL2 = Request.form("HL2"): End If If Request.form("HL3") = Empty then HL3 = 0: Else: HL3 = Request.form("HL3"): End If If Request.form("HL4") = Empty then HL4 = 0: Else: HL4 = Request.form("HL4"): End If If Request.form("HL5") = Empty then HL5 = 0: Else: HL5 = Request.form("HL5"): End If If Request.form("HR1") = Empty then HR1 = 0: Else: HR1 = Request.form("HR1"): End If If Request.form("HR2") = Empty then HR2 = 0: Else: HR2 = Request.form("HR2"): End If If Request.form("HR3") = Empty then HR3 = 0: Else: HR3 = Request.form("HR3"): End If If Request.form("HR4") = Empty then HR4 = 0: Else: HR4 = Request.form("HR4"): End If If Request.form("HR5") = Empty then HR5 = 0: Else: HR5 = Request.form("HR5"): End If If Request.form("C1") then EL = 1: Else: EL = 0: End If If Request.form("C2") then ER = 1: Else: ER = 0: End If If Request.form("C3") then SP = 1: Else: SP = 0: End If If Request.form("C4") then LP = 1: Else: LP = 0: End If If Request.form("C5") then RP = 1: Else: RP = 0: End If WL = Request.Form("D2") WR = Request.Form("D3") WO = Request.Form("D4") PS = Request.Form("D5") strSQL = "UPDATE " & tablPfx & "Advert SET " strSQL = strSQL & "adv1 = '" & sq(Request.form("L1")) & "', " strSQL = strSQL & "adv2 = '" & HL1 & "', " strSQL = strSQL & "adv3 = '" & sq(Request.form("L2")) & "', " strSQL = strSQL & "adv4 = '" & HL2 & "', " strSQL = strSQL & "adv5 = '" & sq(Request.form("L3")) & "', " strSQL = strSQL & "adv6 = '" & HL3 & "', " strSQL = strSQL & "adv7 = '" & sq(Request.form("L4")) & "', " strSQL = strSQL & "adv8 = '" & HL4 & "', " strSQL = strSQL & "adv9 = '" & sq(Request.form("L5")) & "', " strSQL = strSQL & "adv10 = '" & HL5 & "', " strSQL = strSQL & "adv11 = '" & sq(Request.form("R1")) & "', " strSQL = strSQL & "adv12 = '" & HR1 & "', " strSQL = strSQL & "adv13 = '" & sq(Request.form("R2")) & "', " strSQL = strSQL & "adv14 = '" & HR2 & "', " strSQL = strSQL & "adv15 = '" & sq(Request.form("R3")) & "', " strSQL = strSQL & "adv16 = '" & HR3 & "', " strSQL = strSQL & "adv17 = '" & sq(Request.form("R4")) & "', " strSQL = strSQL & "adv18 = '" & HR4 & "', " strSQL = strSQL & "adv19 = '" & sq(Request.form("R5")) & "', " strSQL = strSQL & "adv20 = '" & HR5 & "', " strSQL = strSQL & "adv21 = " & EL & ", " strSQL = strSQL & "adv22 = " & ER & ", " strSQL = strSQL & "adv23 = '" & WL & "', " strSQL = strSQL & "adv24 = '" & WR & "', " strSQL = strSQL & "adv25 = '" & WO & "', " strSQL = strSQL & "adv26 = '" & PS & "', " strSQL = strSQL & "adv27 = " & SP & ", " strSQL = strSQL & "adv28 = " & LP & ", " strSQL = strSQL & "adv29 = " & RP strSQL = strSQL & ";" objConn.Execute(strSQL) Application("advert" & strUnique) = Empty Response.Redirect "admin_advert.asp" %>