
30/06/2005, 14:30
|
| | Fecha de Ingreso: junio-2005
Mensajes: 67
Antigüedad: 19 años, 10 meses Puntos: 0 | |
Esta es la pagina que contiene los includes:
Tengo problemas con contvacaciones.asp
<!-- #include file="cabecera.asp" -->
<!-- #include file="menu.asp" -->
<!-- #include file="contvacaciones.asp" -->
<!-- #include file="pie.asp" -->
<HTML>
<HEAD>
<META http-equiv=Content-Type content="text/html; charset=unicode">
<% Call cabecera%>
<table width="780" border="0" cellspacing="0" align="center" >
<tr>
<td width="119">
<%call menu %>
<p> </p> <p> </p>
<p>
</td>
<td width="660">
<%call contvacaciones %>
</td>
</tr>
</table>
<%call pie %>
</BODY>
</HTML>
Pagina contvacaciones.asp
<%sub contvacaciones
%>
<form name=formulario>
PAÍS: <select name=idPais onChange="location.href('selects_dependientes.asp? idPais=' + formulario.idPais.options[formulario.idPais.selectedIndex].value)">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("mibase.mdb"))
SQL_pais="select * from paises order by pais asc"
set RS_pais=createobject("ADODB.Recordset")
RS_pais.open SQL_pais,conn
do while not RS_pais.eof
pais = RS_pais("pais")
idPais = RS_pais("idPais")
p = request.querystring("pais")
if p <> "" then
if p = pais then
response.write "<option value="&idPais&"&pais="&pais&" selected>"&pais&"</option>"
elseif p <> pais then
response.write "<option value="&idPais&"&pais="&pais&">"&pais&"</option>"
end if
else
response.write "<option value="&idPais&"&pais="&pais&">"&pais&"</option>"
end if
RS_pais.movenext
loop
RS_pais.close
%>
</select>
<%
if request.querystring("idPais") <> "" then %>
PROVINCIA: <select name=ubicacion>
<%
SQL_prov="select * from provincias where pais="&request.querystring("idPais")&" order by provincia asc"
set RS_prov=createobject("ADODB.Recordset")
RS_prov.open SQL_prov,conn
do while not RS_prov.eof
pais = request.querystring("pais")
provincia = RS_prov("provincia")
%>
<option value="<%=provincia%>, <%=pais%>"><%=provincia%></option>
<%
RS_prov.movenext
loop
RS_prov.close
%>
</select><% end if %></form>
<% end sub %>
No se si con esto te vale.
Espero me podais ayudar porque estoy atascada.
Gracias. |