Incognita Upload.form

[snake25]

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.

[AlZuwaga]

Quitale el onSubmit="return ValidaCampos(this)" a ver si al menos así si recibís los valores

[snake25]

Gracias Al Zuwaga, pero lo he quitado y sigue igual, envia el mail, crea el apartado en la bd pero no escribe nada, ni envia ningún resultado... no sé porque pasa eso