<%
datePosted = FormatDateTime(rs(5), 1)
dateExpire = FormatDateTime(rs(6), 1)
nick = rs(7)
userWeb = rs(11)
If userWeb = Empty then
noSite = True
Else
userWeb = "" & userWeb & ""
End If
city = rs(8)
If city = Empty then noCity = True
adPhone = rs(10)
If adPhone = Empty then noPhone = True
sbg = rs(9)
adImgTempArray = rs(12)
If not adImgTempArray = Empty then
img = True
adImgArray = Split(adImgTempArray, sf)
imgArrayDim = UBound(adImgArray) - 1
strImgDisplay = "
" & vbCrLf
For d = 0 to imgArrayDim
If d = 5 then strImgDisplay = strImgDisplay & " "
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 > 120 then
koef = w / h
w = 120
h = Round(120 / koef)
End If
strImgDisplay = strImgDisplay & " | "
Next
strImgDisplay = strImgDisplay & "
"
End If
%>
<%= sbg %> |
<%= strText_AdPosted %>: | <%= datePosted %> |
<%= strText_AdExpire %>: | <%= dateExpire %> |
<%= strText_UserInformation %>: |
|
| |
<%= strText_Postedby %>: | <%= nick %> |
<%
For uo = 0 to 6
uOpt(uo) = Application("Classify_Main_Config" & strUnique)(uo+14)
Next
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_AdInformation %>: | <%= userWeb %> |
<%
End If
%>
| |
Ad Information: |
|
| |
<%
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
%>
|
<%= strText_AdDescription %>: |
<%= adDescr %> |
|
|
|