Problema con Combos
rastaman
03 de Septiembre del 2003
Tengo dos combos en una ventana en uno se pueden elegir Equipos y en el Segundo el Tipo de Sanción, lo que me pasa que a la hora elegir un valor del Combo desaparece el valor del otro combo, (no tengo más remedio que hacerlo en un mismo frame), si os sirve de algo os paso el trozo de código que me da problemas.
un saludo de antemano
<% valorEquipo = request.querySTring("equipo")
valorSancion = request.querySTring("sancion")%>
<html>
<head>
<title>Resultados</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style>
body
{
SCROLLBAR-BASE-COLOR:#006633;
SCROLLBAR-ARROW-COLOR:#FFFFFF;
}
SELECT
{
SCROLLBAR-BASE-COLOR:#006633;
SCROLLBAR-ARROW-COLOR:#006633;
FONT-FAMILY: Verdana;
FONT-SIZE: 10px;
border: 1px solid #006600;
}
</style>
</head>
<body >
<%
obtenemos la ruta completa de la base de datos
basedatos = Server.MapPath("Antiguos_Alumnos.mdb")
'Cargamos en una Lista Todas las Jornadas
'establecemos la conexion para obtener Todas las Jornadas
set conexion =Server.CreateObject("ADODB.Connection")
set registros=Server.CreateObject("ADODB.Recordset")
set tipo_sancion=Server.CreateObject("ADODB.Recordset")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
'Obtengo todos los equipos de la Competicion
SQL="SELECT Equipo FROM Clasificacion ORDER BY Equipo "
''//Abro el recordset
registros.Open SQL,conexion,3,3
'Obtengo todos los tipos de sanciones
SQL2="SELECT Sancion, Puntos_Restan FROM Puntos_Sancion ORDER by Sancion"
''//Abro el recordset
tipo_sancion.Open SQL2,conexion,3,3
%>
<form name="resultados" method="POST" action="actualizar_sancion.asp">
<table align ="center" border="0" cellspacing="2" cellpadding="0" width="65%">
<tr>
<td valign="top"><strong><font size="2" face="Verdana" color="#006600">Equipo : </font></strong>
<select name="select" onChange="javascript:document.location.href='sanciones.asp?equipo='+this.value">
<%
do while not registros.eof
response.write "<option value="
response.write registros("Equipo")
if valorEquipo = registros("Equipo") then
response.write " selected>"
else
response.write ">"
end if
response.write registros("Equipo")
registros.MoveNext
loop
registros.close
set regitros = nothing
%>
</select>
</td>
<%
valor_Equipo =Request.QuerySTring("equipo")
%>
<td valign="top"><strong><font size="2" face="Verdana" color="#006600">Sanciones : </font></strong>
<select name="select" onChange="javascript:document.location.href='sanciones.asp?sancion='+this.value">
<%
do while not tipo_sancion.eof
response.write "<option value="
response.write tipo_sancion("Sancion")
if valorSancion = tipo_sancion("Sancion") then
response.write " selected>"
else
response.write ">"
end if
response.write tipo_sancion("Sancion")
tipo_sancion.MoveNext
loop
tipo_sancion.close
set tipo_sancion = nothing
%>
</select>
</td>
<%
valor_sancion =Request.QuerySTring("sancion")
%>
</tr>
</table>
<%
conexion.Close
Session("valor_equipo") = valor_equipo
Session("valor_sancion") = valor_sancion
set conexion=nothing%>
<br>
<div align="center">
<input name="actualizar" type="submit" value="Actualizar" >
</div>
</form>
</body>
</html>
un saludo de antemano
<% valorEquipo = request.querySTring("equipo")
valorSancion = request.querySTring("sancion")%>
<html>
<head>
<title>Resultados</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style>
body
{
SCROLLBAR-BASE-COLOR:#006633;
SCROLLBAR-ARROW-COLOR:#FFFFFF;
}
SELECT
{
SCROLLBAR-BASE-COLOR:#006633;
SCROLLBAR-ARROW-COLOR:#006633;
FONT-FAMILY: Verdana;
FONT-SIZE: 10px;
border: 1px solid #006600;
}
</style>
</head>
<body >
<%
obtenemos la ruta completa de la base de datos
basedatos = Server.MapPath("Antiguos_Alumnos.mdb")
'Cargamos en una Lista Todas las Jornadas
'establecemos la conexion para obtener Todas las Jornadas
set conexion =Server.CreateObject("ADODB.Connection")
set registros=Server.CreateObject("ADODB.Recordset")
set tipo_sancion=Server.CreateObject("ADODB.Recordset")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
'Obtengo todos los equipos de la Competicion
SQL="SELECT Equipo FROM Clasificacion ORDER BY Equipo "
''//Abro el recordset
registros.Open SQL,conexion,3,3
'Obtengo todos los tipos de sanciones
SQL2="SELECT Sancion, Puntos_Restan FROM Puntos_Sancion ORDER by Sancion"
''//Abro el recordset
tipo_sancion.Open SQL2,conexion,3,3
%>
<form name="resultados" method="POST" action="actualizar_sancion.asp">
<table align ="center" border="0" cellspacing="2" cellpadding="0" width="65%">
<tr>
<td valign="top"><strong><font size="2" face="Verdana" color="#006600">Equipo : </font></strong>
<select name="select" onChange="javascript:document.location.href='sanciones.asp?equipo='+this.value">
<%
do while not registros.eof
response.write "<option value="
response.write registros("Equipo")
if valorEquipo = registros("Equipo") then
response.write " selected>"
else
response.write ">"
end if
response.write registros("Equipo")
registros.MoveNext
loop
registros.close
set regitros = nothing
%>
</select>
</td>
<%
valor_Equipo =Request.QuerySTring("equipo")
%>
<td valign="top"><strong><font size="2" face="Verdana" color="#006600">Sanciones : </font></strong>
<select name="select" onChange="javascript:document.location.href='sanciones.asp?sancion='+this.value">
<%
do while not tipo_sancion.eof
response.write "<option value="
response.write tipo_sancion("Sancion")
if valorSancion = tipo_sancion("Sancion") then
response.write " selected>"
else
response.write ">"
end if
response.write tipo_sancion("Sancion")
tipo_sancion.MoveNext
loop
tipo_sancion.close
set tipo_sancion = nothing
%>
</select>
</td>
<%
valor_sancion =Request.QuerySTring("sancion")
%>
</tr>
</table>
<%
conexion.Close
Session("valor_equipo") = valor_equipo
Session("valor_sancion") = valor_sancion
set conexion=nothing%>
<br>
<div align="center">
<input name="actualizar" type="submit" value="Actualizar" >
</div>
</form>
</body>
</html>