% correo=request.form("comentario") consulta=request.form("comentario") if nombre<>"" then '-------------------------------------------------------------------------------------------------------------------- ServerAddr = "" Subject= asunto Sender = "mail@ortopediayfarmacia.com" set mail=server.CreateObject("Persits.MailSender") mail.Host="smtp-01.servidoresdns.net" mail.Port=25 mail.Username = "ortopediayfarmacia.com" mail.Password = "aA659555364" mail.From= Trim(Sender) mail.AddAddress "cliente@ortopediayfarmacia.com" mail.Subject = Trim(Subject) mail.Body = body mail.IsHTML = True mail.Send Set mail = Nothing Response.redirect "gracias.asp" If Err.Number <> 0 then Response.Write "Envio de Correo Fallido: " & Err.Description %><% Response.Write "serveraddr=" & ServerAddr %><% Response.Write "sender=" & Sender %><% Response.Write "Recipient=" & Recipients %><% Response.Write "subject=" & Subject %><% Response.Write "txtgeneral=" & txtGeneral %><% Else conexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("base_datos/db10.mdb") sql="select * from correos order by 1 desc" Set rsProducto = Server.CreateObject("Adodb.Recordset") rsProducto.Open SQL, conexion, 3, 3, adCmdTable if not rsproducto.bof then id = cint(rsproducto.fields(0)) + 1 else id=1 end if sql="insert into correos values('" & id & "','" & nombre & "','" & asunto & "','" & date() & "','" & comentario & "')" End If Set oComSMTP = Nothing '-------------------------------------------------------------------------------------------------------------------- else%>