Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 insertar registros duplicados
 Foro Bloqueado  Tema Bloqueado


Autor Temas
cmaldonadon
Starting Member

Colombia
26 Posts
Mensajes - 17 Jun 2004 :  22:20:06  Ver Perfil  Enviar Email
Hola, espero me puedan colaborar con el siguiente problemita que tengo:

Tengo una base de datos en acces, una tabla proponente contiene la identificación de un usuario id_proponente, otra tabla productos tiene id_producto, desc_producto, como la relación es muchos a mucho tengo una tercer tabla que guarda id_proponente y el id_producto.

Le coloque que mínimo el usuario puede seleccionar 3 productos e hice tres listas sobre la misma tabla, pero cuando solo selecciono un producto en una lista el me saca error por las otros dos listas sin seleccionar. el código que escribí fue el siguiente:

<%@ LANGUAGE = "VBScript" lcid = "1034" %>
<% 'Response.Buffer=True %>
<% 'If session("allow") = False Then Response.Redirect "/directorio/login.asp" %>
<html>
<body bgcolor="#99CCFF">

<%
p_razon = Request("razon")
p_identificacion = Request("id_tipoident")
p_documento = Request("documento")
p_contrasena = Request("contrasena")
p_registro = Request("registro")
p_ciudad1 = Request("ciudad1")
p_regimen = Request("id_regimen")
p_ciudad2 = Request("ciudad2")
p_direccion = Request("direccion")
p_telefono1 = Request("telefono1")
p_telefono2 = Request("telefono2")
p_fax = Request("fax")
p_correo = Request("correo")
p_web = Request("web")
p_contacto= Request("contacto")
p_cargo= Request("cargo")
p_telcontacto= Request("telcontacto")
p_actividad = Request ("id_actividad")
p_otraactividad = Request ("otra_actividad")
p_producto = Request ("id_producto")
' p_producto2 = Request ("id_producto2")
' p_producto3 = Request ("id_producto3")
p_otroproducto = Request ("otro_producto")
p_fecha = date()


%>
<%

Dim Conn 'Variable de Conexion
Dim Rs
Dim Rs1
Dim Rs2
Dim Rs3
Dim Rs4
Dim filePath
Dim Index
Dim MM_proveedores_STRING
MM_proveedores_STRING = "dsn=proveedores;"
'conexion
Set Conn = Server.CreateObject("ADODB.Connection")
' Conn.ConnectionTimeout = Application("directorio_ConnectionTimeout")
' Conn.CommandTimeout = Application("directorio_CommandTimeout")
' Conn.Open Application("directorio_ConnectionString"), Application("directorio_RuntimeUserName"), Application("directorio_RuntimePassword")
Set rs=createobject("ADODB.Recordset")
set rs1=createobject("ADODB.Recordset")
set rs2=createobject("ADODB.Recordset")
set rs3=createobject("ADODB.Recordset")
set rs4=createobject("ADODB.Recordset")

conn.open MM_proveedores_STRING

theSQL = "insert into PROPONENTE "
theSQL = theSQL & "(razon_social, id_tipoident,identificacion,camara_comercio,ciudad_camara,id_regimen,ciudad,direccion,telefono1,telefono2,fax,correo,website,contacto,cargo_contacto,telf_contacto,id_actividad,otra_actividad,otro_producto,fecha)"
theSQL = theSQL & " values ('"&p_razon&"', '"&p_identificacion&"','"
theSQL = theSQL & p_documento&"', '"&p_registro&"','"&p_ciudad1&"','"&p_regimen&"','"
theSQL = theSQL & p_ciudad2&"', '"&p_direccion&"', '"&p_telefono1&"', '"&p_telefono2&"', '"
theSQL = theSQL & p_fax&"','"&p_correo&"', '"
theSQL = theSQL & p_web&"','"&p_contacto&"','"&p_cargo&"','"&p_telcontacto&"','"
theSQL = theSQL & p_actividad&"','"&p_otraactividad&"', '"&p_otroproducto&"',#"&p_fecha&"#)"
set rs=Conn.execute(theSQL)

theSQL1 = "insert into PRODUCTO_PROPONENTE "
theSQL1 = theSQL1 & "(id_producto, id_proponente)"
theSQL1 = theSQL1 & " values ('"&p_producto&"', '"&p_documento&"')"
' Conn.Execute(theSQL)
set rs1=Conn.execute(theSQL1)

' theSQL2 = "insert into PRODUCTO_PROPONENTE "
' theSQL2 = theSQL2 & "(id_producto, id_proponente)"
' theSQL2 = theSQL2 & " values ('"&p_producto2&"', '"&p_documento&"')"
'' Conn.Execute(theSQL)
' set rs2=Conn.execute(theSQL2)

' theSQL3 = "insert into PRODUCTO_PROPONENTE "
' theSQL3 = theSQL3 & "(id_producto, id_proponente)"
' theSQL3 = theSQL3 & " values ('"&p_producto3&"', '"&p_documento&"')"
' Conn.Execute(theSQL)
' set rs3=Conn.execute(theSQL3)

theSQL4 = "insert into USUARIOS "
theSQL4 = theSQL4 & "(id_usuario, password)"
theSQL4 = theSQL4 & " values ('"&p_documento&"', '"&p_contrasena&"')"
' Conn.Execute(theSQL)
set rs4=Conn.execute(theSQL4)

Conn.close
set Conn = nothing
%>

<FORM ACTION="proponente.asp" method="post">
<DIV align=center>
<input type="submit" name="Submit" value="volver">
</DIV>
</FORM>

<BR>
<p align="center"><font face="Tahoma" size="4" color=darkblue>El registro ha sido insertado en la base de datos</font></p>

</body>

</HTML><%@ LANGUAGE = "VBScript" lcid = "1034" %>
<html>
<body bgcolor="#99CCFF">

<%
p_razon = Request("razon")
p_identificacion = Request("id_tipoident")
p_documento = Request("documento")
p_contrasena = Request("contrasena")
p_registro = Request("registro")
p_ciudad1 = Request("ciudad1")
p_regimen = Request("id_regimen")
p_ciudad2 = Request("ciudad2")
p_direccion = Request("direccion")
p_telefono1 = Request("telefono1")
p_telefono2 = Request("telefono2")
p_fax = Request("fax")
p_correo = Request("correo")
p_web = Request("web")
p_contacto= Request("contacto")
p_cargo= Request("cargo")
p_telcontacto= Request("telcontacto")
p_actividad = Request ("id_actividad")
p_otraactividad = Request ("otra_actividad")
p_producto = Request ("id_producto")
p_producto2 = Request ("id_producto2")
p_producto3 = Request ("id_producto3")
p_otroproducto = Request ("otro_producto")
p_fecha = date()


%>
<%

Dim Conn 'Variable de Conexion
Dim Rs
Dim Rs1
Dim Rs2
Dim Rs3
Dim Rs4
Dim filePath
Dim Index
Dim MM_proveedores_STRING
MM_proveedores_STRING = "dsn=proveedores;"
Set Conn = Server.CreateObject("ADODB.Connection")

Set rs=createobject("ADODB.Recordset")
set rs1=createobject("ADODB.Recordset")
set rs2=createobject("ADODB.Recordset")
set rs3=createobject("ADODB.Recordset")
set rs4=createobject("ADODB.Recordset")

conn.open MM_proveedores_STRING

theSQL = "insert into PROPONENTE "
theSQL = theSQL & "(razon_social, id_tipoident,identificacion,camara_comercio,ciudad_camara,id_regimen,ciudad,direccion,telefono1,telefono2,fax,correo,website,contacto,cargo_contacto,telf_contacto,id_actividad,otra_actividad,otro_producto,fecha)"
theSQL = theSQL & " values ('"&p_razon&"', '"&p_identificacion&"','"
theSQL = theSQL & p_documento&"', '"&p_registro&"','"&p_ciudad1&"','"&p_regimen&"','"
theSQL = theSQL & p_ciudad2&"', '"&p_direccion&"', '"&p_telefono1&"', '"&p_telefono2&"', '"
theSQL = theSQL & p_fax&"','"&p_correo&"', '"
theSQL = theSQL & p_web&"','"&p_contacto&"','"&p_cargo&"','"&p_telcontacto&"','"
theSQL = theSQL & p_actividad&"','"&p_otraactividad&"', '"&p_otroproducto&"',#"&p_fecha&"#)"
set rs=Conn.execute(theSQL)

theSQL1 = "insert into PRODUCTO_PROPONENTE "
theSQL1 = theSQL1 & "(id_producto, id_proponente)"
theSQL1 = theSQL1 & " values ('"&p_producto&"', '"&p_documento&"')"
Conn.Execute(theSQL)
set rs1=Conn.execute(theSQL1)

theSQL2 = "insert into PRODUCTO_PROPONENTE "
theSQL2 = theSQL2 & "(id_producto, id_proponente)"
theSQL2 = theSQL2 & " values ('"&p_producto2&"', '"&p_documento&"')"
Conn.Execute(theSQL)
set rs2=Conn.execute(theSQL2)

theSQL3 = "insert into PRODUCTO_PROPONENTE "
theSQL3 = theSQL3 & "(id_producto, id_proponente)"
theSQL3 = theSQL3 & " values ('"&p_producto3&"', '"&p_documento&"')"
Conn.Execute(theSQL)
set rs3=Conn.execute(theSQL3)

theSQL4 = "insert into USUARIOS "
theSQL4 = theSQL4 & "(id_usuario, password)"
theSQL4 = theSQL4 & " values ('"&p_documento&"', '"&p_contrasena&"')"
set rs4=Conn.execute(theSQL4)

Conn.close
set Conn = nothing
%>

<FORM ACTION="proponente.asp" method="post">
<DIV align=center>
<input type="submit" name="Submit" value="volver">
</DIV>
</FORM>

<BR>
<p align="center"><font face="Tahoma" size="4" color=darkblue>El registro ha sido insertado en la base de datos</font></p>

</body>

</HTML>

Qué debo hacer.

Gracias por su colaboración.

Cony

cmn

Carlitos
Moderator

Chile
881 Posts
Posted - 18 Jun 2004 :  14:17:32  Ver perfil  Enviar e-mail
Hola:
No es por nada , validaste los datos recibidos?


Carlitos ayuda a sus amigos!!Inicio Pagina

cmaldonadon
Starting Member

Colombia
26 Posts
Posted - 22 Jun 2004 :  22:33:03  Ver perfil  Enviar e-mail
Hola, muchas gracias por la colaboración, la solución a mi problema era quitarle las llaves principales a la tabla producto_proponente que recibe los datos duplicados.

Gracias

cmnInicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar