% Set conTRRN = Server.CreateObject("ADODB.Connection") strconTRRN = "DSN=WebSQL; Database=TRRN; UID=trrn_public; PWD=trr457" conTRRN.Open strconTRRN Set rs = Server.CreateObject("ADODB.Recordset") If Request.QueryString("mode")="FarmandRanch" Then sqlrs = "SELECT * FROM Property INNER JOIN Users ON Property.UserName = Users.UserName WHERE (Users.OfficeID = 14) AND Property.PropertyType = 'Residential (Farm-Ranch)' AND (Property.Status = 'Active' Or Property.Status = 'Pending' Or Property.Status = 'PendingCTS') Order By Property.ListPrice DESC" ElseIf request.querystring("mode") = "Residential" Then sqlrs = "SELECT * FROM Property INNER JOIN Users ON Property.UserName = Users.UserName WHERE (Users.OfficeID = 14) AND Property.PropertyType = 'Residential (Town-S/D)' AND (Property.Status = 'Active' Or Property.Status = 'Pending' Or Property.Status = 'PendingCTS') Order By Property.ListPrice DESC" ElseIf request.querystring("mode") = "Acreage" Then sqlrs = "SELECT * FROM Property INNER JOIN Users ON Property.UserName = Users.UserName WHERE (Users.OfficeID = 14) AND Property.PropertyType = 'Acreage' AND (Property.Status = 'Active' Or Property.Status = 'Pending' Or Property.Status = 'PendingCTS') Order By Property.ListPrice DESC" ElseIf request.querystring("mode") = "Lots" Then sqlrs = "SELECT * FROM Property INNER JOIN Users ON Property.UserName = Users.UserName WHERE (Users.OfficeID = 14) AND Property.PropertyType = 'Lot' AND (Property.Status = 'Active' Or Property.Status = 'Pending' Or Property.Status = 'PendingCTS') Order By Property.ListPrice DESC" ElseIf request.querystring("mode") = "Commercial" Then sqlrs = "SELECT * FROM Property INNER JOIN Users ON Property.UserName = Users.UserName WHERE (Users.OfficeID = 14) AND Property.PropertyType = 'Commercial' AND (Property.Status = 'Active' Or Property.Status = 'Pending' Or Property.Status = 'PendingCTS') Order By Property.ListPrice DESC" Else sqlrs = "SELECT * FROM Property INNER JOIN Users ON Property.UserName = Users.UserName WHERE (Users.OfficeID = 14) AND (Property.Status = 'Active' Or Property.Status = 'Pending' Or Property.Status = 'PendingCTS') Order By Property.ListPrice DESC" End If rs.Open sqlrs, conTRRN, 0, 3 %>

|
|
<% rs.close conTRRN.close %>