como reconocer el * como tal

[suntus]

ok la paso con valor 10
<option value="10"> -Select Number-</option>


y luego recojo todas las variables asi

<%

DIM T1,P1,P2

T1=Request.Form("tipo")
P1=Request.Form("precio")
R1=Request.Form("Habitaciones")
Z1=Request.Form("Zona")

select case P1
case "1" P1="a"
case "2" P1="b"
case "3" P1="c"
case "4" P1="d"
END SELECT

SELECT CASE P1

Case "a" SQL="SELECT * FROM productos WHERE (PrecioEuros)"
Case "b" SQL="SELECT * FROM productos WHERE (PrecioEuros BETWEEN 0 AND 90000)"
Case "c" SQL="SELECT * FROM productos WHERE (PrecioEuros BETWEEN 90000 AND 140000)"
Case "d" SQL="SELECT * FROM productos WHERE (PrecioEuros BETWEEN 140000 AND 999999999)"
END SELECT


'(((Tipo) = '" & T1 & "'))
' AND

If Z1="10" then
SQL=SQL + " AND (((zona) = '" & * & "'))"
ELSE
End If

SQL=SQL + " AND (((Tipo) = '" & T1 & "'))"

SQL=SQL + " AND (((Habitaciones) = '" & R1 & "'))"

SQL=SQL + " AND (((Zona) = '" & Z1 & "'))"

set conn = createobject("adodb.connection")
conn.open "sunandgolfhomes.com.resale"
set rs = createobject("adodb.recordset")
rs.open sql,conn,3,1


rc=rs.recordcount


DIM n
n=0

%>


lo que aparece en rojo es lo nuevo... pero da error de servidor