Pues parece que no va.
Ahora me muestra solamente el combo "combotallaexistentes" vacio y no muestra el boton "consultar tallajes", tampoco muestra el combo "comboarticulo", ni el boton "consultar tallajes".
O sea que no termina de dibujar el formulario.
Creo que hay un pequeño problema ;) veras:
1) En el combo "combotallasexistentes" tiene que dar un listado de la tabla "tallas" y en el combo "comboarticulo" tiene que sacar un listado de la tabla "articulostalla".
Y no veo por ninguna parte una conexión con la tabla tallas.
O sea ya se que es una chorrada pero he probado a meter una linea:
RS2.source="tallas"
para que me diese un listado de las tallas pero no me funciona.
2) Por otro lado la tabla tallas y la tabla articulostalla estan relacionadas por un campo id que en el caso de la tabla tallas es numerico (entero largo) y en el caso de la tabla articulostalla es autonumerico (entero largo).
Podra venir algun problema de coincidencia de tipos por eso?
Vuelvo a pasar el código fuente para situarnos:
Código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
response.Expires=0
Response.AddHeader "PRAGMA", "NO-CACHE"
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Documento sin título</title>
</head>
<!--Incluimos el fichero de constantes-->
<!--#INCLUDE file="../../ADOVBS.asp"-->
<%
comboarticulo=request("comboarticulo")
response.write("El valor del combo es: " & comboarticulo)
%>
<%'Conectamos a la base de datos
set Conn= Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "DSN=clubviajesoferta.com.amancio"
Conn.open
Set RS=Server.CreateObject("ADODB.Recordset")
RS.activeconnection=Conn
RS.source="articulostalla"
RS.Locktype = adLockOptimistic
RS.CursorType = adOpenDinamic
RS.open
%>
<%
'Conectamos a la base de datos
Set Command= Server.CreateObject("ADODB.Command")
' Abrimos el Recordset RS2 para realizar la consulta del combotallasexistentes
Command.ActiveConnection=Conn
Command.CommandType=adCmdText
if comboarticulos = "" Then
Command.CommandText= "Select * From tallas"
else
Command.CommandText= "Select * From tallas WHERE id = '" & comboarticulo & "'"
End If
RS2=Command.Execute ()
%>
<body>
<form action="anadir_talla.asp" method="get" name="form1">
<table width="30%" border="0">
<tr valign="top">
<td width="68%">Tallas existentes </td>
<td width="16%"><select name="combotallasexistentes" size="5" id="combotallasexistentes">
<%
if not (rs2.bof and rs2.eof) then
rs2.movefirst
do while not rs2.eof %>
<option value="<%=rs2("talla")%>"><%=rs2("talla")%></option>
<%rs2.movenext
loop
end if
%>
</select></td>
<td width="16%"><input type="submit" value="Consultar tallajes"></td>
</tr>
</table>
<p> </p>
<p>Articulo
<select name="comboarticulo">
<%
if not (rs.bof and rs.eof) then
rs.movefirst
do while not rs.eof %>
<option value="<%=rs("id")%>" selected>
<%if rs("id")=comboarticulo then
response.write("selected")
end if
%>
<%=rs("articulo")%>
</option>
<%
rs.movenext
loop
end if
%>
</select>
</p>
</form>
</body>
<%
rs.close
rs2.close
conn.close
%>
</html>
Siento darte la vara pero es muy importante que consiga hacer esto y es la única vía de solución posible.
Gracias