priblema con unas listas hola a todo sespero ke me ayuden, he estado casi todo el dia tratando ke me funcione unas listas.................
este es el codigo de la pagina
<!--#include file="top_ir.asp"-->
<%
Dim Rs_re, SqlRe
Dim Rs_re_1, Rs_prov, SqlProv
Dim RsComu, SQL
Dim Res, sqlEst
Dim ResTipo, sqlTipo, result
Dim cuenta, cat, provinciax, Prov
Dim Rol, Dv, Rut, DvRul
Dim SelRegion, SelComuna
Dim actualIdRegion, actualIdComuna
Session("Rol") = campo1
Session("Dv") = campo2
Session("Rut") = campo8
Session("DvRut") = campo9
'Para SqlServer
StrConn = "Provider=SQLOLEDB; Data Source=" & Cstr(Application("Servidor")) & "; Initial Catalog=" & Cstr(Application("Base")) & "; User ID=" & Cstr(Application("Usuario")) & "; Password=" & Cstr(Application("password")) & ";"
On error resume next 'Activar manejo de errores
'Creación de objeto de conección
Set ConexionBD = Server.CreateObject("ADODB.Connection")
'Abrir la conexión...
ConexionBD.open StrConn
'listar regiones
Set Rs_re = Server.CreateObject("ADODB.Recordset")
SqlRe = "SELECT * FROM BD_REGION ORDER BY region"
rs_re.open SqlRe, conexionBD, 1, 2
Set Rs_re_1 = Server.CreateObject("ADODB.Recordset")
rs_re_1.open SqlRe, conexionBD, 1, 2
prov = int(campo15/100)*100
Set Rs_prov = Server.CreateObject("ADODB.Recordset")
SqlProv = "SELECT * FROM BD_RPC WHERE (comuna = '" & prov & "')"
rs_prov.open SqlProv, conexionBD, 1, 2
Set Res = Server.CreateObject("ADODB.Recordset")
sqlEst = "SELECT * FROM ESTADO_DIRECTORIO order by codigo"
res.open sqlEst, conexionBD, 1, 2
Set ResTipo = Server.CreateObject("ADODB.Recordset")
sqlTipo = "SELECT * FROM TIPO_EMPRESA order by codigo"
resTipo.open sqlTipo, conexionBD, 1, 2
%>
<script language="JavaScript" src="lib_js/validaciones.js"></script>
<script language="JavaScript" src="lib_js/chequeo.js"></script>
<script language="JavaScript" src="lib_js/siguiente_campo.js"></script>
<object ID="region" CLASSID="clsid:333C7BC4-460F-11D0-BC04-0080C7055A83">
<param NAME="DataURL" VALUE="/lib_asp/datos.region.asp?verdatos=region">
<param NAME="FieldDelim" VALUE=",">
</object>
<script language="javascript" for="SelRegion" event="onblur">
region.DataURL="/lib_asp/datos.region.asp?verdatos=region&id_region="+FormD ire.SelRegion.value;
for (var i = FormDire.SelComuna.options.length; i > 0 ; i--) {
FormDire.SelComuna.options[i] = null;
}
region.reset();
</script>
<tr align="center">
<td colspan="2" class="txt_12_negro_res">Directorio</td>
</tr>
<tr align="center">
<td colspan="2"><img src="imagenes/linea.gif" width="500" height="2"></td>
</tr>
<tr>
<td height="40" colspan="2" class="txt_12_negro_res"> </td>
</tr>
<tr align="center" valign="top">
<th colspan="2"><form name="FormDire" method="post" action="GrabaDirectorio.asp" Onsubmit="<%if(Session("sw_existe")=1)then%>return chequea_mant_directorio(this);<%else%>return chequea_ing_directorio(this);<%End if%>">
<table width="750" border="0" cellspacing="0" cellpadding="0">
<tr align="left" class="txt_negrita_01">
<td height="30" colspan="2"></td>
</tr>
<tr align="left">
<td height="30" colspan="2" class="txt_subtitulo_01"><table width="750" height="30" border="0" cellpadding="0" cellspacing="0">
<tr align="left" class="txt_subtitulo_01">
<td width="145" class="txt_subtitulo_01">13.- Región </td>
<td width="233"><select nam="SelRegion" class="cbo_extralargo" tag="Región" id="SelRegion" OnkeyDown="javascript:(!PresionaEnter())?chequea_l ista(this):''" onFocus="nextfield='SelComuna';">
<option value="0" <%if(Session("sw_existe") = 0)then%>selected<%End if%>>Seleccione ...</option>
<% While Not rs_re.EOF%>
<option value="<%=rs_re.Fields("region")%>"
<% if (campo16 = rs_re.Fields("region")) then
Response.write "selected"
actualIdRegion = SelRegion
End if%>> <%=rs_re.Fields("glosa")%></option>
<% rs_re.movenext
wend
rs_re.close %>
</select></td>
<td width="95">14.- Comuna </td>
<td width="277"><select name="SelComuna" class="cbo_largo" tag="Comuna" id="SelComuna" OnkeyDown="PresionaEnter();" datasrc="#region" dataFldText="column2" dataFldValue="column1" value="<%=y%>">
<option value="0" <%if(Session("sw_existe") = 0)then%>selected<%End if%>>Seleccione ...</option>
<%=campo14%>
</select></td>
</tr>
</table></td>
</tr>
<tr align="left">
<td height="60" colspan="2" class="txt_header_02"> </td>
</tr>
<tr align="center">
<td colspan="2" class="txt_subtitulo_01"><table width="480" border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td width="87" align="left"><input name="reset" type="reset" class="btn_azul" value="Limpiar"></td>
<td width="125"><input name="grabar" type="submit" class="btn_azul" value=" Grabar "></td>
<td width="135"><input name="Volver" type="reset" class="btn_azul" value=" Volver " Onclick="javascript:window.location.href='consulDi rect.asp'"></td>
<td width="133" align="right"><input name="Submit" type="reset" class="btn_azul" value="Menu principal" Onclick="javascript:window.location.href='MenuOpc. asp'"></td>
</tr>
</table></td>
</tr>
<tr align="center">
<td height="50" colspan="2" class="txt_subtitulo_01"> </td>
</tr>
</table>
<input type="hidden" name="actualIdRegion" value="<%=actualIdRegion%>">
<input type="hidden" name="actualIdComuna" value="<%=actualIdComuna%>">
</form>
</th>
</tr>
</table></th>
</tr>
</table></th>
</tr>
</table>
</body>
</html>
este es un formulario (sake algunas cosas, deje lo mas importante), los cuales los campos importantes son SelRegion y SelComuna
la idea es tener en SelRegion la lista de la regiones, el campo16 es el valor ke tiene en la base de datos, al pinchar una region automaticamente se carga la lista de las comunas ke existen en esa region (SelComuna)
tambien el campo14 tiene el valor de comuna ke tiene la base (SqlServer)
cuando llamo a class="cbo_largo" tiene el siguiente valor
.cbo_largo
{
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 8pt;
font-style: normal;
background-color: #f5f5f5;
width: 230px;
behavior: url("/lib_js/select.htc");
}
y el codigo ke tiene esta pagina datos.region.asp es el siguiente
if (verdatos = "region") then
if (id_region <> "") then
Dim RsComuna, SqlComuna
'Para SqlServer
StrConn = "Provider=SQLOLEDB; Data Source=" & Cstr(Application("Servidor")) & "; Initial Catalog=" & Cstr(Application("Base")) & "; User ID=" & Cstr(Application("Usuario")) & "; Password=" & Cstr(Application("password")) & ";"
On error resume next 'Activar manejo de errores
'Creación de objeto de conección
Set ConexionBD = Server.CreateObject("ADODB.Connection")
'Abrir la conexión...
ConexionBD.open StrConn
'listar comunas segun region
Set RsComuna = Server.CreateObject("ADODB.Recordset")
SqlComuna = "SELECT comuna, nom_rpc1 FROM BD_RPC WHERE (region = "&id_region&") AND (com_ant > 0) ORDER BY nom_rpc1"
RsComuna.open SqlComuna, conexionBD, 1, 2
'$query="SELECT * FROM geog_paises WHERE id_pais='$id_pais' AND baja!=1";
'$paises=mysql_query($query, $conn);
'while ($obj_pais=mysql_fetch_object($paises)) {
' $pais=$obj_pais->descripcion;
'}
while Not RsComuna.EOF
Response.Write ( RsComuna.Fields("comuna") & "," & RsComuna.Fields("nom_rpc1") & vbCrlf )
RsComuna.MoveNext
wend
End if
End if
mi problema es ke no me muestra la lista de comuna, la pagina datos_region.asp la he probado y me funciona correctamente, pero no se por ke no me muestra la lista
y lo otro ke en el caso ke el campo14 (es el valor de la comuna ke tiene la base) si no es igual a vacio me deje seleccionado el valor en SelComuna
ojala me haya hecho entender y me puedan ayudar ya ke he perdido mucho tiempo con esto y lo necesito de forma urgente
de antemano muchas gracias.........
