<%If Request.Form()<>"" then FechaDia = Trim(Request("FechaDia")) FechaMes = Trim(Request("FechaMes")) FechaYear = Trim(Request("FechaYear")) Nombre = Trim(Request("Nombre")) codigo = Trim(Request("codigo")) Direccion = Trim(Request("Direccion")) Telefono = Trim(Request("Telefono")) Email = Trim(Request("EMail")) EMailOrigen = Trim(Request("EMail")) Comentario = Trim(Request("Comentario")) saco1 = Request("saco1") saco2 = Request("saco2") saco3 = Request("saco3") saco4 = Request("saco4") saco5 = Request("saco5") saco6 = Request("saco6") saco7 = Request("saco7") ' saco8 = Trim(Request("saco8")) saco9 = Request("saco9") saco10 = Request("saco10") MixesMenu = Trim(Request("MixesMenu")) IF MixesMenu = "-1" then MixesMenu="" PesoSaco1 = Request("PesoSaco1") PesoSaco2 = Request("PesoSaco2") PesoSaco3 = Request("PesoSaco3") PesoSaco4 = Request("PesoSaco4") PesoSaco5 = Request("PesoSaco5") PesoSaco6 = Request("PesoSaco6") PesoSaco7 = Request("PesoSaco7")' PesoSaco8 = Trim(Request("PesoSaco8")) PesoSaco9 = Request("PesoSaco9") PesoSaco10 = Request("PesoSaco10") If PesoSaco1 ="0" then PesoSaco1 ="" If PesoSaco2 ="0" then PesoSaco2 ="" If PesoSaco3 ="0" then PesoSaco3 ="" If PesoSaco4 ="0" then PesoSaco4 ="" If PesoSaco5 ="0" then PesoSaco5 ="" If PesoSaco6 ="0" then PesoSaco6 ="" If PesoSaco7 ="0" then PesoSaco7 ="" ' If PesoSaco8 ="0" then PesoSaco8 ="" If PesoSaco9 ="0" then PesoSaco9 ="" If PesoSaco10 ="0" then PesoSaco10 ="" IF EMail = "" then EMailOrigen="sin especificar"end if If (Trim(Request("Nombre")) <> "" and len(Request("Telefono"))=9) then cadena = "Pedido en la Web \nEn la Web un usuario ha introducido el siguiente pedido:
Nombre: " & Nombre & " Código de Cliente: " & codigo & " Dirección: " & Direccion & " FECHA DEL PEDIDO: " & FechaDia & "/" & FechaMes & "/" & FechaYear & " Telefóno: " & Telefono & " E-Mail: " & EMailOrigen & " Comentario: " & Comentario & " Sacos Total Tn. Tipo de Harina "&saco1&" "&pesosaco1&" Harina ESPECIAL "&saco2&" "&pesosaco2&" Harina FF "&saco3&" "&pesosaco3&" Harina MF "&saco4&" "&pesosaco4&" Harina FFF "&saco5&" "&pesosaco5&" Harina FFF-S "&saco6&" "&pesosaco6&" Harina GF "&saco7&" "&pesosaco7&" Harina INTEGRAL "&saco8&" "&pesosaco8&" "&saco9&" "&pesosaco9&" Harina CENTENO "&saco10&" "&pesosaco10&" Harina ARROZ
" 'ENVIO DEL EMAIL Set oCDO = Server.CreateObject("CDO.Message") Set oCDOConf = Server.CreateObject ("CDO.Configuration") oCDOConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.molidepico.com" oCDOConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 oCDOConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 oCDOConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 oCDOConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 oCDOConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "webenvios@molidepico.com" oCDOConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "agustin" oCDOConf.Fields.Update Set oCDO.Configuration = oCDOConf oCDOConf.Fields.Update Set oCDO.Configuration = oCDOConf oCDO.From = "webenvios@molidepico.com" oCDO.To = "info@molidepico.com" oCDO.Subject = "Pedido desde la web (DIA y HORA: " & Now() & ")" oCDO.HtmlBody = cadena oCDO.Send Set oCDO = Nothing %> Su pedido ha sido solicitado, muy pronto nuestros comerciales se pondrán en contacto con usted.
<%else %> Rellene el siguiente formulario y envíenoslo, le atenderemos en la mayor brevedad posible.
<%End If%> 
