<%= 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
%>
|