<%
For J = 1 to displayRecords
If rs.EOF Then
Exit For
Else
NA = "" & strText_NA & ""
adID = rs(0)
active = CLng(rs(6))
iDate = FormatDateTime(rs(1), 2)
subject = rs(4)
subject = "" & subject & ""
If rs(8) then subject = " " & subject
userID = rs(9)
If CStr(session("user_logged_ID" & strSUnique)) = CStr(userID) then adOwner = True
nick = rs(2)
city = rs(3)
webImage = rs(10)
If len(webImage) > 0 then
imgStr = "" & strText_Yes & ""
Else: imgStr = "" & strText_NA & ""
End If
'** Use following values to display up to 5 optional fields: (only first field displayed by default)
firstOptValue = rs(12)
If len(firstOptValue) = 0 then firstOptValue = NA
secondOptValue = rs(14)
If len(secondOptValue) = 0 then secondOptValue = NA
thirdOptValue = rs(16)
If len(thirdOptValue) = 0 then thirdOptValue = NA
forthOptValue = rs(18)
If len(forthOptValue) = 0 then forthOptValue = NA
fifthOptValue = rs(20)
If len(fifthOptValue) = 0 then fifthOptValue = NA
' --------------
views = rs(7)
If len(rs(5)) > 0 then
imgTempArray = Split(rs(5), sf)
img = Split(imgTempArray(0), "|")(0)
size = Split(imgTempArray(0), "|")(1)
w = CLng(Split(size, "x")(0)) + 50
h = CLng(Split(size, "x")(1)) + 70
imgStr = ""
imgStr = imgStr & ""
Else: imgStr = "N/A"
End If
If J mod 2 = 0 then cellColor = "class='evencell'": Else: cellColor = "class='oddcell'"
%>
align="center"><%= iDate %>
><%= subject %>
align="center"><%= imgStr %>
<%
If len(firstOpt) > 0 then Response.Write "
" & firstOptValue & "
"
%>
align="center"><%= views %>
align="center">
<%
If adOwner Or moderator then
If active = 2 then
Response.Write "" & strText_Repost & ""
ElseIf active = 1 then
Response.Write "" & strText_Edit & ""
End If
If moderator then
Response.Write " Delete"
If active = 0 then
Response.Write " Activate"
End If
End If
Else: Response.Write "="
End If
%>
<%
rs.MoveNext
End If
Next
rs.close
%>
<%
Session("ad3rdlist_show_page" & strSUnique) = Empty
End If
Else: Response.Write "
" & msgInvalid & "
"
End If
set rscat = objConn.Execute("SELECT " & tablPfx & "Cat.catName, " & tablPfx & "Cat.catID FROM " & tablPfx & "Cat ORDER BY catName;")
Do while not rscat.EOF
nextCatName = rscat("catName")
nextcatID = rscat("catID")
If nextCatName = catName then
optCat = optCat & ""
Else: optCat = optCat & ""
End If
rscat.MoveNext
Loop
rscat.close
set rscat = Nothing
%>