|
|
| |
| Welcome to
Our Site |
| Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diem nonummy nibh euismod tincidunt ut lacreet dolore magna aliguam erat volutpat. Ut wisis enim ad minim veniam, quis nostrud exerci tution ullamcorper suscipit lobortis nisl ut aliquip ex ea commodo consequat. |
| |
|
Admin Demo - Contact us to request a demo
|
| |
|
Click Here to View Our
Featured Listings |
| |
|
Click Here for our advanced search |
|
|
|
Here is the code to use for the random listing - Just insert
the code anywhere in the site you would like. Make sure the
following include files are located at the top of your page
that you want to insert the random listing into and that it is
an active server page. <!-- #include file =
"Connection.asp" -->
<!-- #include file = "Commonfunctions/sizeimage.asp" -->
To size the image to your liking just change
the image sizes below ( in red ) - the above sizeimage include
file will do the work for you. |
<%
' random property
set rs = server.CreateObject("ADODB.Recordset")
Randomize()
intRandomNumber = Int (1000*Rnd)+1
sSQL = "SELECT Listin_Id,Image_1,Price,Rnd(" & -1 *
(intRandomNumber) & "*Listin_Id)" & _
"FROM Listing_Master " & _
"ORDER BY 4"
rs.Open sSQL,oConnect,0,1
if NOT rs.EOF then
if rs("Image_1") = "" then
response.write "<div align=""center""><a
href=""listing_detail.asp?Lid="&rs("Listin_Id")&"""><img
border=""0"" src=""images/Upload/comingsoon.jpg""
width=""145"" height=""108""><font
color=""FFFFFF""><br>"
Else
response.write "<div align=""center""><a
href=""listing_detail.asp?Lid="&rs("Listin_Id")&"""><img
border=""0"" src=""images/Upload/"&rs("Image_1")&"""
width=""145"" height=""108""><font
color=""FFFFFF""><br>"
end if
response.write FormatCurrency(rs("Price"),2)
response.write "</a></font></div></font>"
end if
rs.Close
%> |
|
|
|
|
|
|
