comprobar datos antes de enviar

[hema]

Hola, estoy haciendo un formulario en asp y me gustaría que el usuario comprobase los datos antes de enviarlo. O sea, tendría tres partes:

1. formulario.asp - rellena los campos

2. comprobacion.asp - comprueba si sus datos son correctos. Tiene la posibilidad de modificarlos o continuar.

3. envio.asp - envia los datos a un correo

Estoy algo perdida para la página de comprobación. :( Alguna orientación? Gracias.

[JuanRAPerez]

Estoy algo perdida para la página de comprobación

a ver muestra la pagina y/o que es lo que deseas comprobar....

suerte

[rene_bustos]

hola Hema mira no tienes nada de que preocuparte

Por lo que expones es algo muy simple y es simple porque una ves que recibes los datos en la pagina COMPROBACION.asp estos ya devieron haber pasado por una validacion de cliente (lenguaje Javascript)

Pero bueno lo que entiendo yo es lo siguiente
En la pagina de COMPROBACION tendras que hacer lo siguiente:

Paso 1.- recibir los datos que vienen de la pagina Comprobacion.asp
Paso 2.- los datos que reciviste validar que: sean del tipo de dato correcto (si ingresa la edad que en realidad el dato sea numerico), que no contenga caracteres especiales(comillas simples por ejemplo) y que los datos que el cliente ingresa no sobrepasen la longitud que tienes para ese campo en la base de datos(ejemplo: si ingresan su nombre y el nombre contiene 20 caracteres y TU en la base de datos pusiste como longitud del campo NOMBRe solo 15 caracteres, entonces esto te generara un error)

Paso 3: Si los datos que el cliente envio son correctos: entonces los almacenas en tu base de datos
Si los datos que ingreso en el formulario tienen algun error: entonces regresa al cliente a la pagina FORMULARIO.asp con un mensajito que haga referencia al error encontrado (ejemplo: si el nombre es muy largo entonces dile que su nombre debe de ser mas corto o que lo abrevie)

Paso4 .- suponiendo que el paso 3 fue correcto (todos los datos ingresados fueron correctos) entonces en la Pagina de ENVIO.ASP Podrias imprimir un mensaje como "Sus datos han sido registrados satisfactoriamente de click aqui para volver a la pagina de inicio.Gracias"

Lee detenidamente y analisa cada paso , es probable que no le entiendas a la primera...pero leyendo y programando se entiende mas facil vdd:

pues bien te dejo un sencillo ejemplo

Formulario.asp contiene

ingresa tu nombre: rene bustos (el textbox se llama NombreCliente)
Comprobacion.asp contiene

if LEN(request.form("NombreCliente"))>15 then
response.redirect("FORMULARIO.ASP?Error=error en nombre")
else
guardas en BASE DE DATOS y lo rediriges a la pagina de ENVIO.ASP
end if

Cualquier duda aqui estamos
saludos y echale ganas!!

[hema]

bueno, tengo un mal comienzo... tengo que enviar los datos a un email y estaba haciendo pruebas primero para ver el funcionamiento. Así que estuve buscando tutoriales... y me ha salido el siguiente error:

Microsoft VBScript runtime error '800a01ad'

ActiveX component can't create object: 'CDONTS.NewMail'

/hema/formularios/send_it.asp, line 47

Esto signifca que no podré mandar los datos a un email utilizando asp?

[JuanRAPerez]

significa que no podras usando CDONTS

que server tienes????

[Adler]

Hola

Con esta función puedes comprobar si tu servidor admite estos componentes

Código asp:

<&#37;
Dim theComponent(5)
Dim theComponentName(5)
    
theComponent(0) = "ADODB.Connection"
theComponent(1) = "Scripting.FileSystemObject"
theComponent(2) = "CDONTS.NewMail"
theComponent(3) = "Persits.Upload.1"
theComponent(4) = "CDO.Message"
    
theComponentName(0) = "ADODB"
theComponentName(1) = "FileSystemObject"
theComponentName(2) = "CDONTS"
theComponentName(3) = "Persits Upload"
theComponentName(4) = "CDOSYS"
    
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
 
 
Dim i
For i=0 to UBound(theComponent)
If Not IsObjInstalled(theComponent(i)) Then
Else
Response.Write "<tr>" & vbCrLf
Response.Write "<td width=""100%"">" & vbCrLf
Response.Write "<b>" & theComponentName(i) & "</b><br>" & vbCrLf
Response.Write "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
End If
Next 
%>
 

Suerte