Foros del Web » Programando para Internet » ASP Clásico »

Problema Formulario en Asp

 Estas en el tema de Problema Formulario en Asp en el foro de ASP Clásico en Foros del Web. Hola, tengo el siguiente problema Tengo un el archivo novedades.asp que lo que hace es presentar un simple formulario donde hay un campo que recoge ...
  #1 (permalink)  
Antiguo 15/06/2004, 11:40
 
Fecha de Ingreso: febrero-2004
Mensajes: 14
Antigüedad: 20 años, 2 meses
Puntos: 0
Problema Formulario en Asp
Hola, tengo el siguiente problema

Tengo un el archivo novedades.asp que lo que hace es presentar un simple formulario donde hay un campo que recoge la dirección de correo electrónico que introduce el visitante para despues recibir un boletín en su email. Al introducir la dirección de correo esta queda registrada en una base de datos a la que está conectada el archvo novedades.asp

Lo que no consigo hacer es que una vez que el visitante teclea la dirección de correo electronico y pulsa "ENVIAR" una vez que ha sido enviado aparezca en la misma pantalla abajo de la tecla enviar un mensaje (por ejemplo, "Su email ha sido procesado satisfactoriamente)

Y también ¿Cómo puedo verificar que el email está bien tecleado?, es decir como puedo cerciorarme de que se ha introducido con la sintaxis correcta?

Como puedo hacerlo
  #2 (permalink)  
Antiguo 15/06/2004, 11:47
 
Fecha de Ingreso: abril-2004
Ubicación: México D.F.
Mensajes: 1.724
Antigüedad: 20 años, 1 mes
Puntos: 4
En cuanto a lo del mail te paso esta pequeña rutina:
altas.cpmail.value="el valor del mail"

if(altas.cpmail.value<>"")then
if(instr(1,altas.cpmail.value,"@")=0)then
msgbox "Error : Dirección e-mail no válida." & chr(32)&chr(10) & "Ejemplo : [email protected]try ",vbexclamation+vbsystemmodal,"Error de sintaxis"
altas.cpmail.select()
exit function
else



if(instr(1,altas.cpmail.value,".")<>0)then


if(instr(1,altas.cpmail.value,".")=len(altas.cpmai l.value))then



alert "La dirección no tiene un dominio"
altas.cpmail.select



end if


else
alert "La dirección de correo no es válida"
altas.cpmail.select
exit function
end if


if(instr(1,altas.cpmail.value,chr(32))<>0)then
alert "Un correo electrónico no puede usar espacios en blanco"&chr(32)&chr(10)&"El programa suprimirá los espacios en blanco."
altas.cpmail.value=replace(altas.cpmail.value,chr( 32),"",1,1000)
end if

end if


end if
  #3 (permalink)  
Antiguo 15/06/2004, 11:58
 
Fecha de Ingreso: febrero-2004
Mensajes: 14
Antigüedad: 20 años, 2 meses
Puntos: 0
Gracias por responder
Soy un poco novato en este tema de asp y no entiendo muy bien la rutina
Si me dijeses como he de insertarlo te lo agradecería
el codigo fuente de la página es:

<%@ Language=VBScript%>
<%

Comentario2 = Request.Form("comentario")

if Comentario2 <> "" then

Set conn=Server.CreateObject("ADODB.CONNECTION")
Set RS=Server.CreateObject("ADODB.RECORDSET")

conn.open ("qusboletin")




SQL="INSERT INTO email (email) VALUES ('"&Comentario2&"');"


Conn.Execute(SQL)
Conn.Close

end if
%>
<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Pagina nueva 2</title>
</head>

<body bgcolor="#FFFEEA">



<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="462" id="AutoNumber1" height="370">
<tr>
<td width="100%" height="370" valign="top">
<p align="center"><font face="Verdana" style="font-size: 10pt"><br>
Si desea que le tengamos, puntualmente, informado y recibir nuestros boletines de
<u><b>Ofertas y Novedades</b></u>, no tiene m&aacute;s que indicarnos su e-mail y recibir&aacute; dicha informaci&oacute;n en su correo electr&oacute;nico. </font><br>
&nbsp; </p>

<FORM ACTION="boletin.asp?dado=1" METHOD="POST">
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="69%" id="AutoNumber2" height="120">
<tr>
<td width="100%" align="center" bgcolor="#0066CC" height="13">
<font face="Verdana" style="font-size: 8pt" color="#FFFFFF">BOLETÍN DE OFERTAS Y NOVEDADES </font></td>
</tr>
<tr>
<td width="100%" align="center" bgcolor="#E7F5FE" height="13">
<font face="Verdana" style="font-size: 8pt">Introduzca su E-mail </font></td>
</tr>
<tr>
<td width="100%" align="center" bgcolor="#B0E8FD" height="58">
<INPUT TYPE="text" NAME="comentario" size="48" maxlength=255 style="font-size: 8pt; font-family: Verdana"></td>
</tr>
<tr>
<td width="100%" align="center" bgcolor="#E7F5FE" height="31">
<font face="Verdana" size="1">
<INPUT TYPE="submit" VALUE="Enviar" style="font-family: Verdana; font-size: 10px"></font></td>
</tr>
</table>
</center>
</div>
</form>



</td>
</tr>
</table>


</body>

</html>
  #4 (permalink)  
Antiguo 15/06/2004, 22:29
 
Fecha de Ingreso: abril-2004
Ubicación: México D.F.
Mensajes: 1.724
Antigüedad: 20 años, 1 mes
Puntos: 4
Quedaria así:

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Pagina nueva 2</title>
</head>

<body bgcolor="#FFFEEA">



<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="462" id="AutoNumber1" height="370">
<tr>
<td width="100%" height="370" valign="top">
<p align="center"><font face="Verdana" style="font-size: 10pt"><br>
Si desea que le tengamos, puntualmente, informado y recibir nuestros boletines de
<u><b>Ofertas y Novedades</b></u>, no tiene m&aacute;s que indicarnos su e-mail y recibir&aacute; dicha informaci&oacute;n en su correo electr&oacute;nico. </font><br>
&nbsp; </p>

<FORM ACTION="boletin.asp?dado=1" METHOD="POST" name="myform">
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="69%" id="AutoNumber2" height="120">
<tr>
<td width="100%" align="center" bgcolor="#0066CC" height="13">
<font face="Verdana" style="font-size: 8pt" color="#FFFFFF">BOLETÍN DE OFERTAS Y NOVEDADES </font></td>
</tr>
<tr>
<td width="100%" align="center" bgcolor="#E7F5FE" height="13">
<font face="Verdana" style="font-size: 8pt">Introduzca su E-mail </font></td>
</tr>
<tr>
<td width="100%" align="center" bgcolor="#B0E8FD" height="58">
<INPUT TYPE="text" NAME="comentario" size="48" maxlength=255 style="font-size: 8pt; font-family: Verdana"></td>
</tr>
<tr>
<td width="100%" align="center" bgcolor="#E7F5FE" height="31">
<font face="Verdana" size="1">
<INPUT TYPE="submit" VALUE="Enviar" style="font-family: Verdana; font-size: 10px"></font></td>
</tr>
</table>
</center>
</div>
</form>



</td>
</tr>
</table>



<script language="vbs">

function myform_onsubmit()


if(myform.comentario.value<>"")then
if(instr(1,myform.comentario.value,"@")=0)then
msgbox "Error : Dirección e-mail no válida." & chr(32)&chr(10) & "Ejemplo : [email protected]try ",vbexclamation,"Error de sintaxis"
myform.comentario.select()
myform_onsubmit=false
else



if(instr(1,myform.comentario.value,".")<>0)then


if(instr(1,myform.comentario.value,".")=len(myform .comentario.value))then



alert "La dirección no tiene un dominio"
myform.comentario.select
myform_onsubmit=false


end if


else
alert "La dirección de correo no es válida"
myform.comentario.select
myform_onsubmit=false
end if


if(instr(1,myform.comentario.value,chr(32))<>0)the n
alert "Un correo electrónico no puede usar espacios en blanco"&chr(32)&chr(10)&"El programa suprimirá los espacios en blanco."
myform.comentario.value=replace(myform.comentario. value,chr(32),"",1,1000)
end if

end if
elseif(myform.comentario.value="")then
alert "Por favor escriba una dirección e-mail"
myform_onsubmit=false
end if



end function
</script>
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta


« Tema Anterior | Próximo Tema »


La zona horaria es GMT -6. Ahora son las 14:56.