Hola a todos : He buscado por toda la red informacion de ingresar datos a traves de un formulario en asp con la conexion a oracle , tambien tenemos creado un package donde realiza eso , nos dice que se esta violando la insercion de los datos.
Aqui va el codigo para que me puedan echar una manito
<br>
<br>
<form name="form1" method="post" action="ingresar2.asp" >
<CENTER><UL><B>INGRESAR EMPLEADO</B></UL>
<br>
<TABLE border="0" width="70" height="1" bgColor="#808000">
<TR>
<TD> Rut:</td>
<td> <input type="text" name="rut" size=35><br></td>
</TR>
<TR>
<TD> Nombre:</TD>
<TD><input type="text"name="nombre" SIZE=35><br></TD>
</TR>
<TR>
<TD> Apellido:</td>
<TD> <input type="text"name="apellido" SIZE=35><br></TD>
</TR>
<TR>
<TD> Direccion:</td>
<TD> <input type="text"name="direccion" size=35><br></TD>
</TR>
<TR>
<TD> Fono Empleado:</td>
<TD><input type="text"name="fono" SIZE=35><br></TD>
</TR>
<TR>
<center>
<ul><TD><input type="submit" name="boton" value="Registrar"></td>
<TD><input type="reset" value="Borrar datos"></TD></ul></center>
</TR></table></CENTER>
</form>
</BODY>
----------------------------------------------------------------
<html>
<head>
<title> INGRESO</title>
</head>
<body>
<%
r1=Request.Form("rut")
r2=Request.Form("nombre")
r3=Request.Form("apellido")
r4=Request.Form("direccion")
r5=Request.Form("fono")
'Abre la conexion con la base de datos a traves de una conexion ODBC
Set Con = Server.CreateObject("ADODB.Connection")
Con.open "DSN=sistema;UID=pof03001con11;PWD=arusque"
'Ejecuta un sentencia SQL de consulta
sql=""
sql=sql & "execute sp_ingresar_empleado r1,r2,r3,r4,r5"
Response.write(sql)
'con.Execute(sql)
'Recorre todas las filas del resultado
'Do While Not result.EOF
'Muestra la fila actual
'Response.Write "<p><b><font face=Verdana size=1><a href=listado.asp?id=" &result.Fields("cod_empleado") & ">"&result.Fields("nom_empleado")&"</a></b><br><font color=""#696969"">• " &result.Fields("apellido_empleado") & "</font></font></p>"
'Pasa a la siguiente fila
'result.MoveNext
'Loop
'Libera memoria
'result.Close
Set result = Nothing
con.Close
Set con = Nothing
%>
</body>
</html>
---------------------------------------------------------------
Gracias
Zack.