25/03/2010, 06:41
|
 | | | Fecha de Ingreso: noviembre-2008
Mensajes: 54
Antigüedad: 17 años, 11 meses Puntos: 0 | |
 Problema con envio de mail en ASP- duplica mail y registro en BD
Hola a todos, les cuanto tengo un formulario que se envia por mail y a la vez se guarda en una BD, el problema es que no sé porque motivo me duplica tanto el mail como el registro en la base. Les dejo el codigo para ver si alguien puede ayudarme
envio.asp Código PHP: <!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
<%
SUB sendmail( fromWho, toWho, Subject, Body )
Dim objCDO
Dim iConf
Dim Flds
Dim DBCONN
DBCONN = "Driver={SQL Server};Server=xxx.xxx.xxx.xxx,1433\SQLExpress4;Database=base;UID=SQL;PWD=123456"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open DBCONN
set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = conn
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Const cdoSendUsingPort = 2
Set objCDO = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = MailServer
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPconnectiontimeout) = 10
.Update
End With
Command1.CommandText = "INSERT INTO inscripcion (fecha,dni, Nombre, socio, cargo, empresa, rubro, direccion, localidad, provincia, pais, cp, Telefono, fax, email,fecha_curso, codigo_curso, cuit, iva, direccionFacturacion, localidadFacturacion, provinciaFacturacion, consulta) VALUES (CAST('" & month(now()) & "/" & day(now()) & "/" & year(now()) & " ' AS SMALLDATETIME),'"&dni&"','"&nombre&"', '"&socio&"','"&cargo&"','"&empresa&"','"&rubro&"', '"&direccion&"', '"&localidad&"', '"&provincia&"', '"&pais&"', '"&cp&"', '"&telefono&"', '"&fax&"', '"&email&"',CAST('" & month(fecha) & "/" & day(fecha) & "/" & year(fecha) & " ' AS SMALLDATETIME),'"&codigo&"', '"&cuit&"', '"&iva&"', '"&direccionF&"', '"&localidadF&"', '"&provinciaF&"', '"&consulta&"')"
response.write "1"
'Command1.Execute()
Set objCDO.Configuration = iConf
objCDO.From = fromWho
objCDO.To = toWho
objCDO.Subject = Subject
objCDO.TextBody = Body
objCDO.Send
END SUB
'*******************************************************************************
' Recuperacion de las variables del formulario
'*******************************************************************************
nombre = Request.form("nombre")
socio = Request.form("socio")
cargo = Request.form("cargo")
empresa = Request.form("empresa")
rubro = Request.form("rubro")
direccion = Request.form("direccion")
localidad = Request.form("localidad")
provincia = Request.form("provincia")
pais = Request.form("pais")
cp = Request.form("cp")
telefono = Request.form("telefono")
fax = Request.form("fax")
email = Request.form("email")
fecha = Request.form("fecha")
curso = Request.form("curso")
codigo = Request.form("codigo")
dni = Request.form("dni")
cuit = Request.form("cuit")
iva = Request.form("iva")
direccionF = Request.form("direccionF")
localidadF = Request.form("localidadF")
provinciaF = Request.form("provinciaF")
consulta = Request.form("consulta")
if socio=1 then
essocio="SI"
else
essocio="NO"
end if
'*******************************************************************************
' Resolucion del destinatario del mail
'*******************************************************************************
Dim mail_to
mail_to="[email protected]"
'************************************************************************************************
' Envio del mail a la sección correspondiente
'************************************************************************************************
'Cabecera y pie del mensaje
cabecera = "Consulta ingresada a traves de Internet" & vbCrLf & vbCrLf
pie = vbCrLf & vbCrLf & "Fin del mensaje"
'Cuerpo del mensaje que se enviará
Bodytxt = "Nombre: " & nombre & vbCrLf & "Documento: " & dni & vbCrLf
Bodytxt = Bodytxt & "Socio: " & essocio & vbCrLf & vbCrLf & "Cargo: " & cargo & vbCrLf
Bodytxt = Bodytxt & "Empresa: " & empresa & vbCrLf & "Rubro: " & rubro & vbCrLf & vbCrLf
Bodytxt = Bodytxt & "Dirección: " & direccion & vbCrLf & "Localidad: " & localidad & vbCrLf
Bodytxt = Bodytxt & "Provincia: " & provincia & vbCrLf & "País: " & pais & vbCrLf
Bodytxt = Bodytxt & "Codigo Postal: " & cp & vbCrLf & "Teléfono: " & telefono & vbCrLf
Bodytxt = Bodytxt & "Fax: " & fax & vbCrLf & "E-mail: " & email & vbCrLf & vbCrLf
Bodytxt = Bodytxt & "Codigo: " & codigo & vbCrLf & "Curso: " & curso & vbCrLf
Bodytxt = Bodytxt & "fecha elegida: " & fecha & vbCrLf & vbCrLf
Bodytxt = Bodytxt & "Datos de facturación: " & vbCrLf & vbCrLf & "CUIT: " & cuit & vbCrLf
Bodytxt = Bodytxt & "Condición de IVA: " & iva & vbCrLf & "Dirección de facturación: " & direccionF & vbCrLf
Bodytxt = Bodytxt & "Localidad de facturación: " & localidadF & vbCrLf & "Provincia de facturación: " & provinciaF & vbCrLf & vbCrLf
Bodytxt = Bodytxt & "consulta: " & consulta & vbCrLf
' Creacion del objeto para enviar los datos por email
Dim Domainname
Dim MailServer
Dim From
Dim subject1
Domainname = "dominio"
MailServer = "mail-fwd"
From = "[email protected]"
subject1 = "IDS-8946325 - "
fromWho = apellido & "<" & email & ">"
toWho = mail_to
Subject = "Fomulario ingresado a traves de Internet"
Body = cabecera & Bodytxt & pie
sendMail fromWho, toWho, Subject, Body
'Cleanup
Set ObjCDO = Nothing
Set iConf = Nothing
Set Flds = Nothing
%>
<script>alert("Su consulta ha sido enviada.");window.location.href="aspCursos.php";</script>
formulario.html Código HTML: <form method="post" action="envio.asp" name="frm" id="form-buscador">
<input type="hidden" name="codigo" id="codigo" value="<%=rs1("codigo")%>"/>
<input type="hidden" name="curso" id="curso" value="<%=rs1("nombre")%>"/>
<input type="hidden" name="hidEnviar" value="1" />
<div class="field-form">
<label>Nombre:</label>
<input name="nombre" type="text" id="nombre" />
<div class="wraper"></div>
</div>
<div class="field-form">
<label>Documento:</label>
<input name="dni" type="text" id="dni" />
<div class="wraper"></div>
</div>
<div class="field-form">
<label>Socio de IRAM:</label>
<input name="socio" type="checkbox" id="socio" class="check" value="1"/>
<div class="wraper"></div>
</div>
<div class="field-form">
<label>Cargo:</label>
<input name="cargo" type="text" id="cargo" />
<div class="wraper"></div>
</div>
<div class="field-form">
<label>Empresa:</label>
<input name="empresa" type="text" id="empresa" />
<div class="wraper"></div>
</div>
<div class="field-form">
<label>Rubro:</label>
<input name="rubro" type="text" id="rubro" />
<div class="wraper"></div>
</div>
<div class="field-form">
<label>Dirección:</label>
<input name="direccion" type="text" id="direccion" />
<div class="wraper"></div>
</div>
<div class="field-form">
<label>Localidad:</label>
<input name="localidad" type="text" id="localidad" />
<div class="wraper"></div>
</div>
<div class="field-form">
<label>Provincia:</label>
<input name="provincia" type="text" id="provincia" />
<div class="wraper"></div>
</div>
<div class="field-form">
<label>País:</label>
<input name="pais" type="text" id="pais" />
<div class="wraper"></div>
</div>
<div class="field-form">
<label>Código Postal:</label>
<input name="cp" type="text" id="cp" />
<div class="wraper"></div>
</div>
<div class="field-form">
<label>Teléfono:</label>
<input name="telefono" type="text" id="telefono" />
<div class="wraper"></div>
</div>
<div class="field-form">
<label>Fax:</label>
<input name="fax" type="text" id="fax" />
<div class="wraper"></div>
</div>
<div class="field-form">
<label>E-mail:</label>
<input name="email" type="text" id="email" />
<div class="wraper"></div>
</div>
<div class="field-form">
<label>Fecha:</label> <select name="fecha" id="fecha" class="texto">
<option value="">Seleccione una fecha</option>
<option value="">03/03/2010</option>
<option value="">31/03/2010</option>
</select>
<div class="wraper"></div>
</div>
<h3>Datos de facturación</h3>
<div class="field-form">
<label>CUIT:</label>
<input name="cuit" type="text" id="cuit" />
<div class="wraper"></div>
</div>
<div class="field-form">
<label>Condición de IVA:</label>
<input name="iva" type="text" id="iva" />
<div class="wraper"></div>
</div>
<div class="field-form">
<label>Dirección:</label>
<input name="direccionF" type="text" id="direccionF" />
<div class="wraper"></div>
</div>
<div class="field-form">
<label>Localidad:</label>
<input name="localidadF" type="text" id="localidadF" />
<div class="wraper"></div>
</div>
<div class="field-form">
<label>Provincia:</label>
<input name="provinciaF" type="text" id="provinciaF" />
<div class="wraper"></div>
</div>
<p> </p>
<div class="field-form">
<label>Consulta:</label>
<textarea name="consulta" type="text" id="consulta"></textarea>
<div class="wraper"></div>
</div>
<input name="Reset" type="reset" class="button" value="Borrar"/>
<input type="submit" onclick="return validar();" value="Enviar" class="button"/>
<div class="wraper"></div>
</form> |