|
|
|
|
|
Bolsa de Ocasión
Insertar Demanda
|
|
|
|
|
Insertar Demanda
<%
if not Request.ServerVariables("REQUEST_METHOD") = "POST" then
'no recibo formulario, entonces lo muestro
%>
<% else
'si que recibo un formulario, entonces lo trato
'recojo los datos
Dim sNombre, sApellidos, sEmail, sTelefono, sFax, sTipoProducto, sMarca, sModelo, sObservaciones
Dim cuerpo, fecha
Dim bEnviar, rs, oConn, editCmd, sCampos, sValores
sCampos = ""
sValores = ""
bEnviar = true
fecha = now()
sNombre = Request.Form("Nombre")
sApellidos = Request. form("Apellidos")
sEmail = Request.Form("Email")
sTelefono = Request.Form("Telefono")
sFax = Request.Form("Fax")
sTipoProducto = Request.Form("TipoProducto")
sMarca = Request.Form("Marca")
sModelo = Request.Form("Modelo")
sObservaciones = Request.Form("Observaciones")
cuerpo = "DEMANDA INSERTADA EL DIA " & fecha & vbnewline & vbnewline & vbnewline
cuerpo = cuerpo & "DATOS DE CONTACTO" & vbnewline & vbnewline
cuerpo = cuerpo & "Nombre: " & sNombre & vbnewline
cuerpo = cuerpo & "Apellidos: " & sApellidos & vbnewline
if not sEmail = "" then
cuerpo = cuerpo & "Email: " & sEmail & vbnewline
end if
cuerpo = cuerpo & "Telefono: " & sTelefono & vbnewline
if not sFax = "" then
cuerpo = cuerpo & "Fax: " & sFax & vbnewline & vbnewline
end if
cuerpo = cuerpo & vbnewline
cuerpo = cuerpo & "DATOS DEL EQUIPO" & vbnewline & vbnewline
cuerpo = cuerpo & "Tipo de producto: " & sTipoProducto & vbnewline
cuerpo = cuerpo & "Marca: " & sMarca & vbnewline
cuerpo = cuerpo & "Modelo: " & sModelo & vbnewline & vbnewline
if not sObservaciones = "" then
cuerpo = cuerpo & "OBSERVACIONES" & vbnewline & vbnewline
cuerpo = cuerpo & sObservaciones & vbnewline
end if
cuerpo = cuerpo & vbnewline
'creo el objeto correo
set mail = server.createObject("Persits.MailSender")
'configuro el mensaje
'señalo el servidor de salida para enviar el correo
mail.host = Application("Mail_Host")
mail.username = Application("Mail_User_Name_BolsaOcasion")
mail.password = Application("Mail_Password_BolsaOcasion")
'indico la dirección de correo del remitente
mail.from = Application("Mail_From_BolsaOcasion")
'indico la dirección del destinatario del mensaje
mail.addAddress Application("Mail_Address_BolsaOcasion")
'indico el asunto del mensaje
mail.Subject = "Inserción demanda día " & fecha
'indico el cuerpo del mensaje
mail.body = cuerpo
'lo envio
'aseguro que no se presenten errores en la página si se producen
On Error Resume Next
mail.send
if Err <> 0 then
%>
Error, no se ha
podido completar la operación. |
<%
else
if sNombre <> "" then
sCampos = "NombreDe"
sValores = "'" & replace(sNombre,"'","''") & "'"
end if
if sApellidos <> "" then
sCampos = sCampos & ", ApellidosDe"
sValores = sValores & ", '" & replace(sApellidos,"'","''") & "'"
end if
if sEmail <> "" then
sCampos = sCampos & ", EmailDe"
sValores = sValores & ", '" & replace(sEmail,"'","''") & "'"
end if
if sTelefono <> "" then
sCampos = sCampos & ", TelefonoDe"
sValores = sValores & ", '" & sTelefono & "'"
end if
if sFax <> "" then
sCampos = sCampos & ", FaxDe"
sValores = sValores & ", '" & sFax & "'"
end if
if sTipoProducto <> "" then
sCampos = sCampos & ", TipoProdDe"
sValores = sValores & ", '" & replace(sTipoProducto,"'","''") & "'"
end if
if sMarca <> "" then
sCampos = sCampos & ", MarcaEqDe"
sValores = sValores & ", '" & replace(sMarca,"'","''") & "'"
end if
if sModelo <> "" then
sCampos = sCampos & ", ModEqDe"
sValores = sValores & ", '" & replace(sModelo,"'","''") & "'"
end if
if sObservaciones <> "" then
sCampos = sCampos & ", ObservacionesDe"
sValores = sValores & ", '" & replace(sObservaciones, "'", "''") & "'"
end if
sCampos = sCampos & ", FechaDe"
sValores = sValores & ", " & replace(cstr(cdbl(Fecha)),",",".")
editQuery = "insert into Demandas (" & sCampos & ") values (" & sValores & ")"
Set editCmd = Server.CreateObject("ADODB.Command")
editCmd.ActiveConnection = Application("oConBolsaOcasion_ConnectionString")
editCmd.CommandText = editQuery
editCmd.Execute
editCmd.ActiveConnection.Close
%>
Gracias por rellenar
el formulario. Se ha enviado correctamente y su oferta se
está procesando. |
<%
end if ' err <> 0
set mail = nothing
end if
%>
|
|
|
|
|
|
|
|