Saludos a todos:
He probado todo lo que me han dicho y más cosas... :(
Entonces solo me queda pasarles todo el código completo a ver si hay alguna otra cosa.
Por cierto no he conseguido simplificar la conexión del segundo recordset y entonces he tenido que abrir otro recordset igual que el anterior para consultar otra tabla que está en la misma base datos. ¿Sabe alguien a qué es debido esto?. Me refiero a que lo normal sería eliminar las lineas siguientes puesto que son redundantes:
Set Conn2 = Server.CreateObject ("ADODB.Connection")
Conn2.ConnectionString = "DSN=clubviajesoferta.com.amancio"
El problema es que no me carga la página porque hay un error en la sentencia:
sqltring = "Select * From tallas WHERE id = "& request.form("comboidtalla") &" ORDER BY talla"
Y francamente yo no lo veo por ninguna parte.
Principio de código
---------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!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"-->
<%
'Capturamos los datos del formulario
comboidtalla=request.form("comboidtalla")
'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="tipostalla"
RS.Locktype = adLockOptimistic
RS.CursorType = adOpenDinamic
RS.open
%>
<%
Set Conn2 = Server.CreateObject ("ADODB.Connection")
Conn2.ConnectionString = "DSN=clubviajesoferta.com.amancio"
Set RS2 = Server.CreateObject ("ADODB.RecordSet")
'Conectamos a la conexion a la base de datos.
Conn2.Open
'El problema está en la cadena de conexión sqlstring abajo indicada
sqltring = "Select * From tallas WHERE id = "& request.form("comboidtalla") &" ORDER BY talla"
'Abrimos la tabla pidiendo todos sus registros.
RS2.Open sqltring, Conn2
%>
<body>
<form name="form1" method="post" action="anadir_talla_result.asp">
<table width="30%" border="0">
<tr>
<td width="68%" valign="top">Tallas existentes </td>
<td width="32%"><select name="combotallaexistente" size="5" id="combotallaexistente">
<%
if not (rs.bof and rs.eof) then
rs.movefirst
do while not rs.eof
%>
<option value="<%=rs2("talla")%>"><%=rs2("talla")%></option>
<%
rs.movenext
loop
end if
%>
</select></td>
</tr>
</table>
<p> </p>
<p>Idtalla
<select name="comboidtalla" id="comboidtalla">
<%
if not (rs.bof and rs.eof) then
rs.movefirst
do while not rs.eof
%>
<option value="<%=rs("id")%>"><%=rs("idtalla")%></option>
<%
rs.movenext
loop
end if
%>
</select>
Talla
<input name="talla" type="text" id="talla" size="6" maxlength="6">
</p>
<p>
<input type="submit" name="Submit" value="Agregar talla">
<input type="reset" name="Submit" value="Limpiar pantalla">
</p>
</form>
</body>
<%
'response.Write("pepe" & request.form("select"))
rs.close
conn.close
rs2.close
conn2.close
%>
</html>
-----------------------
Final de código
A ver si pueden ayudarme y gracias a todos