<%@ Page Trace="False" Language="vb" aspcompat="false" debug="false" validateRequest="false"%> <%@ Import Namespace=System.Drawing %> <%@ Import Namespace=System.Drawing.Imaging %> <%@ Import Namespace=System %> <%@ Import Namespace=System.Web %> <%@ Import Namespace="System.IO" %> <%@ Import Namespace="System.Net.Mail" %> <% Dim html as string html=html + "" html=html + "" + vbcrlf html=html + "" + vbcrlf html=html + "" + vbcrlf html=html + "Contacto" + vbcrlf html=html + "" + vbcrlf html=html + "" + vbcrlf html=html + "" + vbcrlf html=html + " " + vbcrlf html=html + "

" if request("id") <>"" then html=html + "

Revisar Vehiculo

" end if html=html + "" + vbcrlf Dim msg=html Dim Correo as string Correo=Request("email") if Correo="" then Correo="pnoramb@gmail.com" end if Dim Datos_Html As String Dim mm As New MailMessage(Correo, "jagaete@yahoo.com") mm.From= New MailAddress(Correo) mm.To.Add("pnoramb@webco.cl") mm.Subject = "Contacto Web Odontologia" mm.Body = msg mm.IsBodyHtml = True Dim smtp As New SmtpClient smtp.Send(mm) 'Response.Redirect("index.aspx") %> Contacto Julio Infante

 

 

Enviando Mensaje ......

" + vbcrlf html=html + "
" + vbcrlf html=html + " www.odontologiavitacura.cl
" + vbcrlf html=html + " " + vbcrlf html=html + " " + vbcrlf html=html + " " + vbcrlf html=html + " " + vbcrlf html=html + " " + vbcrlf html=html + " " + vbcrlf html=html + " " + vbcrlf html=html + "
Contacto
" + vbcrlf html=html + "
" + vbcrlf html=html + " " + vbcrlf html=html + " " + vbcrlf html=html + " " + vbcrlf html=html + " " + vbcrlf html=html + " " + vbcrlf html=html + " " + vbcrlf html=html + " " + vbcrlf html=html + " " + vbcrlf html=html + " " + vbcrlf html=html + " " + vbcrlf html=html + " " + vbcrlf html=html + " " + vbcrlf html=html + " " + vbcrlf html=html + " " + vbcrlf html=html + " " + vbcrlf html=html + " " + vbcrlf html=html + " " + vbcrlf html=html + " " + vbcrlf html=html + " " + vbcrlf html=html + " " + vbcrlf html=html + " " + vbcrlf html=html + " " + vbcrlf html=html + " " + vbcrlf html=html + " " + vbcrlf html=html + " " + vbcrlf html=html + "
" + vbcrlf html=html + " Nombre" + vbcrlf html=html + " " + Request.Form("nombre") + vbcrlf html=html + "
" + vbcrlf html=html + " Email" + vbcrlf html=html + " "+ Request.Form("email") + "
" + vbcrlf html=html + " Telefono" + vbcrlf html=html + " " + Request.Form("telefono") +"
" + vbcrlf html=html + " Fecha" + vbcrlf html=html + " " + Request.Form("fecha") + "
" + vbcrlf html=html + " Hora" + vbcrlf html=html + " " + Request.Form("hora") + "
" + vbcrlf html=html + " Comentario" + vbcrlf html=html + " " + Request.Form("comentario") + "
" + vbcrlf html=html + "
" + vbcrlf html=html + "
" + vbcrlf html=html + "
" + vbcrlf html=html + "