<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> setem-bolsa de ocasión
SETEM English site Site Français


Bolsa de Ocasión Insertar Demanda

Insertar Demanda

<% if not Request.ServerVariables("REQUEST_METHOD") = "POST" then 'no recibo formulario, entonces lo muestro %>

Datos de contacto

Nombre *
Apellidos *
Correo Electrónico
Teléfono *
Fax

Datos del equipo

Tipo de producto *
Marca del equipo *
Modelo *

Observaciones:


 


NOTA
: Los campos marcados con asterisco (*) son obligatorios.

.......Normativa

<% 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 %>