<% Response.Buffer = True Dim strBody Dim objCDOMail Dim strMyEmailAddress Dim strReturnEmailAddress strMyEmailAddress = "pong@tofill.com" strReturnEmailAddress = Request.Form("email") strBody = "

ข้อความจากเวป วิภาวรรณ

" strBody = strBody & "
ชื่อ : " & Request.Form("Name") If (Request.Form("email")) > "" Then strBody = strBody & "
อีเมล์ : " & Request.Form("email") End If strBody = strBody & "

ข้อความ : -
" & Replace(Request.Form("enquiry"), vbCrLf, "
") If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then strReturnEmailAddress = strMyEmailAddress End If Set objCDOMail = Server.CreateObject("CDO.Message") Set objMyConfiguration = Server.CreateObject ("CDO.Configuration") objMyConfiguration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.tofill.com" objMyConfiguration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMyConfiguration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objMyConfiguration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objMyConfiguration.Fields.Update Set objCDOMail.Configuration = objMyConfiguration objCDOMail.From = Request.Form("name") & " <" & strReturnEmailAddress & ">" objCDOMail.To = strMyEmailAddress objCDOMail.Subject = "ติดต่อ วิภาวรรณ" 'objCDOMail.BodyFormat = 0 'objCDOMail.MailFormat = 0 objCDOMail.BodyPart.CharSet = "TIS-620" objCDOMail.HTMLBody = strBody 'objCDOMail.Importance = 2 objCDOMail.Send Set objCDOMail = Nothing %>

 
    
 
ข้อความของคุณ

<% = Request.Form("Name") %>

ได้ถูกเก็บเข้าระบบเรียบร้อยแล้ว

รอ 5 วินาที เพื่อกลับสู่หน้าแรก วิภาวรรณ ดอท คอม หรือ [ คลิกที่นี่ ]