<% Dim optArray(20) showPhoto = CBool(largeimage) 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 userID = rs(4) status = CLng(rs(15)) If CStr(userID) = CStr(session("user_logged_ID" & strSUnique)) then adOwner = True If Not moderator And Not adOwner then If status = 0 Or status = 2 then showAd = False Else: showAd = True End If Else: showAd = True End If End If Else: Response.Write msgNoAd End If If not showAd then rs.close Response.Write msgNoAd Else Select Case status Case 0: adStatus = strText_NotActive Case 2: adStatus = strText_Expired Case 1: adStatus = strText_Active Case 3: adStatus = strText_Disabled End Select catID = rs(2) scatID = rs(3) cat3rdID = CLng(rs("cat3rdID")) If cat3rdID > 0 then set rs3 = objConn.Execute("SELECT scatName FROM " & tablPfx & "Scat WHERE sCatID = " & cat3rdID & ";") If Not rs3.EOF then cat3rdName = rs3(0) Else: cat3rdID = 0 End If rs3.close End If 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) %>
<%= strText_Home %>:: <%= strText_CategoriesList %>:: <%= catName %>:: <%= subcatName %>::<% If cat3rdID > 0 then Response.Write "" & cat3rdName & "::" %><%= strText_ViewAd %>
<% NA = " N/A " datePosted = FormatDateTime(rs(5), 1) dateExpire = FormatDateTime(rs(6), 1) nick = rs(7) adcount = CLng(rs(17)) + 1 If session("admin_loggedin" & strSUnique) = Session.SessionID then nick = "" & nick & "" userWeb = rs(11) If userWeb = Empty then noSite = True Else userWeb = "User Web Site" End If userWebImage = rs(13) city = rs(8) If city = Empty then noCity = True adPhone = rs(10) If adPhone = Empty then noPhone = True sbg = rs(9) hotlist = Cbool(rs(18)) If hotlist then adSubject = " " & sbg Else: adSubject = sbg End If adImgTempArray = rs(12) If not adImgTempArray = Empty then img = True adImgArray = Split(adImgTempArray, sf) imgArrayDim = UBound(adImgArray) - 1 strImgDisplay = "
" & vbCrLf strImgDisplay = strImgDisplay & "" & vbCrLf For d = 0 to imgArrayDim If d = 5 then strImgDisplay = strImgDisplay & "" If d = 0 then initIcon = "url('img/ps1.gif')" Else: initIcon = "url('img/p" & d+1 & ".gif')" End If If showPhoto then bf = "document.getElementById('ib" & d+1 & "').style.display = 'block';" strImgDisplay = strImgDisplay & "" & vbCrLf Next If d < 4 then For t = 0 to 4-d strImgDisplay = strImgDisplay & "" & vbCrLf Next End If strImgDisplay = strImgDisplay & "
" & vbCrLf For d = 0 to imgArrayDim 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 > 95 then koef = w / h w = 95 h = Round(95 / koef) End If If d > 0 then initImg = " style=""display: none;""" Else initImg = Empty firstImage = "" End If strImgDisplay = strImgDisplay & "" strImgDisplay = strImgDisplay & "" & vbCrLf If showPhoto then strLargeImgDisplay = strLargeImgDisplay & "" & vbCrLf Next strImgDisplay = strImgDisplay & "
 
 
 
  
" & vbCrLf If imgArrayDim > 0 then '*** Select Which Slide Show to start with ********** sl_type = "slide" ' Normal 'sl_type = "trans" ' Translucent 'sl_type = "belt" ' Conveyor Belt 'sl_type = "down" ' Down up 'sl_type = "manual" ' Manual '*** Select Which Slide Show to start with ********** strImgDisplay = strImgDisplay & "" End If strJava = "" Response.Write strJava End If %>
 <%= adSubject %> <% If moderator then If hotlist then Response.Write " Remove From HotList" Else Response.Write " Add to HotList" End If End If %>
  <% If Not CStr(session("user_logged_ID" & strSUnique)) = Empty then %> <%= strText_AddtoFavorites %> | <% End If If session("admin_loggedin" & strSUnique) = Session.SessionID then Response.Write "Add to Editor's Pick | " End If %> <%= strText_EmailtoaFriend %> | <%= strText_PrintFriendly %>  
 <%= strText_AdPosted %>: <%= datePosted %>
 <%= strText_AdExpire %>:  <%= dateExpire %>
 
 <%= strText_UserInformation %>:
 
 <%= strText_Postedby %>:  <%= nick %>
<% If moderator then %>
 <%= strText_IPAddress %>:  <%= rs(16) %>
<% End If For uo = 0 to 6 If Not uOpt(uo) = Empty Then nextUserOpt = rs(uo+20) If Not nextUserOpt = Empty Then %>  <%= uOpt(uo) %>:  <%= nextUserOpt %>
<% End If End If Next %> <% If not noPhone Then %>  <%= strText_Phone %>:  <%= adPhone %>
<% End If If not noCity Then %>  <%= strText_UserLocation %>:  <%= city %>
<% End If If not noSite Then %>  <%= strText_UserWebSite %>:  <%= userWeb %>
<% End If %>  <%= strText_AllUserAds %>:  <%= strText_AllAds %> <%= strText_by %> <%= nick %>
 
 <%= strText_AdInformation %>:
 
<% 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 %>  <%= optArray(I) %>:  <%= nextAdOpt %>
 
<% End If End If Next %>
<% If img then Response.Write strImgDisplay Else Response.Write "
" End If If not userWebImage = Empty then Response.Write "Online Image" End If %>
 <%= strText_AdDescription %>:
<%= strText_ReportInappropriateContent %> 
<%= strText_Viewed %>: <%= adcount %> <%= strText_times %> 
 <%= strText_Textsize %>:  a  a  a  a 

<%= adDescr %>

 <%= strText_Status %>: <%= adStatus %> <% If moderator and status = 0 then Response.Write "  Activate" If moderator or adOwner then If status = 2 then Response.Write "  " & strText_Repost & "" Else If Not status = 3 then Response.Write "  " & strText_Edit & "" End If If status = 3 then Response.Write "  " & strText_Enable & "" Else If status = 1 then Response.Write "  " & strText_Disable & "" End If End If If moderator or adOwner then Response.Write "  Delete" If Not status = 2 And Not status = 3 then Response.Write "  " & strText_Images & "" End If If moderator and not status = 2 then Response.Write "

 Duration:  " Response.Write " " Response.Write "" End If If moderator then Response.Write "  Cache" Response.Write "  Move" End If %>
<% If showPhoto and Len(strLargeImgDisplay) > 5 then Response.Write "
" & strLargeImgDisplay %>

<% rs.close objConn.Execute("UPDATE " & tablPfx & "Ads SET adcounter = " & adcount & " WHERE adID = '" & adID & "';") End If %>