<% If objFile.FolderExists(Server.Mappath("innova")) then %> <% End If Response.Expires = -1000 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl="no-cache" Dim noRTE, catID, subCatID, cat3rdID, duration, isMozilla session("constrain" & strSUnique) = Empty Session("CSS_FOR_RTE") = web_site & dstyle If Wysiwyg_type = 1 AND NOT isCompatible then isWysiwyg = False: Wysiwyg_type = 0 If isWysiwyg then Select Case Wysiwyg_type Case 1 strCrawl = "?y=y" If isMozilla then Response.Write "" mozpath = "moz/" Else: Response.Write "" End If End Select End If setLocale server_locale update = false If session("user_logged_moderator" & strSUnique) Or Session("admin_loggedin" & strSUnique) = Session.SessionID then moderator = True Dim imgDim(10,1), uOtpArrayValue(7) If Request.Querystring.Count = 1 then Session("Load_Free_Duration" & strSUnique) = Empty adID = Request.Querystring.Item(1) Set rs = objConn.Execute("SELECT " & tablPfx & "Ads.* FROM " & tablPfx & "Ads WHERE adID = '" & adID & "';") If rs.EOF then iError = True Else descr = rs(14) descr = Replace(descr, "
", vbcr) userID = rs(4) status = rs(15) Select Case moderator Case True update = true msg = msgUpdate Case Else If CStr(userID) = CStr(session("user_logged_ID" & strSUnique)) then adOwner = True update = true msg = msgUpdate Else iError = True msg = msgNoAccess End If End Select If not iError then display = "" & strText_UpdateAd & "" End If Else update = false If isnotfree and not session("allow_post" & strSUnique) then Response.Redirect "post_start.asp" If CStr(session("user_logged_ID" & strSUnique)) = Empty then Response.Redirect "register.asp" Response.Cookies("allow_post" & strSUnique) = "True" Response.Cookies("user_logged_ID" & strSUnique) = CStr(session("user_logged_ID" & strSUnique)) Response.Cookies("user_logged_nick" & strSUnique) = Session("user_logged_nick" & strSUnique) Response.Cookies("user_logged_city" & strSUnique) = Session("user_logged_city" & strSUnique) Response.Cookies("final_price" & strSUnique) = Session("final_price" & strSUnique) Response.Cookies("user_logged_email" & strSUnique) = Session("user_logged_email" & strSUnique) Response.Cookies("hotlist" & strSUnique) = Session("hotlist" & strSUnique) Response.Cookies("image_limit" & strSUnique) = Session("image_limit" & strSUnique) catID = session("Select_CategoryID" & strSUnique) catName = Session("Select_Category" & strSUnique) subCatID = session("Select_SubCategoryID" & strSUnique) subCatName = Session("Select_SubCategory" & strSUnique) strTreePath = catName & " > " & subCatName If not session("Select_3rdCategoryID" & strSUnique) = Empty then cat3rdID = session("Select_3rdCategoryID" & strSUnique) cat3rdName = session("Select_3rdCategory" & strSUnique) strTreePath = strTreePath & " > " & cat3rdName End If If session("Select_Category" & strSUnique) = Empty Or session("Select_SubCategory" & strSUnique) = Empty then Response.Redirect "post_new1.asp" End If userID = session("user_logged_ID" & strSUnique) uPA = Session("Attach_Image" & strSUnique) If isArray(uPA) then uploadPic = True For L = 1 to 10 If not uPA(L,0) = Empty then imgDim(L,0) = CLng(Split(uPA(L,1), "x")(0)) imgDim(L,1) = CLng(Split(uPA(L,1), "x")(1)) If imgDim(L,0) > 100 then koef = imgDim(L,0) / imgDim(L,1) imgDim(L,0) = 100 imgDim(L,1) = Round(100 / koef) End If strImg = strImg & uPA(L,0) & "|" & uPA(L,1) & sf End If Next End If msg = msgHead strRedirect = "catid=" & catID & "&subcatID=" & subCatID & "&3rdcatID=" & cat3rdID display = "" & strText_PostAdIn & "" & strTreePath & "" End If %>
<%= strText_Home %>::<%= display %>
<% If update then catID = rs(2) subcatID = rs(3) status = rs(15) city = rs(8) posted = rs(5) expire = rs(6) duration = Round(CDate(expire) - CDate(posted), 0) iDate = rs(5) imgString = rs(12) strImg = imgString If len(imgString) > 0 then adImgArray = Split(imgString, sf) imgArrayDim = UBound(adImgArray) - 1 uploadPic = True Dim uPA(10,0) For d = 0 to imgArrayDim x = d + 1 uPA(x,0) = Split(adImgArray(d), "|")(0) adSize = Split(adImgArray(d), "|")(1) imgDim(x,0) = CLng(Split(adSize, "x")(0)) imgDim(x,1) = CLng(Split(adSize, "x")(1)) If imgDim(x,0) > 100 then koef = imgDim(x,0) / imgDim(x,1) imgDim(x,0) = 100 imgDim(x,1) = Round(100 / koef) End If Next End If subject = rs(9) phone = rs(10) URL = rs(11) If Len(URL) > 0 then If instr(URL, "//") <> 0 then urlPrefix = Split(URL, "//")(0) urlLink = Replace(URL, urlPrefix & "//", "") End If End If onlineImg = rs(13) button = strText_UpdateAd If ispack then set rsfreecat = objConn.Execute("SELECT ID FROM " & tablPfx & "Cat WHERE (catID = " & catID & " AND isfree = 1);") If not rsfreecat.EOF then Session("Load_Free_Duration" & strSUnique) = True: Else: Session("Load_Free_Duration" & strSUnique) = Empty rsfreecat.close End If Else button = strText_PostAd End If If not iError then %>

<% If uploadPic then %> <% End If If update then %> <% End If If session("Count_Image" & strSUnique) < 10 And Not update then Response.Write "" If isnotfree And Not Session("Load_Free_Duration" & strSUnique) then If update then durval = duration: Else: durval = Session("duration_limit" & strSUnique) Response.Write "" Response.Write "" Response.Write "" If not update then Response.Write "" Response.Write "" End If Else: Call freeAdsDuration() End If %> <% If update then For q = 0 to 7 uOtpArrayValue(q) = rs("uOpt" & q+1) Next Else If isArray(session("Temp_UserArray" & strSUnique)) then For q = 0 to 7 uOtpArrayValue(q) = session("Temp_UserArray" & strSUnique)(q) Next Else strSQL = "SELECT " & tablUPfx & "User.opt1, " & tablUPfx & "User.opt2, " & tablUPfx & "User.opt3, " & tablUPfx & "User.opt4, " & tablUPfx & "User.opt5, " & tablUPfx & "User.opt6, " strSQL = strSQL & tablUPfx & "User.opt7, " & tablUPfx & "User.opt8 FROM " & tablUPfx & "User WHERE userID = " & userID & ";" set rs = objConn.Execute(strSQL) If not rs.EOF then For q = 0 to 7 uOtpArrayValue(q) = rs(q) Next session("Temp_UserArray" & strSUnique) = uOtpArrayValue End If rs.close End If End If For ruo = 0 to 6 If Not uOpt(ruo) = Empty Then If CStr(uOptType(ruo)) = "0" then strInput = "" Else set rsOpt = objConn.Execute("SELECT * FROM " & tablPfx & "OptTypes WHERE optionName = '" & uOptType(ruo) & "';") If rsOpt.EOF then strInput = "" Else inputMatch = False noMatchDisable = Empty ccheckBox = Empty ctextBox = "disabled" nextOptString = Empty strCustom = Empty nextOptValues = CStr(rsOpt(2)) nextAllowCustom = CBool(rsOpt(3)) nextCustomName = CStr(rsOpt(4)) nextOptBlank = CStr(rsOpt(5)) nextSearchOnly = CBool(rsOpt(8)) nextOptValuesA = Split(nextOptValues, sf) If nextSearchOnly then strInput = vbcrlf & " -Number Only" & vbcrlf Else For bo = 0 to Ubound(nextOptValuesA) optValue = nextOptValuesA(bo) optText = optValue If optText = uOtpArrayValue(ruo) then sel = "selected": inputMatch = True: Else sel = "": End If If nextOptBlank = optValue then optValue = Empty nextOptString = nextOptString & "" & vbcrlf Next If nextAllowCustom then If Not inputMatch then noMatchDisable = "disabled" ccheckBox = "checked" ctextBox = Empty Else: uOtpArrayValue(ruo) = Empty End If strCustom = "  " & nextCustomName & " " strCustom = strCustom & " " End If strInput = vbcrlf & "" & vbcrlf & strCustom End If End If rsOpt.close End If %> <% End If Next If uOpt(7) = "1" then Set sFolder = objFile.GetFolder(Server.MapPath(".")) For each fl in sFolder.Files sName = lCase(fl.Name) If Right(sName, 4) = ".css" then sDisplayName = Replace(lcase(sName), ".css", "") If lcase(sName) = lcase(uOtpArrayValue(7)) then sOptions = sOptions & "" Else: sOptions = sOptions & "" End If End If Next %> <% End If %> <% strSQL = "SELECT * FROM " & tablPfx & "Cat WHERE catID = " & catID & ";" set rsCat = objConn.Execute(strSQL) If not rsCat.EOF then For op = 1 to 20 nextOptFieldName = rsCat("catOpt" & op) nextOptType = rsCat("catOptType" & op) If Not isNull(nextOptFieldName) then If len(nextOptFieldName) > 0 then If update then userValue = Replace(rs("opt" & op), sg, "") If CStr(nextOptType) = "0" then strInput = "" Else set rsOpt = objConn.Execute("SELECT * FROM " & tablPfx & "OptTypes WHERE optionName = '" & nextOptType & "';") If rsOpt.EOF then strInput = "" Else inputMatch = False noMatchDisable = Empty ccheckBox = Empty ctextBox = "disabled" nextOptString = Empty strCustom = Empty nextOptValues = CStr(rsOpt(2)) nextAllowCustom = CBool(rsOpt(3)) nextCustomName = CStr(rsOpt(4)) nextOptBlank = CStr(rsOpt(5)) nextIsHidden = CBool(rsOpt(6)) nextSearchOnly = CBool(rsOpt(8)) If nextSearchOnly then strInput = " -Number Only" & vbcrlf Else nextOptValuesA = Split(nextOptValues, sf) For bo = 0 to Ubound(nextOptValuesA) optValue = nextOptValuesA(bo) optText = Replace(optValue, sg, "") If update AND optText = userValue then sel = "selected": inputMatch = True: Else sel = "": End If If nextOptBlank = optValue then If nextIsHidden then optValue = sg Else: optValue = Empty End If End If nextOptString = nextOptString & "" & vbcrlf Next If nextAllowCustom then If Not inputMatch AND update then noMatchDisable = "disabled" ccheckBox = "checked" ctextBox = Empty Else: userValue = Empty End If strCustom = "  " & nextCustomName & " " strCustom = strCustom & " " End If strInput = vbcrlf & "" & vbcrlf & strCustom If nextIsHidden then strInput = strInput & " - Hidden" End If End If rsOpt.close End If %> <% End If End If Next End If rsCat.close Set rsCat = Nothing %> <% If (noRTE Or not isWysiwyg) AND Wysiwyg_type <> 1 then %> <% End If %>

<%= msg %>


<% For L = 1 to 10 If Not uPA(L,0) = Empty then If L = 6 then strImgCell1 = strImgCell strImgCell = Empty End If strImgCell = strImgCell & "" End If Next If Not update then For L = 1 to 10 If Not uPA(L,0) = Empty then If L = 6 then strImgLinks1 = strImgLinks strImgLinks = Empty End If strImgLinks = strImgLinks & "" End If Next End If If Len(strImgCell1) > 0 then Response.Write strImgCell1 & "" If not update then Response.Write "" & strImgLinks1 & "" End If Response.Write strImgCell If not update then Response.Write "" & strImgLinks %>
" & strText_Remove & "
" If L = 1 Then If not uPA(L+1,0) = Empty then strImgLinks = strImgLinks & "" ElseIf L = 10 then strImgLinks = strImgLinks & "" Else If L > 1 And uPA(L+1,0) = Empty then strImgLinks = strImgLinks & "" ElseIf Not uPA(L+1,0) = Empty then strImgLinks = strImgLinks & " " strImgLinks = strImgLinks & "" End If End If strImgLinks = strImgLinks & "
<% If status = 1 then Response.Write "" & strText_Disable & " | " %><%= strText_Edit %> <%= strText_Images %>
" & strText_AddImages & "
" & strText_AdDuration & ":  " & durval & " " & strText_days & "
" & strText_PriceForAd & ":  " & Session("final_price" & strSUnique) & "
<%= strText_PersonalInformation %>:
<%= uOpt(ruo) %>:   <%= strInput %>
<%= strText_PreferredAdStyle %>: 
<%= strText_Phone %>:  
<%= strText_UserWebSite %>:  
<%= strText_CrawlSite %> <%= strText_CrawlSiteMessage %>
<%= strText_AdInformation %>:
* <%= strText_Subject %>:  
<%= nextOptFieldName %>:   <%= strInput %>
<%= strText_URLImage %>:   type="text" size="46" class="forms" name="P4" value="<%= onlineImg %>">
* <%= strText_AdDescription %>:  
<% If isWysiwyg then Select Case Wysiwyg_type Case 1 showLimit = False passDescr = "oform.P5.value = oEdit1.getHTMLBody();var descr = oform.P5.value;" adPreviewScript = "descr.value=oEdit1.getHTMLBody();" Response.Write "
" & strText_Tags & "
" %> <% End Select Else passDescr = "var descr = oform.P5.value;" adPreviewScript = "document.getElementById('descr').value = document.getElementById('P5').value;" End If If Wysiwyg_type <> 1 then %> <% End If %>
<%= strText_CharactersLeft %>:  
 
<% End If %>
<% Sub freeAdsDuration() %> <%= strText_RunMyAdfor %>:   <% Call loadScheme(CLng(catID),CLng(subCatID),CLng(cat3rdID),False) For I = 25 to 29 If not CStr(ppArray(I)) = "0" then If CStr(duration) = CStr(ppArray(I)) then strFreeOpt = strFreeOpt & "" Else: strFreeOpt = strFreeOpt & "" End If End If Next %> <% End Sub %>