
29/09/2007, 05:02
|
 | | | Fecha de Ingreso: julio-2002 Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 22 años, 9 meses Puntos: 1 | |
ayuda con un formulario bueno es lo primero que hago con ajax he leido algun que otro documento y me puse hacerlo pero me sale un problema y el tema es que me redirije a la pagina asp. aqui les dejo el codigo haber si alguno le cae la ficha de donde esta mi error.
desde ya muchas gracias para los que puedan brindarme la ayuda que necesito.
principal arriba figura el archivo <script src="include/utilmail.js" language="JavaScript"></script> no lo puse para que no sea tanto texto
Código:
<form action="sendmail.asp" method="post" name="cForm" class="validate" id="cForm" autocomplete="off">
<fieldset class="fmset">
<div class="row">
<label for="fm_name">Nombre y Apellido</label>
<input type="text" class="name req" name="fm_name" id="fm_name" size="40" maxlength="100" tabindex="1" />
</div>
<div class="row">
<label for="fm_email">Email</label>
<input type="text" class="email" name="fm_email" id="fm_email" size="40" maxlength="100" tabindex="2" />
</div>
<div class="row">
<label for="fm_subject">Asunto</label>
<input type="text" class="subject" name="fm_subject" id="fm_subject" size="40" maxlength="100" tabindex="3" />
</div>
<div class="row">
<label for="fm_message">Mensaje</label>
<textarea name="fm_message" cols="100" rows="6" class="message req" id="fm_message" tabindex="4" ></textarea>
</div>
</fieldset>
<fieldset>
<div class="submit">
<div>
<input class="submitbutton" type="submit" value="Enviar" id="enviar" tabindex="5"/>
<input name="form_reset" type="reset" id="Reset" value="Borrar" tabindex="6"/>
<input name="fm_dest" type="hidden" id="fm_dest" value="[email protected]" />
</div>
</div>
</fieldset>
<div id="resultados"></div>
</form>
utilmail.js
Código:
addEvent(window,'load',inicializarEventos,false);
function inicializarEventos()
{
var ref=document.getElementById('cForm');
addEvent(ref,'submit',enviarDatos,false);
}
function enviarDatos(e)
{
if (window.event)
window.event.returnValue=false;
else
if (e)
e.preventDefault();
enviarFormulario();
}
function retornarDatos()
{
var cad='';
var nom=document.getElementById('fm_name').value;
var ema=document.getElementById('fm_email').value;
var asu=document.getElementById('fm_subject').value;
var men=document.getElementById('fm_message').value;
var dest=document.getElementById('fm_dest').value;
cad='fm_name='+encodeURIComponent(nom)+'&fm_email='+encodeURIComponent(ema)+'&fm_subject='+encodeURIComponent(asu)+'&fm_message='+encodeURIComponent(men)+'&fm_dest='+encodeURIComponent(dest);
return cad;
}
var conexion1;
function enviarFormulario()
{
conexion1=crearXMLHttpRequest();
conexion1.onreadystatechange = procesarEventos;
conexion1.open('POST','sendmail.asp', true);
conexion1.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
conexion1.send(retornarDatos());
}
function procesarEventos()
{
var resultados = document.getElementById("resultados");
if(conexion1.readyState == 4)
{
resultados.innerHTML = 'Gracias por su comentario.';
}
else
{
resultados.innerHTML = 'Enviando...';
}
}
//***************************************
//Funciones comunes a todos los problemas
//***************************************
function addEvent(elemento,nomevento,funcion,captura)
{
if (elemento.attachEvent)
{
elemento.attachEvent('on'+nomevento,funcion);
return true;
}
else
if (elemento.addEventListener)
{
elemento.addEventListener(nomevento,funcion,captura);
return true;
}
else
return false;
}
function crearXMLHttpRequest()
{
var xmlHttp=null;
if (window.ActiveXObject)
xmlHttp = new ActiveXObject("Microsoft.XMLHTTP");
else
if (window.XMLHttpRequest)
xmlHttp = new XMLHttpRequest();
return xmlHttp;
}
sendmail.asp
Código:
<%response.Charset="ISO-8859-1"%>
<%
'Vamos a mandar un mail!
Dim sDestintatario, sAsunto, sCuerpo, sNombre, sRemite
Dim oMail 'el objeto CDO
sNombre=Request("fm_name")
sAsunto=Request("fm_subject")
'Creamos el cuerpo con varias líneas para facilitar la lectura
sCuerpo = "Este es un mensaje de" & sNombre & VbCrLf
sCuerpo = sCuerpo & Request("fm_message")
sDestinatario=Request("fm_dest")
sRemite=Request("fm_email")
'Enviamos el email
Set myMail=CreateObject("CDO.Message")
set oMail=CreateObject("CDO.Message")
'Establecemos las propiedades del objeto
oMail.From =sRemite 'Pon aquí tu mombre y dirección
oMail.To = sDestinatario
oMail.Subject = sAsunto
oMail.TextBody = sCuerpo
' Enviamos el email!
oMail.Send
set oMail = nothing
%>
__________________ ---->Sin ayuda no se llega a ningun lado<---- Virla |