<%
if request("page") = "lands" and request("ID") > "" then
if request("show") = 1 then
SQL = "Select * from lands where randomid = '" & request("ID") &"'"
Else
SQL = "Select * from lands where ID = " & request("ID") &" and status = 1"
End if
set rslands= Con.execute(SQL)
if rslands.EOF OR rslands.BOF Then
%>
<%=siteinfo("sitename")%>
">
">
<% Else %>
<%
if (rslands.Fields.Item("pictures").Value) > "," then
a = split(rslands("pictures"),",")
for i=0 to 0
img = "uploads/lands/" & a(i)
next
Else
img = "images/lands.jpg"
End if
%>
<% End if %>
<% End if %>
<%
if request("page") = "aqar" and request("ID") > "" then
if request("show") = 1 then
SQL = "Select * from house where randomid = '" & request("ID") &"'"
Else
SQL = "Select * from house where ID = " & request("ID") &" and status = 1"
End if
set rsaqar= Con.execute(SQL)
if rsaqar.EOF OR rsaqar.BOF Then
%>
<%=siteinfo("sitename")%>
">
">
<% Else %>
<%=rsaqar("title")%>
">
">
<%
if (rsaqar.Fields.Item("picture").Value) > "," then
a = split(rsaqar("picture"),",")
for i=0 to 0
img = "uploads/house/" & a(i)
next
Else
img = "images/house.jpg"
End if
%>
<% End if %>
<% End if %>
<% if request("newsID") > "" then
set keys = con.execute("select headline, summary from news where newsid = " & request("newsID") &";")
%>
<%=keys("headline")%>
,<%=keys("summary")%>">
">
<%
Elseif request("page") = "one" and request("cat") > "" then
set keys = con.execute("select top 1 headline, summary from news where cat = " & request("cat") &";")
if keys.EOF OR keys.BOF Then
%>
<%=siteinfo("sitename")%>
">
">
<%
else
do while not keys.Eof
%>
<%=siteinfo("sitename")%> | <%=keys("headline")%>
,<%=keys("summary")%>">
,<%=keys("summary")%>">
<%
keys.Movenext
loop
End if
keys.Close
set keys = nothing
%>
<% Else %>
<%=siteinfo("sitename")%>
">
">
<% ENd if %>
<% if Request.querystring("page") = "" then %>
<% Else %>
<% End if %>
