ASP - Ayuda muy urgente combobox

   
Vista:

Ayuda muy urgente combobox

Publicado por hugorei (1 intervención) el 24/03/2009 13:59:46
Tengo una tabla llamada "poblacion" que tiene los siguientes campos

Idnombre
Comunidad
Provincia
Ciudad
Calle

Provincia , ciudad y calle vienen en un combobox que toma los datos de la base de datos , el tema es que necesito saber la setencia sql para que cuando el usuario elija los tres combobox le muestre todos los datos el mismo y que cuando le de click al boton sin elegir nada le de un "mensaje usted no a seleccionado nada" y se quede en la pagina de partida .

Aca les pongo el codigo que tengo

ESTE ES EL DEL HTML DE LOS COMBOBOX

html>
<head>
<script type="text/javascript" src="poblacion.js"></script>
</head>
<body>
<form action="poblaciones.asp" method="post">
<div id="cajas">
<table>
<tr>
<td id="t_1"> Marca
<br />
<select name="s_1" id="s_1">
<option value="">Seleccionar marca</option>
<option value="FORD">FORD</option>
<option value="GM">GM</option>
<option value="IVECO">IVECO</option>
<option value="MERCEDES BENZ">MERCEDES BENZ</option>
<option value="PUMA">PUMA</option>
<option value="SCANIA">SCANIA</option>
<option value="VOLVO">VOLVO</option>
<option value="VOLKSWAGEN">VOLKSWAGEN</option>
</select>
</td>
<td id="t_2"> Modelo
<br />
<select name="s_2" id="s_2" disabled="true">
<option value="">Seleccionar Modelo</option>
</select>
</td>
<td id="t_3"> Motor
<br />
<select name="s_3" id="s_3" disabled="true">
<option value="">Seleccionar Motor</option>
</select>
</td>
<td id="t_4">Año<br />
<select name="s_4" id="s_4" disabled="true">
<option value="">Seleccionar Año</option>
</select>
</td>
</tr>
</table>
<p> </p>
<label><a href="resultado.asp">Buscar</a></label>
buscar
</form>
</body>
</html>

ESTE ES EL QUE HACE EL PROCESO ASP

<%
Dim buscarpor, oConn, rs, SQL, registros, z
Dim Comunidad, Provincia, Ciudad, Calle ' campos de la bd
Comunidad = 0
Provincia = 1
Ciudad = 2
Calle = 3

buscarpor = Split(Request.QueryString("mostrark"), "-")

Set oConn = Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath("poblaciones.mdb")&";Jet OLEDB:Database Password=741"

Select Case UBound(buscarpor)
Case 0 :
SQL ="SELECT Comunidad, Provincia FROM Poblaciones WHERE Comunidad LIKE '"& buscarpor(0) &"%' GROUP BY Comunidad, Provincia ORDER BY Provincia asc"
set rs = oConn.Execute(SQL)
registros = rs.getrows()
Response.Write "Provincia<br /><select name=""s_2"" id=""s_2"" onchange=""Ciudad(document.getElementById('s_2').options[document.getElementById('s_2').selectedIndex].value, 3);"">"
Response.Write "<option value="""">Seleccionar Modelo</option>"
For z = 0 to UBound(registros,2)
Response.Write "<option value="""& buscarpor(0) &"-"& registros(Provincia,z) &""">" & registros(Provincia,z) & "</option>"
Next 'z
Response.Write "</select>"
rs.Close
Set rs = Nothing
oConn.Close
Set oConn = Nothing

Case 1 :
SQL ="SELECT Comunidad, Provincia, Ciudad FROM Poblaciones WHERE Comunidad LIKE '"& buscarpor(0) &"%' AND Provincia LIKE '"& buscarpor(1) &"%' GROUP BY Comunidad, Provincia, Ciudad ORDER BY Ciudad asc"
set rs = oConn.Execute(SQL)
registros = rs.getrows()
Response.Write "Ciudad<br /><select name=""s_3"" id=""s_3"" onchange=""Ciudad(document.getElementById('s_3').options[document.getElementById('s_3').selectedIndex].value, 4);"">"
Response.Write "<option value="""">Seleccionar Motor</option>"
For z = 0 to UBound(registros,2)
Response.Write "<option value="""& buscarpor(0) &"-"& buscarpor(1) &"-"& registros(Ciudad,z) &""">" & registros(Ciudad,z) & "</option>"
Next 'z
Response.Write "</select>"
rs.Close
Set rs = Nothing
oConn.Close
Set oConn = Nothing

Case 2 :
SQL ="SELECT Comunidad, Provincia, Ciudad, Calle FROM Poblaciones WHERE Comunidad LIKE '"& buscarpor(0) &"%' AND Provincia LIKE '"& buscarpor(1) &"%' AND Ciudad LIKE '"& buscarpor(2) &"%' GROUP BY Comunidad, Provincia, Ciudad, Calle ORDER BY Calle asc"
set rs = oConn.Execute(SQL)
registros = rs.getrows()
Response.Write "Calle<br /><select name=""s_4"" id=""s_4"">"
Response.Write "<option value="""">Seleccionar Anio</option>"
For z = 0 to UBound(registros,2)
Response.Write "<option value="""& buscarpor(0) &"-"& buscarpor(1) &"-"& buscarpor(2) &"-"& registros(Calle,z) &""">" & registros(Calle,z) & "</option>"
Next 'z
Response.Write "</select>"
rs.Close
Set rs = Nothing
oConn.Close
Set oConn = Nothing

End Select
%>

Y ACA ESTA MI PROBLEMA EN ESTA PARTE EL QUE LO RECIBE

<%

comb1 = CStr(Request.Form("Provincia"))
comb2 = CStr(Request.Form("Ciudad"))
comb3 = CStr(Request.Form("Calle"))



Dim oConn, rs, SQL, cuenta, categoria

Set oConn = Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath("Poblaciones.mdb")&" ; Jet OLEDB:Database Password=741"
rs.Open SQL, oConn
%>

Y HASTA AQUI LLEGO , FALTA LA CONSULTA SELECT Y QUE ME MUESTRE LOS CAMPOS Y NO SE COMO HACERLO


ALGUIEN ME PUEDE AYUDA A COMPLETARLO ? POR SUPUESTO PUEDE USAR ESTE CODIGO ...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder