<%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 %> Search for Edit/Delete
Search Properties

Admin   Add Property   Print

">Previous Page   ">Next Page     Showing Page <%=pn%> of <%=rsProp.PageCount%>

Show Properties: Available   On offer    Sold

<%if rsProp.Recordcount>0 then rsProp.AbsolutePage=pn%> <%for i=1 to rsProp.PageSize%> <%rsprop.movenext if rsprop.eof then exit for Next end if%>

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

">Edit

Admin   Add Property   Top of the page   Print

Copyright © 2003 UniTekNet. All rights reserved.