Hola os querria pedir si me podeis echar un cable en un par de dudas, porque lo he estado mirando por todos los lados y no sé porque no me sale. El problema esque en mi codigo no me recoje los datos q le envio del formulario.
En la pag. del formulario que es enviar.asp lo lanzo con:
Código:
]<form method='POST' onSubmit="return ValidaCampos(this)" name="form_registro" action="confirmar.asp" ENCTYPE="multipart/form-data" >
y en confirmar.asp lo recojo asi:
Código:
<%
'llamada general al componente
Set Upload = Server.CreateObject("Persits.Upload")
%>
<%
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4
%>
<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bd.mdb"))
set rs=createobject("ADODB.Recordset")
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.open "PARTES",conn
rs.addnew
rs("SOLICITANTE")=Upload.form("SOLICITANTE")
rs("AREA_INC")=Upload.form("area")
rs("NOMBRE")=Upload.form("NOMBRE")
rs("fecha")=Date()
rs("hora")=Time()
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
<%
strContent = "<i><b>Parte :</b></i> " & vbCrLf
strContent = "<i>NOMBRE:</i><b>" & Upload.form("NOMBRE") & vbCrLf
strContent = strContent& "</b><br><i>SOLICITANTE:</i><b> " & Upload.form("SOLICITANTE") & vbCrLf
Bueno a ver si tiene solución, muchas gracias y un saludo.