% Dim Connect, Data SET objConn = Server.CreateObject("ADODB.Connection") ' You must use this type of connection string to make it work. objConn.connectionstring="DRIVER={MySQL ODBC 3.51 Driver};" & _ "SERVER=mysql89.secureserver.net;" & _ "DATABASE=ruthvela;" & _ "DSN=mysql_ruthvela.dsn;" &_ "User Id=ruthvela;" & _ "Password=ruthvela;" objConn.open %> <% find_case = request("OPTION") house_type_id = request("house_type_id") per_page = request("PER_PAGE") if len(per_page) > 0 then set_rowcount = " LIMIT " & per_page end if if len(house_type_id) > 0 then and_sql = " WHERE house_type_id = " & house_type_id end if if find_case = "HPRICE" then and_sql = " Order by price desc" end if if find_case = "LPRICE" then and_sql = " Order by price asc " end if if find_case = "AREA" then and_sql = " Order by area desc " end if if find_case = "CITY" then and_sql = " Order by city desc " end if if find_case = "BEDS" then and_sql = " Order by bedrooms desc " end if if find_case = "BATHS" then and_sql = " Order by baths desc " end if if find_case = "SFEET" then and_sql = " Order by feet desc " end if Set objrst = Server.CreateObject("ADODB.Recordset") SQL = " SELECT * FROM listing " & and_sql & set_rowcount 'response.write SQL 'response.end objrst.Open SQL, objConn, adOpenStatic, adLockPessimistic, adCmdText if len(da_count) = 0 then da_count = objrst.recordcount end if %>