Please Help with Error

Guest_imported · Dec 20, 2001

Can anyone tell me why this code produces the Error message

Microsoft VBScript compilation error '800a0401'

Expected end of statement

I appreciate any help

<%@LANGUAGE="VBSCRIPT"%>

<%
Dim Recordset1__varType
Recordset1__varType = "1"
if (Request.QueryString("Type&quot

<> "&quot

then Recordset1__varType = Request.QueryString("Type&quot

%>
<%
Dim Recordset1__varArea
Recordset1__varArea = "%"
if (Request.QueryString("Area&quot

<> "&quot

then Recordset1__varArea = Request.QueryString("Area&quot

%>
<%
Dim Recordset1__varPools
Recordset1__varPools = "%"
if (Request.QueryString("Pool&quot

<> "&quot

then Recordset1__varPools = Request.QueryString("Pool&quot

%>
<%
Dim Recordset1__varWasher_Dryer
Recordset1__varWasher_Dryer = "%"
if (Request.QueryString("Washer_Dryer&quot

<> "&quot

then Recordset1__varWasher_Dryer = Request.QueryString("Washer_Dryer&quot

%>
<%
Dim Recordset1__varAccess_Gates
Recordset1__varAccess_Gates = "%"
if (Request.QueryString("Gates&quot

<> "&quot

then Recordset1__varAccess_Gates = Request.QueryString("Gates&quot

%>
<%
Dim Recordset1__varJacuzzi
Recordset1__varJacuzzi = "%"
if (Request.QueryString("Jacuzzi&quot

<> "&quot

then Recordset1__varJacuzzi = Request.QueryString("Jacuzzi&quot

%>
<%
Dim Recordset1__varMicrowave
Recordset1__varMicrowave = "%"
if (Request.QueryString("Microwave&quot

<> "&quot

then Recordset1__varMicrowave = Request.QueryString("Microwave&quot

%>
<%
Dim Recordset1__varFireplace
Recordset1__varFireplace = "%"
if (Request.QueryString("Fireplace&quot

<> "&quot

then Recordset1__varFireplace = Request.QueryString("Fireplace&quot

%>
<%
Dim Recordset1__varPet
Recordset1__varPet = "%"
if (Request.QueryString("Pet&quot

<> "&quot

then Recordset1__varPet = Request.QueryString("Pet&quot

%>
<%
Dim Recordset1__varLarge_Pet
Recordset1__varLarge_Pet = "%"
if (Request.QueryString("Large_Pet&quot

<> "&quot

then Recordset1__varLarge_Pet = Request.QueryString("Large_Pet&quot

%>
<%
Dim Recordset1__varFitness_Center
Recordset1__varFitness_Center = "%"
if (Request.QueryString("Fitness&quot

<> "&quot

then Recordset1__varFitness_Center = Request.QueryString("Fitness&quot

%>
<%
Dim Recordset1__varCovered_Parking
Recordset1__varCovered_Parking = "%"
if (Request.QueryString("Covered_Parking&quot

<> "&quot

then Recordset1__varCovered_Parking = Request.QueryString("Covered_Parking&quot

%>
<%
Dim Recordset1__varGarage
Recordset1__varGarage = "%"
if (Request.QueryString("Garage&quot

<> "&quot

then Recordset1__varGarage = Request.QueryString("Garage&quot

%>
<%
Dim Recordset1__varLow_Price
Recordset1__varLow_Price = "0"
if (Request.QueryString("tfLowPrice&quot

<> "&quot

then Recordset1__varLow_Price = Request.QueryString("tfLowPrice&quot

%>
<%
Dim Recordset1__varHigh_Price
Recordset1__varHigh_Price = "10000"
if (Request.QueryString("tfHighPrice&quot

<> "&quot

then Recordset1__varHigh_Price = Request.QueryString("tfHighPrice&quot

%>
<%
Dim Recordset1__varZip
Recordset1__varZip = "%"
if (Request.QueryString("Zip&quot

<> "&quot

then Recordset1__varZip = Request.QueryString("Zip&quot

%>
<%
Dim Recordset1__varName
Recordset1__varName = "%"
if (Request.QueryString("Name&quot

<> "&quot

then Recordset1__varName = Request.QueryString("Name&quot

%>
<%
Dim Recordset1__varConn
Recordset1__varConn = "%"
if (Request.QueryString("Conn&quot

<> "&quot

then Recordset1__varConn = Request.QueryString("Conn&quot

%>
<%
Dim Recordset1__varProv
Recordset1__varProv = "%"
if (Request.QueryString("Prov&quot

<> "&quot

then Recordset1__varProv = Request.QueryString("Prov&quot

%>
<%
Dim Recordset1__varDistrict
Recordset1__varDistrict = "%"
if (Request.QueryString("District&quot

<> "&quot

then Recordset1__varDistrict = Request.QueryString("District&quot

%>
<%
Dim Recordset1__varElem
Recordset1__varElem = "%"
if (Request.QueryString("Elem&quot

<> "&quot

then Recordset1__varElem = Request.QueryString("Elem&quot

%>
<%
Dim Recordset1__varMid
Recordset1__varMid = "%"
if (Request.QueryString("Mid&quot

<> "&quot

then Recordset1__varMid = Request.QueryString("Mid&quot

%>
<%
Dim Recordset1__varHigh
Recordset1__varHigh = "%"
if (Request.QueryString("High&quot

<> "&quot

then Recordset1__varHigh = Request.QueryString("High&quot

%>
<%
Dim Recordset1__varBasketball
Recordset1__varBasketball = "%"
if (Request.QueryString("Basketball&quot

<> "&quot

then Recordset1__varBasketball = Request.QueryString("Basketball&quot

%>
<%
Dim Recordset1__varAlarms
Recordset1__varAlarms = "%"
if (Request.QueryString("Alarms&quot

<> "&quot

then Recordset1__varAlarms = Request.QueryString("Alarms&quot

%>
<%
Dim Recordset1__varW_Volleyball
Recordset1__varW_Volleyball = "%"
if (Request.QueryString("Water_Volleyball&quot

<> "&quot

then Recordset1__varW_Volleyball = Request.QueryString("Water_Volleyball&quot

%>
<%
Dim Recordset1__varTennis
Recordset1__varTennis = "%"
if (Request.QueryString("Tennis&quot

<> "&quot

then Recordset1__varTennis = Request.QueryString("Tennis&quot

%>
<%
Dim Recordset1__varVaulted_Ceilings
Recordset1__varVaulted_Ceilings = "%"
if (Request.QueryString("Vaulted_Ceilings&quot

<> "&quot

then Recordset1__varVaulted_Ceilings = Request.QueryString("Vaulted_Ceilings&quot

%>
<%
Dim Recordset1__varJogging_Trail
Recordset1__varJogging_Trail = "%"
if (Request.QueryString("Jogging_Trail&quot

<> "&quot

then Recordset1__varJogging_Trail = Request.QueryString("Jogging_Trail&quot

%>
<%
Dim Recordset1__varSauna
Recordset1__varSauna = "%"
if (Request.QueryString("Sauna&quot

<> "&quot

then Recordset1__varSauna = Request.QueryString("Sauna&quot

%>
<%
Dim Recordset1__varRaquetball
Recordset1__varRaquetball = "%"
if (Request.QueryString("Raquetball&quot

<> "&quot

then Recordset1__varRaquetball = Request.QueryString("Raquetball&quot

%>
<%
Dim Recordset1__varGarden_Tub
Recordset1__varGarden_Tub = "%"
if (Request.QueryString("Garden_Tub&quot

<> "&quot

then Recordset1__varGarden_Tub = Request.QueryString("Garden_Tub&quot

%>
<%
Dim Recordset1__varVolleyball
Recordset1__varVolleyball = "%"
if (Request.QueryString("Volleyball&quot

<> "&quot

then Recordset1__varVolleyball = Request.QueryString("Volleyball&quot

%>
<%
Dim Recordset1__varBusiness_Center
Recordset1__varBusiness_Center = "%"
if (Request.QueryString("Business_Center&quot

<> "&quot

then Recordset1__varBusiness_Center = Request.QueryString("Business_Center&quot

%>
<%
Dim Recordset1__varClubroom
Recordset1__varClubroom = "%"
if (Request.QueryString("Clubroom&quot

<> "&quot

then Recordset1__varClubroom = Request.QueryString("Clubroom&quot

%>
<%
Dim Recordset1__varAttached_Garage
Recordset1__varAttached_Garage = "%"
if (Request.QueryString("Attached_Garage&quot

<> "&quot

then Recordset1__varAttached_Garage = Request.QueryString("Attached_Garage&quot

%>
<%
Dim Recordset1__varView
Recordset1__varView = "%"
if (Request.QueryString("View&quot

<> "&quot

then Recordset1__varView = Request.QueryString("View&quot

%>
<%
Dim Recordset1__varLaundry
Recordset1__varLaundry = "%"
if (Request.QueryString("Laundry&quot

<> "&quot

then Recordset1__varLaundry = Request.QueryString("Laundry&quot

%>
<%
Dim Recordset1__varPatio
Recordset1__varPatio = "%"
if (Request.QueryString("Patio&quot

<> "&quot

then Recordset1__varPatio = Request.QueryString("Patio&quot

%>
<%
set Recordset1 = Server.CreateObject("ADODB.Recordset&quot

Recordset1.ActiveConnection = MM_AustinLuxuryApartments_STRING
Recordset1.Source = "SELECT Apartment_Info.Apartment_Name,Apartment_Info.Area,MIN(Unit_Info.Low_Price) AS "Economy",MAX(Unit_Info.High_Price) AS "Luxury", COUNT(*) AS "Number of Units Found" FROM Apartment_Info INNER JOIN Unit_Info ON Apartment_Info.Apartment_ID = Unit_Info.Apartment_ID WHERE Apartment_Name LIKE '" + Replace(Recordset1__varName, "'", "''&quot

+ "' AND Type LIKE '" + Replace(Recordset1__varType, "'", "''&quot

+ "' AND Area LIKE '" + Replace(Recordset1__varArea, "'", "''&quot

+ "' AND Pools LIKE '" + Replace(Recordset1__varPools, "'", "''&quot

+ "' AND Washer_Dryer LIKE '" + Replace(Recordset1__varWasher_Dryer, "'", "''&quot

+ "' AND District LIKE '" + Replace(Recordset1__varDistrict, "'", "''&quot

+ "' AND Access_Gates LIKE '" + Replace(Recordset1__varAccess_Gates, "'", "''&quot

+ "' AND Jacuzzi LIKE '" + Replace(Recordset1__varJacuzzi, "'", "''&quot

+ "' AND Microwave LIKE '" + Replace(Recordset1__varMicrowave, "'", "''&quot

+ "' AND Fireplace LIKE '" + Replace(Recordset1__varFireplace, "'", "''&quot

+ "' AND Pet LIKE '" + Replace(Recordset1__varPet, "'", "''&quot

+ "' AND Large_Pet LIKE '" + Replace(Recordset1__varLarge_Pet, "'", "''&quot

+ "' AND Fitness_Center LIKE '" + Replace(Recordset1__varFitness_Center, "'", "''&quot

+ "' AND Covered_Parking LIKE '" + Replace(Recordset1__varCovered_Parking, "'", "''&quot

+ "' AND Garage LIKE '" + Replace(Recordset1__varGarage, "'", "''&quot

+ "' AND Zip Like '" + Replace(Recordset1__varZip, "'", "''&quot

+ "' AND Conn LIKE '" + Replace(Recordset1__varConn, "'", "''&quot

+ "' AND Prov LIKE '" + Replace(Recordset1__varProv, "'", "''&quot

+ "' AND Elementary_School LIKE '" + Replace(Recordset1__varElem, "'", "''&quot

+ "' AND Middle_School LIKE '" + Replace(Recordset1__varMid, "'", "''&quot

+ "' AND High_School LIKE '" + Replace(Recordset1__varHigh, "'", "''&quot

+ "' AND Basketball LIKE '" + Replace(Recordset1__varBasketball, "'", "''&quot

+ "' AND Alarms LIKE '" + Replace(Recordset1__varAlarms, "'", "''&quot

+ "' AND Water_Volleyball LIKE '" + Replace(Recordset1__varW_Volleyball, "'", "''&quot

+ "' AND Tennis LIKE '" + Replace(Recordset1__varTennis, "'", "''&quot

+ "' AND Vaulted_Ceilings LIKE '" + Replace(Recordset1__varVaulted_Ceilings, "'", "''&quot

+ "' AND Jogging_Trail LIKE '" + Replace(Recordset1__varJogging_Trail, "'", "''&quot

+ "' AND Sauna LIKE '" + Replace(Recordset1__varSauna, "'", "''&quot

+ "' AND Raquetball LIKE '" + Replace(Recordset1__varRaquetball, "'", "''&quot

+ "' AND Garden_Tub LIKE '" + Replace(Recordset1__varGarden_Tub, "'", "''&quot

+ "' AND Volleyball LIKE '" + Replace(Recordset1__varVolleyball, "'", "''&quot

+ "' AND Clubroom LIKE '" + Replace(Recordset1__varClubroom, "'", "''&quot

+ "' AND Business_Center LIKE '" + Replace(Recordset1__varBusiness_Center, "'", "''&quot

+ "' AND Attached_Garage LIKE '" + Replace(Recordset1__varAttached_Garage, "'", "''&quot

+ "' AND View LIKE '" + Replace(Recordset1__varView, "'", "''&quot

+ "' AND Laundry LIKE '" + Replace(Recordset1__varLaundry, "'", "''&quot

+ "' AND Patio_Balconet LIKE '" + Replace(Recordset1__varPatio, "'", "''&quot

+ "' AND Low_Price >" + Replace(Recordset1__varLow_Price, "'", "''&quot

+ " AND High_Price < " + Replace(Recordset1__varHigh_Price, "'", "''&quot

+ " GROUP BY Apartment_Info.Apartment_Name,Apartment_Info.Area"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%><%
Dim Repeat1__numRows
Repeat1__numRows = 20
Dim Repeat1__index
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

' set the record count
Recordset1_total = Recordset1.RecordCount

' set the number of rows displayed on this page
If (Recordset1_numRows < 0) Then
Recordset1_numRows = Recordset1_total
Elseif (Recordset1_numRows = 0) Then
Recordset1_numRows = 1
End If

' set the first and last displayed record
Recordset1_first = 1
Recordset1_last = Recordset1_first + Recordset1_numRows - 1

' if we have the correct record count, check the other stats
If (Recordset1_total <> -1) Then
If (Recordset1_first > Recordset1_total) Then Recordset1_first = Recordset1_total
If (Recordset1_last > Recordset1_total) Then Recordset1_last = Recordset1_total
If (Recordset1_numRows > Recordset1_total) Then Recordset1_numRows = Recordset1_total
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (Recordset1_total = -1) Then

' count the total records by iterating through the recordset
Recordset1_total=0
While (Not Recordset1.EOF)
Recordset1_total = Recordset1_total + 1
Recordset1.MoveNext
Wend

' reset the cursor to the beginning
If (Recordset1.CursorType > 0) Then
Recordset1.MoveFirst
Else
Recordset1.Requery
End If

' set the number of rows displayed on this page
If (Recordset1_numRows < 0 Or Recordset1_numRows > Recordset1_total) Then
Recordset1_numRows = Recordset1_total
End If

' set the first and last displayed record
Recordset1_first = 1
Recordset1_last = Recordset1_first + Recordset1_numRows - 1
If (Recordset1_first > Recordset1_total) Then Recordset1_first = Recordset1_total
If (Recordset1_last > Recordset1_total) Then Recordset1_last = Recordset1_total

End If
%>
<%
' *** Move To Record and Go To Record: declare variables

Set MM_rs = Recordset1
MM_rsCount = Recordset1_total
MM_size = Recordset1_numRows
MM_uniqueCol = ""
MM_paramName = ""
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "&quot

Then
MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "&quot

End If
%>
<%
' *** Move To Record: handle 'index' or 'offset' parameter

if (Not MM_paramIsDefined And MM_rsCount <> 0) then

' use index parameter if defined, otherwise use offset parameter
r = Request.QueryString("index&quot

If r = "" Then r = Request.QueryString("offset&quot

If r <> "" Then MM_offset = Int(r)

' if we have a record count, check if we are past the end of the recordset
If (MM_rsCount <> -1) Then
If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last
If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
Else
MM_offset = MM_rsCount - MM_size
End If
End If
End If

' move the cursor to the selected record
i = 0
While ((Not MM_rs.EOF) And (i < MM_offset Or MM_offset = -1))
MM_rs.MoveNext
i = i + 1
Wend
If (MM_rs.EOF) Then MM_offset = i ' set MM_offset to the last possible record

End If
%>
<%
' *** Move To Record: if we dont know the record count, check the display range

If (MM_rsCount = -1) Then

' walk to the end of the display range for this page
i = MM_offset
While (Not MM_rs.EOF And (MM_size < 0 Or i < MM_offset + MM_size))
MM_rs.MoveNext
i = i + 1
Wend

' if we walked off the end of the recordset, set MM_rsCount and MM_size
If (MM_rs.EOF) Then
MM_rsCount = i
If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount
End If

' if we walked off the end, set the offset based on page size
If (MM_rs.EOF And Not MM_paramIsDefined) Then
If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
If ((MM_rsCount Mod MM_size) > 0) Then
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
Else
MM_offset = MM_rsCount - MM_size
End If
End If
End If

' reset the cursor to the beginning
If (MM_rs.CursorType > 0) Then
MM_rs.MoveFirst
Else
MM_rs.Requery
End If

' move the cursor to the selected record
i = 0
While (Not MM_rs.EOF And i < MM_offset)
MM_rs.MoveNext
i = i + 1
Wend
End If
%>
<%
' *** Move To Record: update recordset stats

' set the first and last displayed record
Recordset1_first = MM_offset + 1
Recordset1_last = MM_offset + MM_size
If (MM_rsCount <> -1) Then
If (Recordset1_first > MM_rsCount) Then Recordset1_first = MM_rsCount
If (Recordset1_last > MM_rsCount) Then Recordset1_last = MM_rsCount
End If

' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "&quot

Then MM_removeList = MM_removeList & "&" & MM_paramName & "="
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each Item In Request.QueryString
NextItem = "&" & Item & "="
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
End If
Next

' add the Form variables to the MM_keepForm string
For Each Item In Request.Form
NextItem = "&" & Item & "="
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item))
End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
if (MM_keepBoth <> "&quot

Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
if (MM_keepURL <> "&quot

Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
if (MM_keepForm <> "&quot

Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "&quot

Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
<%
' *** Move To Record: set the strings for the first, last, next, and previous links

MM_keepMove = MM_keepBoth
MM_moveParam = "index"

' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 0) Then
MM_moveParam = "offset"
If (MM_keepMove <> "&quot

Then
params = Split(MM_keepMove, "&&quot

MM_keepMove = ""
For i = 0 To UBound(params)
nextItem = Left(params(i), InStr(params(i),"=&quot

- 1)
If (StrComp(nextItem,MM_moveParam,1) <> 0) Then
MM_keepMove = MM_keepMove & "&" & params(i)
End If
Next
If (MM_keepMove <> "&quot

Then
MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
End If
End If
End If

' set the strings for the move to links
If (MM_keepMove <> "&quot

Then MM_keepMove = MM_keepMove & "&"
urlStr = Request.ServerVariables("URL&quot

& "?" & MM_keepMove & MM_moveParam & "="
MM_moveFirst = urlStr & "0"
MM_moveLast = urlStr & "-1"
MM_moveNext = urlStr & Cstr(MM_offset + MM_size)
prev = MM_offset - MM_size
If (prev < 0) Then prev = 0
MM_movePrev = urlStr & Cstr(prev)
%>

lobstah · Dec 20, 2001

each if statement needs an end if

Guest_imported · Dec 20, 2001

I removed all the variables and I still get the same Error Code. IT started when I changed the SQL. Please Help

<%@LANGUAGE="VBSCRIPT"%>

<%
set Recordset1 = Server.CreateObject("ADODB.Recordset&quot

Recordset1.ActiveConnection = MM_AustinLuxuryApartments_STRING
Recordset1.Source = "SELECT MIN(Unit_Info.Low_Price) AS "Economy",MAX(Unit_Info.High_Price) AS "Luxury", COUNT(*) AS "Number_of Units_Found" FROM Apartment_Info INNER JOIN Unit_Info ON Apartment_Info.Apartment_ID = Unit_Info.Apartment_ID"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
</body>
</html>
<%
Recordset1.Close()
%>

lobstah · Dec 20, 2001

keywords in the error you are getting:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

- tells you it is a VBScript error, not a SQL error, and that there is an END tag missing somewhere.

how did this work before you changed your SQL statement, and how did you change your SQL statement? did you unknowingly remove or overwrite other lines of code?

Guest_imported · Dec 20, 2001

Here is the original SQL The SQL was the only thing that I changed

SELECT Apartment_Info.Apartment_ID, Apartment_Info.Apartment_Name, Apartment_Info.Address, Apartment_Info.City, Apartment_Info.State, Apartment_Info.Zip, Apartment_Info.Area, Apartment_Info.Apartments_Image, Apartment_Info.Location, Apartment_Info.YearBuilt, Apartment_Info.Number_of_Units, Apartment_Info.Management, Apartment_Info.Hrs, Apartment_Info.District, Apartment_Info.Elementary_School, Apartment_Info.Middle_School, Apartment_Info.High_School, Apartment_Info.Access_Gates, Apartment_Info.Alarms, Apartment_Info.Pet, Apartment_Info.Large_Pet, Apartment_Info.Pet_Comments, Apartment_Info.Application_Fee, Apartment_Info.Lease_Periods, Apartment_Info.Corporate_Units, Apartment_Info.Short_Term_Lease, Apartment_Info.Covered_Parking, Apartment_Info.Garage, Apartment_Info.Pools, Apartment_Info.Pool_Qnty, Apartment_Info.Laundry, Apartment_Info.Tennis, Apartment_Info.Volleyball, Apartment_Info.Water_Volleyball, Apartment_Info.Fitness_Center, Apartment_Info.Jogging_Trail, Apartment_Info.Raquetball, Apartment_Info.Basketball, Apartment_Info.Clubroom, Apartment_Info.Jacuzzi, Apartment_Info.Specials, Apartment_Info.Phone_Number, Apartment_Info.Comments, Apartment_Info.Sauna, Apartment_Info.Business_Center, Apartment_Info.View, Unit_Info.Unit_ID, Unit_Info.Plan, Unit_Info.Description, Unit_Info.Type, Unit_Info.SqFt, Unit_Info.Low_Price, Unit_Info.High_Price, Unit_Info.Deposit, Unit_Info.Fireplace, Unit_Info.Washer_Dryer, Unit_Info.Conn, Unit_Info.Prov, Unit_Info.Icemaker, Unit_Info.Microwave, Unit_Inf

utside_Storage, Unit_Info.Loft, Unit_Info.Townhome, Unit_Info.Study, Unit_Info.Sunroom, Unit_Info.Den, Unit_Info.Garden_Tub, Unit_Info.Walk_in_Closet, Unit_Info.Vaulted_Ceilings, Unit_Info.Linen_Closet, Unit_Info.Floorplan_Path, Unit_Info.Patio_Balconet
FROM Apartment_Info INNER JOIN Unit_Info ON Apartment_Info.Apartment_ID = Unit_Info.Apartment_ID
WHERE Apartment_Name LIKE 'varName' AND Type LIKE 'varType' AND Area LIKE 'varArea' AND Pools LIKE 'varPools' AND Washer_Dryer LIKE 'varWasher_Dryer' AND District LIKE 'varDistrict' AND Access_Gates LIKE 'varAccess_Gates' AND Jacuzzi LIKE 'varJacuzzi' AND Microwave LIKE 'varMicrowave' AND Fireplace LIKE 'varFireplace' AND Pet LIKE 'varPet' AND Large_Pet LIKE 'varLarge_Pet' AND Fitness_Center LIKE 'varFitness_Center' AND Covered_Parking LIKE 'varCovered_Parking' AND Garage LIKE 'varGarage' AND Zip Like 'varZip' AND Conn LIKE 'varConn' AND Prov LIKE 'varProv' AND Elementary_School LIKE 'varElem' AND Middle_School LIKE 'varMid' AND High_School LIKE 'varHigh' AND Basketball LIKE 'varBasketball' AND Alarms LIKE 'varAlarms' AND Water_Volleyball LIKE 'varW_Volleyball' AND Tennis LIKE 'varTennis' AND Vaulted_Ceilings LIKE 'varVaulted_Ceilings' AND Jogging_Trail LIKE 'varJogging_Trail' AND Sauna LIKE 'varSauna' AND Raquetball LIKE 'varRaquetball' AND Garden_Tub LIKE 'varGarden_Tub' AND Volleyball LIKE 'varVolleyball' AND Clubroom LIKE 'varClubroom' AND Business_Center LIKE 'varBusiness_Center' AND Attached_Garage LIKE 'varAttached_Garage' AND View LIKE 'varView' AND Laundry LIKE 'varLaundry' AND Patio_Balconet LIKE 'varPatio' AND Low_Price >varLow_Price AND High_Price < varHigh_Price
ORDER BY Apartment_Name, SqFt

Here is the original Asp<%@LANGUAGE="VBSCRIPT"%>

<%
Dim Recordset1__varType
Recordset1__varType = "1"
if (Request.QueryString("Type&quot

<> "&quot

then Recordset1__varType = Request.QueryString("Type&quot

%>
<%
Dim Recordset1__varArea
Recordset1__varArea = "%"
if (Request.QueryString("Area&quot

<> "&quot

then Recordset1__varArea = Request.QueryString("Area&quot

%>
<%
Dim Recordset1__varPools
Recordset1__varPools = "%"
if (Request.QueryString("Pool&quot

<> "&quot

then Recordset1__varPools = Request.QueryString("Pool&quot

%>
<%
Dim Recordset1__varWasher_Dryer
Recordset1__varWasher_Dryer = "%"
if (Request.QueryString("Washer_Dryer&quot

<> "&quot

then Recordset1__varWasher_Dryer = Request.QueryString("Washer_Dryer&quot

%>
<%
Dim Recordset1__varAccess_Gates
Recordset1__varAccess_Gates = "%"
if (Request.QueryString("Gates&quot

<> "&quot

then Recordset1__varAccess_Gates = Request.QueryString("Gates&quot

%>
<%
Dim Recordset1__varJacuzzi
Recordset1__varJacuzzi = "%"
if (Request.QueryString("Jacuzzi&quot

<> "&quot

then Recordset1__varJacuzzi = Request.QueryString("Jacuzzi&quot

%>
<%
Dim Recordset1__varMicrowave
Recordset1__varMicrowave = "%"
if (Request.QueryString("Microwave&quot

<> "&quot

then Recordset1__varMicrowave = Request.QueryString("Microwave&quot

%>
<%
Dim Recordset1__varFireplace
Recordset1__varFireplace = "%"
if (Request.QueryString("Fireplace&quot

<> "&quot

then Recordset1__varFireplace = Request.QueryString("Fireplace&quot

%>
<%
Dim Recordset1__varPet
Recordset1__varPet = "%"
if (Request.QueryString("Pet&quot

<> "&quot

then Recordset1__varPet = Request.QueryString("Pet&quot

%>
<%
Dim Recordset1__varLarge_Pet
Recordset1__varLarge_Pet = "%"
if (Request.QueryString("Large_Pet&quot

<> "&quot

then Recordset1__varLarge_Pet = Request.QueryString("Large_Pet&quot

%>
<%
Dim Recordset1__varFitness_Center
Recordset1__varFitness_Center = "%"
if (Request.QueryString("Fitness&quot

<> "&quot

then Recordset1__varFitness_Center = Request.QueryString("Fitness&quot

%>
<%
Dim Recordset1__varCovered_Parking
Recordset1__varCovered_Parking = "%"
if (Request.QueryString("Covered_Parking&quot

<> "&quot

then Recordset1__varCovered_Parking = Request.QueryString("Covered_Parking&quot

%>
<%
Dim Recordset1__varGarage
Recordset1__varGarage = "%"
if (Request.QueryString("Garage&quot

<> "&quot

then Recordset1__varGarage = Request.QueryString("Garage&quot

%>
<%
Dim Recordset1__varLow_Price
Recordset1__varLow_Price = "0"
if (Request.QueryString("tfLowPrice&quot

<> "&quot

then Recordset1__varLow_Price = Request.QueryString("tfLowPrice&quot

%>
<%
Dim Recordset1__varHigh_Price
Recordset1__varHigh_Price = "10000"
if (Request.QueryString("tfHighPrice&quot

<> "&quot

then Recordset1__varHigh_Price = Request.QueryString("tfHighPrice&quot

%>
<%
Dim Recordset1__varZip
Recordset1__varZip = "%"
if (Request.QueryString("Zip&quot

<> "&quot

then Recordset1__varZip = Request.QueryString("Zip&quot

%>
<%
Dim Recordset1__varName
Recordset1__varName = "%"
if (Request.QueryString("Name&quot

<> "&quot

then Recordset1__varName = Request.QueryString("Name&quot

%>
<%
Dim Recordset1__varConn
Recordset1__varConn = "%"
if (Request.QueryString("Conn&quot

<> "&quot

then Recordset1__varConn = Request.QueryString("Conn&quot

%>
<%
Dim Recordset1__varProv
Recordset1__varProv = "%"
if (Request.QueryString("Prov&quot

<> "&quot

then Recordset1__varProv = Request.QueryString("Prov&quot

%>
<%
Dim Recordset1__varDistrict
Recordset1__varDistrict = "%"
if (Request.QueryString("District&quot

<> "&quot

then Recordset1__varDistrict = Request.QueryString("District&quot

%>
<%
Dim Recordset1__varElem
Recordset1__varElem = "%"
if (Request.QueryString("Elem&quot

<> "&quot

then Recordset1__varElem = Request.QueryString("Elem&quot

%>
<%
Dim Recordset1__varMid
Recordset1__varMid = "%"
if (Request.QueryString("Mid&quot

<> "&quot

then Recordset1__varMid = Request.QueryString("Mid&quot

%>
<%
Dim Recordset1__varHigh
Recordset1__varHigh = "%"
if (Request.QueryString("High&quot

<> "&quot

then Recordset1__varHigh = Request.QueryString("High&quot

%>
<%
Dim Recordset1__varBasketball
Recordset1__varBasketball = "%"
if (Request.QueryString("Basketball&quot

<> "&quot

then Recordset1__varBasketball = Request.QueryString("Basketball&quot

%>
<%
Dim Recordset1__varAlarms
Recordset1__varAlarms = "%"
if (Request.QueryString("Alarms&quot

<> "&quot

then Recordset1__varAlarms = Request.QueryString("Alarms&quot

%>
<%
Dim Recordset1__varW_Volleyball
Recordset1__varW_Volleyball = "%"
if (Request.QueryString("Water_Volleyball&quot

<> "&quot

then Recordset1__varW_Volleyball = Request.QueryString("Water_Volleyball&quot

%>
<%
Dim Recordset1__varTennis
Recordset1__varTennis = "%"
if (Request.QueryString("Tennis&quot

<> "&quot

then Recordset1__varTennis = Request.QueryString("Tennis&quot

%>
<%
Dim Recordset1__varVaulted_Ceilings
Recordset1__varVaulted_Ceilings = "%"
if (Request.QueryString("Vaulted_Ceilings&quot

<> "&quot

then Recordset1__varVaulted_Ceilings = Request.QueryString("Vaulted_Ceilings&quot

%>
<%
Dim Recordset1__varJogging_Trail
Recordset1__varJogging_Trail = "%"
if (Request.QueryString("Jogging_Trail&quot

<> "&quot

then Recordset1__varJogging_Trail = Request.QueryString("Jogging_Trail&quot

%>
<%
Dim Recordset1__varSauna
Recordset1__varSauna = "%"
if (Request.QueryString("Sauna&quot

<> "&quot

then Recordset1__varSauna = Request.QueryString("Sauna&quot

%>
<%
Dim Recordset1__varRaquetball
Recordset1__varRaquetball = "%"
if (Request.QueryString("Raquetball&quot

<> "&quot

then Recordset1__varRaquetball = Request.QueryString("Raquetball&quot

%>
<%
Dim Recordset1__varGarden_Tub
Recordset1__varGarden_Tub = "%"
if (Request.QueryString("Garden_Tub&quot

<> "&quot

then Recordset1__varGarden_Tub = Request.QueryString("Garden_Tub&quot

%>
<%
Dim Recordset1__varVolleyball
Recordset1__varVolleyball = "%"
if (Request.QueryString("Volleyball&quot

<> "&quot

then Recordset1__varVolleyball = Request.QueryString("Volleyball&quot

%>
<%
Dim Recordset1__varBusiness_Center
Recordset1__varBusiness_Center = "%"
if (Request.QueryString("Business_Center&quot

<> "&quot

then Recordset1__varBusiness_Center = Request.QueryString("Business_Center&quot

%>
<%
Dim Recordset1__varClubroom
Recordset1__varClubroom = "%"
if (Request.QueryString("Clubroom&quot

<> "&quot

then Recordset1__varClubroom = Request.QueryString("Clubroom&quot

%>
<%
Dim Recordset1__varAttached_Garage
Recordset1__varAttached_Garage = "%"
if (Request.QueryString("Attached_Garage&quot

<> "&quot

then Recordset1__varAttached_Garage = Request.QueryString("Attached_Garage&quot

%>
<%
Dim Recordset1__varView
Recordset1__varView = "%"
if (Request.QueryString("View&quot

<> "&quot

then Recordset1__varView = Request.QueryString("View&quot

%>
<%
Dim Recordset1__varLaundry
Recordset1__varLaundry = "%"
if (Request.QueryString("Laundry&quot

<> "&quot

then Recordset1__varLaundry = Request.QueryString("Laundry&quot

%>
<%
Dim Recordset1__varPatio
Recordset1__varPatio = "%"
if (Request.QueryString("Patio&quot

<> "&quot

then Recordset1__varPatio = Request.QueryString("Patio&quot

%>
<%
set Recordset1 = Server.CreateObject("ADODB.Recordset&quot

Recordset1.ActiveConnection = MM_AustinLuxuryApartments_STRING
Recordset1.Source = "SELECT Apartment_Info.Apartment_ID, Apartment_Info.Apartment_Name, Apartment_Info.Address, Apartment_Info.City, Apartment_Info.State, Apartment_Info.Zip, Apartment_Info.Area, Apartment_Info.Apartments_Image, Apartment_Info.Location, Apartment_Info.YearBuilt, Apartment_Info.Number_of_Units, Apartment_Info.Management, Apartment_Info.Hrs, Apartment_Info.District, Apartment_Info.Elementary_School, Apartment_Info.Middle_School, Apartment_Info.High_School, Apartment_Info.Access_Gates, Apartment_Info.Alarms, Apartment_Info.Pet, Apartment_Info.Large_Pet, Apartment_Info.Pet_Comments, Apartment_Info.Application_Fee, Apartment_Info.Lease_Periods, Apartment_Info.Corporate_Units, Apartment_Info.Short_Term_Lease, Apartment_Info.Covered_Parking, Apartment_Info.Garage, Apartment_Info.Pools, Apartment_Info.Pool_Qnty, Apartment_Info.Laundry, Apartment_Info.Tennis, Apartment_Info.Volleyball, Apartment_Info.Water_Volleyball, Apartment_Info.Fitness_Center, Apartment_Info.Jogging_Trail, Apartment_Info.Raquetball, Apartment_Info.Basketball, Apartment_Info.Clubroom, Apartment_Info.Jacuzzi, Apartment_Info.Specials, Apartment_Info.Phone_Number, Apartment_Info.Comments, Apartment_Info.Sauna, Apartment_Info.Business_Center, Apartment_Info.View, Unit_Info.Unit_ID, Unit_Info.Plan, Unit_Info.Description, Unit_Info.Type, Unit_Info.SqFt, Unit_Info.Low_Price, Unit_Info.High_Price, Unit_Info.Deposit, Unit_Info.Fireplace, Unit_Info.Washer_Dryer, Unit_Info.Conn, Unit_Info.Prov, Unit_Info.Icemaker, Unit_Info.Microwave, Unit_Inf

utside_Storage, Unit_Info.Loft, Unit_Info.Townhome, Unit_Info.Study, Unit_Info.Sunroom, Unit_Info.Den, Unit_Info.Garden_Tub, Unit_Info.Walk_in_Closet, Unit_Info.Vaulted_Ceilings, Unit_Info.Linen_Closet, Unit_Info.Floorplan_Path, Unit_Info.Patio_Balconet FROM Apartment_Info INNER JOIN Unit_Info ON Apartment_Info.Apartment_ID = Unit_Info.Apartment_ID WHERE Apartment_Name LIKE '" + Replace(Recordset1__varName, "'", "''&quot