<% s = chr(15) sf = chr(166) web_name = Application("Classify_Main_Config" & strUnique)(0) web_site = Application("Classify_Main_Config" & strUnique)(1) build_Meta %> <%= result_web_name %> <% Dim optArray(20) msgNoAd = "
" & strText_AdisnotFound & "

" & msgBack If session("admin_loggedin" & strSUnique) = Session.SessionID Or session("user_logged_moderator" & strSUnique) then moderator = True If request.querystring.count = 1 then adID = CStr(request.querystring.item(1)) If not isNumeric(adID) Then Response.End strSQL = "SELECT " & tablPfx & "Ads.*, " & tablPfx & "Cat.*, " & tablPfx & "Scat.scatName FROM " & tablPfx & "Ads, " & tablPfx & "Cat, " & tablPfx & "Scat" strSQL = strSQL & " WHERE (adID = '" & adID & "' AND " & tablPfx & "Cat.catID = " & tablPfx & "Ads.catID AND " & tablPfx & "Scat.sCatID = " & tablPfx & "Ads.scatID);" rs.CursorType = 3 rs.Open strSQL, objConn If rs.EOF then Response.Write msgNoAd Else: showAd = True End If Else: Response.Write msgNoAd End If If not showAd then rs.close Else catID = rs(2) scatID = rs(3) catName = rs("catName") For co = 1 to 20 optArray(co) = rs("catOpt" & co) Next subcatName = rs("scatName") adDescr = rs(14) If not Instr(1, adDescr, "", 1) = 0 then adDescr = encodeURL(adDescr) %>

<%= web_name %>

<%= strText_Home %>::<%= catName %>::<%= subcatName %>::<%= strText_PrintFriendlyView %>
<% datePosted = FormatDateTime(rs(5), 1) dateExpire = FormatDateTime(rs(6), 1) nick = rs(7) userWeb = rs(11) If userWeb = Empty then noSite = True Else userWeb = "" & userWeb & "" End If city = rs(8) If city = Empty then noCity = True adPhone = rs(10) If adPhone = Empty then noPhone = True sbg = rs(9) adImgTempArray = rs(12) If not adImgTempArray = Empty then img = True adImgArray = Split(adImgTempArray, sf) imgArrayDim = UBound(adImgArray) - 1 strImgDisplay = "
" & vbCrLf For d = 0 to imgArrayDim If d = 5 then strImgDisplay = strImgDisplay & "" adImg = Split(adImgArray(d), "|")(0) adSize = Split(adImgArray(d), "|")(1) w = CLng(Split(adSize, "x")(0)) h = CLng(Split(adSize, "x")(1)) wa = w ha = h If w > 120 then koef = w / h w = 120 h = Round(120 / koef) End If strImgDisplay = strImgDisplay & "" Next strImgDisplay = strImgDisplay & "
" End If %>
<% For uo = 0 to 6 uOpt(uo) = Application("Classify_Main_Config" & strUnique)(uo+14) Next For uo = 0 to 6 If Not uOpt(uo) = Empty Then nextUserOpt = rs(uo+20) If Not nextUserOpt = Empty Then %> <% End If End If Next If not noPhone Then %> <% End If If not noCity Then %> <% End If If not noSite Then %> <% End If %> <% For I = 1 to 20 If not optArray(I) = Empty AND not IsNull(optArray(I)) then nextAdOpt = rs("opt" & I) If not nextAdOpt = Empty AND not IsNull(nextAdOpt) And instr(nextAdOpt, sg) = 0 then %> <% End If End If Next %>
<%= sbg %>
<%= strText_AdPosted %>:<%= datePosted %>
<%= strText_AdExpire %>:<%= dateExpire %>
<%= strText_UserInformation %>:  
  
 <%= strText_Postedby %>:<%= nick %>
 <%= uOpt(uo) %>:<%= nextUserOpt %>
 <%= strText_Phone %>:<%= adPhone %>
 <%= strText_UserLocation %>:<%= city %>
 <%= strText_AdInformation %>:<%= userWeb %>
  
Ad Information:  
  
 <%= optArray(I) %>:<%= nextAdOpt %>
 
 <%= strText_AdDescription %>:

<%= adDescr %>
 
<% If img then %> <% End If %>

<% rs.close If img Then Response.Write strImgDisplay End if End If %>
 
<%= strText_BacktoDetailedView %>
 

<%= web_name %>
<% Set rs = Nothing objConn.close Set objConn = Nothing %>