%server.scripttimeout=400 response.Expires = -1 If Session("userlogin") = "" Then Response.Redirect "index.asp" Set Conn = Server.CreateObject("Adodb.Connection") Set rsPropType = Server.CreateObject("Adodb.Recordset") Set rsSaleType = Server.CreateObject("Adodb.Recordset") Set rsDistrict = Server.CreateObject("Adodb.Recordset") Set rsTown = Server.CreateObject("Adodb.Recordset") Set rsProp = Server.CreateObject("Adodb.Recordset") Set rsfavProp = Server.CreateObject("Adodb.Recordset") dtpath = server.mappath("../dataarty/property.mdb") Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password=UNITEKANDUNITEKNET;Data Source=" & dtpath Conn.Open dim pStatus(3) pStatus(1)="Available" pStatus(2)="On offer" pStatus(3)="Sold" rsPropType.open "select * from TypeOfProperty order by type",Conn,1,3 rsDistrict.open "select * from district order by district",Conn,1,3 rsTown.open "select * from Town order by Town",Conn,1,3 rsSaleType.open "TypeOfSale",conn,1,3 rsfavProp.open "favProp",conn,1,3 '***FIND IF PROPERTY LINKED*** PropertyFound=0 sub FindPropLink(refno) PropertyFound=0 if rsfavProp.recordcount>0 then rsfavprop.movefirst rsfavprop.find "propertyref='" & refno & "'" if not rsfavprop.eof then PropertyFound=1 end if rsfavprop.movefirst end if end sub '****GET DISTRICT NAME**** Sub GetDistrict(districtid) if rsdistrict.recordcount>0 then rsdistrict.movefirst rsdistrict.find "districtid=" & districtid if not rsdistrict.eof then response.write(rsdistrict("district")) end if rsdistrict.movefirst end if End Sub '***GET TYPE OF SALE*** Sub GetSaleType(TypeOfSaleid) if rsSaleType.recordcount>0 then rsSaleType.movefirst rsSaleType.find "TypeOfSaleid=" & TypeOfSaleid if not rsSaleType.eof then response.write(rsSaleType("TypeOfSale")) end if rsSaleType.movefirst end if End Sub sSql = "SELECT * FROM Properties WHERE status=" & request("status") rsProp.open sSql,conn,1,3 if request("opp")<>"" and rsProp.RecordCount>0 then rsprop.MoveFirst rsprop.find "refno='" & request("id") & "'" if not rsprop.eof then rsprop.delete rsprop.update end if end if rsProp.PageSize=30 pn=request.querystring("pn") if pn<>"" then pn=clng(pn) else pn=1 end if if pn=>rsProp.PageCount then iNextPage=rsProp.PageCount else iNextPage=pn+1 end if if pn>1 then iPreviousPage=pn-1 else iPreviousPage=1 end if randomize timer %>
">Previous Page ">Next Page Showing Page <%=pn%> of <%=rsProp.PageCount%>
Show Properties: Available On offer Sold
Refno |
Street | Area | Post Code | Status | Price | Sale Type | ||
','op',630,530)"><%=rsProp("refno")%> | <%=rsprop("street")%> | <%getdistrict(rsprop("districtid"))%> | <%=rsprop("postcode")%> |
<%=pStatus(rsprop("status"))%> |
<%=rsprop("minprice")%> |
<%GetSaleType(rsprop("typeofsaleid"))%> |
&status=<%=request("status")%>"> Del |
Admin Add Property Top of the page Print
Copyright © 2003 UniTekNet. All rights reserved.