%response.expires=-1 'If Request.Cookies("userregistered")="" Then Response.Redirect("propertysearch/Register.htm") Set Conn = Server.CreateObject("Adodb.Connection") Set rsPropType = Server.CreateObject("Adodb.Recordset") Set rsDistrict = Server.CreateObject("Adodb.Recordset") Set rsTown = Server.CreateObject("Adodb.Recordset") dtpath = server.mappath("propertysearch/dataarty/property.mdb") Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password=UNITEKANDUNITEKNET;Data Source=" & dtpath Conn.Open 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 %>
|
|||||||||||
|
|
|
|
|