<%
PageNo = cInt(request.form("page"))
sSQL = request.form("strSQL")
If PageNo = "" then
PageNo=1
end if
If PageNo < 1 then
PageNo=1
end if
sUserName = Request("Id")
' Create a recordset object to store specific table information
Set objAgent = Server.CreateObject("ADODB.Recordset")
'Establish what records you want selected for the SQL query string
SQL = "Select * From TblLogin where (UserName = '" + sUserName + "')"
'Set the recordset object equal to the SQL query string
objAgent.Open SQL, objADO, 1, 3
if sSQL = "" then
sSQL = "SELECT * From CDListing where (CDUserName = '" + sUserName + "') AND "
sSQL = sSQL & "(CDListingEndDate >= #" & Date() & "# ) order by CDCity, CDMSRP, CDAddress"
end if
Set rsSearch = Server.CreateObject("ADODB.Recordset")
rsSearch.Open sSQL, objADO, 3, 3
TotalRecs = rsSearch.recordcount
rsSearch.Pagesize=9
TotalPages = cInt(rsSearch.pagecount)
if PageNo > TotalPages then
PageNo = TotalPages
end if
if not rsSearch.eof then
rsSearch.absolutepage=PageNo
end if
Sub DisplayREThumbnails%>
">
<%If Len(rsSearch("CDListingImage")) > 0 Then
If UCase(Left(rsSearch("CDListingImage"),7))="HTTP://" Then%>
" border="0" height="110" width="150">
<%Else%>
" border="0" height="110" width="150">
<%End If
Else%>
<%End If%>
<% if Session("AccessLevel") = "1" or session("UserName") = rsSearch("CDUserName") then %>
">
">
<% end if %>
Date Listed: <%= rsSearch("CDDateEntered") %>
Site Listing #: <%= rsSearch("CDListingId") %>
<% if rsSearch("CDMSRP") > 0 then %>
Price: <%= formatCurrency(rsSearch("CDMSRP"))%>
<% else %>
Contact For Price
<% end if %>
<%
if rsSearch("AddressPublic") = "1" then
Response.Write rsSearch("CDAddress") & "
"
end if
Response.Write rsSearch("CDCity") & ", " & rsSearch("CDState") & " " & rsSearch("CDZip")%>
<%
curCDMSRP = rsSearch("CDMSRP")
if rsSearch("AdType") = "0" and session("UserName") = rsSearch("CDUserName") and session("AccessLevel") <> "1" then
'Response.Write "Upgrade To Featured"
end if
%>
<%End Sub%>
LISTINGS FOR <%= UCASE(objAgent("FirstName")) %> <%= UCASE(objAgent("LastName")) %> -
<%=rsSearch.recordcount%> item(s) found
<%
x = 0
For x = 1 to 3
If rsSearch.eof then
Exit For
Else
%>
| <%If Not rsSearch.EOF Then%><%Call DisplayREThumbnails%>
<%rsSearch.MoveNext%>
<%End If%> |
|
<%If Not rsSearch.EOF Then%><%Call DisplayREThumbnails%>
<%rsSearch.MoveNext%>
<%End If%> |
|
<%If Not rsSearch.EOF Then%><%Call DisplayREThumbnails%>
<%End If%> |
|
|
|
|
|
<%If Not rsSearch.EOF Then rsSearch.MoveNext%>
<%
End If
Next
%>