<% userID = Request.Form("userID") If Len(userID) > 0 then Dim optArray(20) showPhoto = CBool(largeimage) adImgTempArray = Request.Form("imgFile") userWebImage = Request.Form("onlineimage") adDescr = Request.Form("description") userWeb = Request.Form("URL") adPhone = Request.Form("P2") adPhoneName = Request.Form("phone") adSubject = Request.Form("subject") set rsu = objConn.Execute("SELECT nick,city FROM " & tablPfx & "User WHERE userID = " & userID & ";") If not rsu.EOF then nick = rsu(0) city = rsu(1) End If rsu.close If Len(city) < 1 then noCity = True If not Instr(1, adDescr, "", 1) = 0 then adDescr = encodeURL(adDescr) %>
<%= strText_Home %>::<%= strText_AdPreview %> <%= strText_Someofthefields %>
<% NA = " N/A " datePosted = FormatDateTime(Now, 1) dateExpire = FormatDateTime(Now, 1) If userWeb = Empty then noSite = True Else userWeb = "User Web Site" End If If adPhone = Empty then noPhone = True 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 End If strImgDisplay = strImgDisplay & "" strImgDisplay = strImgDisplay & "" & vbCrLf If showPhoto then strLargeImgDisplay = strLargeImgDisplay & "" & vbCrLf Next strImgDisplay = strImgDisplay & "
 
 
 
  
" & vbCrLf 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 %>
  <%= strText_AddtoFavorites %> | <%= 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 nextUserOptName = Request.Form("uO" & uo & "name") If Not nextUserOptName = Empty Then nextUserOpt = Request.Form("uO" & uo) If Not nextUserOpt = Empty Then %>  <%= nextUserOptName %>  <%= 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 nextAdOptName = Request.Form("O" & I & "name") If nextAdOptName = Empty then Request.Form("CFO" & I & "name") If not nextAdOptName = Empty then nextAdOpt = Request.Form("O" & I) If not nextAdOpt = Empty then If instr(nextAdOpt, sg) <> 0 then nextAdOpt = Replace(nextAdOpt, sg, "") nextAdOpt = nextAdOpt & " (Hidden)" End If nextAdOptName = Replace(nextAdOptName, " ", "") %>  <%= nextAdOptName %>  <%= 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_Viewed %>: 1 <%= strText_times %> 
 <%= strText_Textsize %>:  a  a  a  a 

<%= adDescr %>

 <%= strText_Status %>: <%= strText_Preview %>
<% If showPhoto and Len(strLargeImgDisplay) > 5 then Response.Write "
" & strLargeImgDisplay %>

<% Else %>
<% End If %>