<% Dim kickerpos dim kickertypeID dim kickerData dim kickerLink Dim gatewayTemplateData Dim templateLinkID Dim redirectBackURL templateLinkID = getRequestValue("templateLinkID") kickerpos = getRequestValue("kpos") redirectBackURL = HTTP_HOST & "templates/gateway.asp?navID=" & navID & "&trot@dmin=@dm1n" if getRequestValue("kickercancel") <> "" or Request.Form("kickercancel.x").Count > 0 then Response.redirect redirectBackURL end if if Request.Form("kickerupdate")<> "" or Request.Form("kickerupdate.x").Count > 0 then Dim newKickerLink Dim newKickerText Dim newKickerImage Dim newKickerType Dim newkickerData Dim adminlssql Dim radmin newKickerLink = Request.Form("kickerLink") newKickerText = Request.Form("kickertext") newKickerImage = Request.Form("kickerImage") newKickerType = Request.Form("templatetype") 'Response.Write "newKickerLink:" & newKickerLink & "
" 'Response.Write "newKickerText:" & newKickerText & "
" 'Response.Write "newKickerImage:" & newKickerImage & "
" 'Response.Write "newKickerType:" & newKickerType & "
" 'Response.End if newKickerType = "2" then 'text is selected newKickerImage = "" 'blank the image newkickerData = newKickerText elseif newKickerType = "1" then 'image is selected Dim sToReplaceText newKickerText = "" sToReplaceText = VIRTUAL_FOLDER & "/images/" newKickerImage = replace(newKickerImage, sToReplaceText, "") newkickerData = newKickerImage end if adminlssql = "SELECT COUNT(*)cnt FROM WP_TEMPLATE_KICKER_DATA " &_ " WHERE TEMPLATE_LINK_ID = (SELECT TOP 1 TEMPLATE_LINK_ID FROM WP_TEMPLATE_LINK WHERE CATEGORY_ID = " & navID& ")" &_ " and KICKER_ID = " & kickerpos radmin = getRecordSetList(adminlssql) IF radmin(1)(1) = "0" then adminlssql = "insert into WP_TEMPLATE_KICKER_DATA (TEMPLATE_LINK_ID, KICKER_ID) " &_ " SELECT TOP 1 TEMPLATE_LINK_ID, " & kickerpos & " FROM WP_TEMPLATE_LINK WHERE CATEGORY_ID = " & navID connection.execute adminlssql end if adminlssql = "UPDATE WP_TEMPLATE_KICKER_DATA SET TEMPATE_KICKER_TYPE_ID = " & newKickerType &_ ", KICKER_DATA = " & getQuotedString(newkickerData) &_ ", KICKER_LINK = " & getQuotedString(newKickerLink) &_ " WHERE TEMPLATE_LINK_ID = (SELECT TOP 1 TEMPLATE_LINK_ID FROM WP_TEMPLATE_LINK WHERE CATEGORY_ID = " & navID& ")" &_ " and KICKER_ID = " & kickerpos connection.execute adminlssql 'Response.Write adminlssql 'Response.end Response.redirect redirectBackURL end if getKickerSlotData navID, kickertypeID function getTemplateKickerTypeDropdown(selkick) dim adminlsql adminlsql = "SELECT TEMPATE_KICKER_TYPE_ID, TEMPATE_KICKER_TYPE_NAME FROM WP_TEMPATE_KICKER_TYPE" Dim varItem dim radmin dim selected radmin = getRecordSetList(adminlsql) For GENERIC_VARIABLE=1 to UBound(radmin) varItem = radmin(GENERIC_VARIABLE) selected = "" if trim(selkick) = radmin(GENERIC_VARIABLE)(1) then selected = " selected " end if Response.Write "