<% Set re = new RegExp re.global=true re.ignoreCase=true re.multiLine=true re.pattern="(<)(.|\s|\\|\n)*?(>)|(" & vbcrlf & ")|(\s{2,})" hc = 1 nPage = Session("hotlist_show_page" & strSUnique) URLlink = "hotlist.asp?" & Server.URLEncode(Request.Querystring) pageType = 21 strPaging = buildPages(nPage, URLlink, pageType) '## paging built in libraries.asp Response.Write "
" & strPaging Response.Write "

" & strText_TotalPages & ": " & totalPage & "
" Response.Write strText_TotalPosted & ": " & totalRecords & "

" For J = 1 to displayRecords If Not rs.EOF then If hc mod cols = 1 then Response.Write "" & vbcrlf Response.Write "" If hc mod cols = 0 then Response.Write "" & vbcrlf hc = hc + 1 rs.MoveNext End If Next %>

" & vbcrlf adID = rs(0) userID = rs(2) postedOn = FormatDateTime(CDate(rs(3)), 2) subject = rs(5) subject = "" & subject & "" nick = rs(1) ds = Empty nick = "" & nick & "" adDescr = rs(6) adDescr = Replace(adDescr, "
", " ") On Error Resume Next If re.test(adDescr) then adDescr = re.replace(adDescr, "") On Error GoTo 0 If Len(adDescr) > 100 then adDescr = Left(adDescr, 100) adImgArray = rs(7) If not adImgArray = Empty then firstImg = Split(adImgArray, sf)(0) firstImgName = Split(firstImg, "|")(0) imgDim = Split(firstImg, "|")(1) w = Split(imgDim, "x")(0) h = Split(imgDim, "x")(1) If h > 100 then koef = h / w h = 100 w = Round(100 / koef) Else If w > 100 then koef = w / h w = 100 h = Round(100 / koef) End If End If imgData = "

" Else: imgData = "

" End If %>

<%= subject %>		<%= imgData %>
<%= adDescr %> ... <%= strText_more %>
<%= strText_Postedby %>: <%= nick %>	<%= strText_PostedOn %>: <%= postedOn %>

<% Response.Write "