hola, muy wenas. Aver si alguien me puede ayudar con esto.
Me explico mejor. Tengo varias tablas q estan relacionados con el mismo id. Quiero q en cuanto grabe en una tabla y pase a otro form, poder guardar en otra tabla ese id ultimo q se ha grabado.
Os pongo el códifo de los dos asp. Falta un html anterior al 1º asp, donde solo hay cajas de texto para llevar al siguiente asp.
Cita: <!doctype html public "-//w3c//dtd html 3.2//en">
<html>
<head>
<title>(Type a title for your page here)</title>
<%@ LANGUAGE=JScript %>
<meta name="GENERATOR" content="Arachnophilia 4.0">
<meta name="FORMATTER" content="Arachnophilia 4.0">
<form action="OtrasActividades.asp" METHOD =POST>
</head>
<body bgcolor="#ffffff" text="#000000" link="#0000ff" vlink="#800080" alink="#ff0000">
<%
conexion=Server.CreateObject("adodb.connection")
registro1=Server.CreateObject("adodb.recordset")
conexion.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="+Server.MapPath("PDCP.mdb")+";")
x="select * from 902_DATOS_GENERALES where Empresa='"+Request.Form("empresa")+"'"
registro1.Open (x, conexion, 3, 0x0002)
if(registro1.EOF)
{
registro1.Addnew ()
registro1("Empresa") = Request.form ("empresa")
registro1("Direccion") = Request.form ("direccion")
registro1.Update()
Response.Write("Datos correctos")
}
else
Response.Write("Nombre de la empresa no válida")
%>
<center>
<h3>OTRAS ACTIVIDADES DE LA EMPRESA</h3>
</center>
<br>
<h2>Código de la empresa
<br>
'aqui cargamos los códigos de la empresa para poder seleccionarlo
<select name="s1" OnChange="visible()">
<%
conexion3=Server.CreateObject("adodb.connection")
registro3=Server.CreateObject("adodb.recordset")
conexion3.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="+Server.MapPath("PDCP.mdb")+";")
x2="select DISTINCT IdEmpresa from 902_DATOS_GENERALES "
registro3.Open (x2, conexion3, 3, 0x0002)
while(!registro3.eof)
{%>
<option value="<%=registro3("IdEmpresa")%>"><%=registro3(" IdEmpresa")%>
<%registro3.MoveNext()
}%>
</select>
<br>
<h3>Descripción de otras actividades
<input type=text name="desactividades">
<br>
<input type="submit" value="ALTA">
</body>
</html>
Lo q he hecho en esa segunda parte ha sido cargar todos los códigos de la empresa para seleccionar el último(el select del q hablo), q es el q se ha introducido x defecto en esta página (es autonumerico).
Y lo q quiero hacer es llevarlo a este otro asp. OtrasActividades.asp
Cita: <!doctype html public "-//w3c//dtd html 3.2//en">
<html>
<head>
<title>(Type a title for your page here)</title>
<%@ LANGUAGE=JScript %>
<meta name="GENERATOR" content="Arachnophilia 4.0">
<meta name="FORMATTER" content="Arachnophilia 4.0">
</head>
<body bgcolor="#ffffff" text="#000000" link="#0000ff" vlink="#800080" alink="#ff0000">
<%
conexion2=Server.CreateObject("adodb.connection")
registro2=Server.CreateObject("adodb.recordset")
conexion2.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="+Server.MapPath("PDCP.mdb")+";")
x="select * from 903_OTRAS_ACTIVIDADES where IdEmpresa='" & Request.form("s1") & "'"
registro2.Open (x, conexion2, 3, 0x0002)
if(registro2.EOF)
{
registro2.Addnew ()
registro2("DesOtrasActividades") = Request.form ("desactividades")
registro2("IdEmpresa") = Request.form("s1")
registro2.Update()
Response.Write("Datos correctos")
}
else
Response.write ("Error")
%>
</body>
</html>
s1 es como le he llamado al select (la seleccion del IdEmpresa) de el anterior form. Pero me da este error:
Cita: ADODB.Recordset error '800a0bb9'
Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros.
/OtrasActividades.asp, línea 21
La linea 21 es registro2.Open (x, conexion2, 3, 0x0002)
de el form OtrasActividades.
No sé si me he explicado bien. Sino me decis. Muchas gracias.