<% precio=Request.Form("precio2") ConnString = "Driver={MySQL};SERVER=mysql.virtuabyte.com;DATABASE=traveltop;UID=traveltop;PASSWORD=gw3.,kmes" Set Conn =Server.CreateObject("ADODB.Connection") Set RS=Server.CreateObject("adodb.RecordSet") Conn.Open ConnString If precio=1 then dig1=0 end if If precio=2 then dig1=150 end if If precio=3 then dig1=100 dig2=150 end if If precio=4 then dig1=50 dig2=100 end if If precio=5 then dig1=1 dig2=50 end if If dig1=150 or dig1=0 then sqlText = "SELECT * FROM hoteles WHERE valor>='"& dig1 &"'" RS.Open sqlText, Conn else sqlText = "SELECT * FROM hoteles WHERE valor>='"& dig1 &"' and valor<'"& dig2 &"'" RS.Open sqlText, Conn end if %>

Result Search <% do while not rs.EOF%> " action="/html/resultado6_reserva.asp" method="post"> <% rs.MoveNext Loop rs.Close %>   Name Rates Star Rating Location "> .submit();"><%=rs("nombre")%> US$ <%=rs("valor")%> <%=rs("estrellas")%> Star <%=rs("sector2")%>

<% Conn.Close Set Conn = Nothing %>