---

<%IF Request.Form("Accion") = "buscar" THEN%> <% Set RsBuscaCP = Server.CreateObject("ADODB.Recordset") SqlBusqueda = "SELECT * FROM codigospostales WHERE " SqlWhere = "" IF Request.Form("CodigoPostal") <> "" THEN IF LEN(SqlWhere) > 1 THEN SqlWhere = SqlWhere & " AND " END IF SqlWhere = SqlWhere & " cp LIKE '%" & UCASE(Request.Form("CodigoPostal")) & "%'" END IF IF Request.Form("Localidad") <> "" THEN IF LEN(SqlWhere) > 1 THEN SqlWhere = SqlWhere & " AND " END IF SqlWhere = SqlWhere & " localidad LIKE '%" & UCASE(Request.Form("Localidad")) & "%'" END IF IF Request.Form("Provincia") <> "" THEN IF LEN(SqlWhere) > 1 THEN SqlWhere = SqlWhere & " AND " END IF SqlWhere = SqlWhere & " provincia LIKE '%" & UCASE(Request.Form("Provincia")) & "%'" END IF SqlBusqueda = SqlBusqueda & SqlWhere & " ORDER BY localidad" RsBuscaCP.Open SqlBusqueda,Conexion %>

Resultado de su Búsqueda

<%IF RsBuscaCP.Eof THEN%>

No se han encontrado Códigos Postales con esos parámetros de búsqueda

<%ELSE%> <%nRegistro = 1 DO WHILE NOT RsBuscaCP.Eof IF INT(nRegistro/2) = (nRegistro/2) THEN sBgColor = "#FFFFFF" ELSE sBgColor = "#F2F2F2" END IF %> <%nRegistro = nRegistro + 1 RsBuscaCP.Movenext LOOP%>

Código Postal	Localidad	Provincia
<%=RsBuscaCP("Cp")%>	<%=RsBuscaCP("Localidad")%>	<%=RsBuscaCP("Provincia")%>

Su consulta ha arrojado <%=nRegistro-1%> resultado/s <%END IF RsBuscaCP.Close Set RsBuscaCP = Nothing%>

---

<%END IF%>

Utilice este formulario para realizar la Búsqueda del Código Postal. Ingrese la localidad que está buscando o parte de su nombre. Puede utilizar los otros campos para acotar la búsqueda.