<%
on error resume next
dim detail , subject
Sub SendEmail (mailto,mailfrom,mailfromname,mailsubject,mailbody)
End Sub
if Trim(Request("acttype"))="1" then
'subject = "Contact us for "&Request("subject")
detail = "ชื่อ : "&Request("name")&chr(13)&"สำหรับแผนก : "&Request("subject")&chr(13)&"รายละเอียด : "&Request("detail")&chr(13)&"Tel : "&Request("tel")&chr(13)&"E-Mail : "&Request("email")
On Error Resume Next
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.medicicorp.com"
Mailer.FromName = "Customer"
Mailer.FromAddress = "service1@medicicorp.com"
Mailer.AddRecipient "", "service2@medicicorp.com"
' Mailer.AddRecipient "service1@medicicorp.com", "service3@medicicorp.com"
Mailer.Subject = "Inquiry from customer"
Mailer.BodyText = detail
if not Mailer.SendMail then
' Response.Write " Mailing Failed... Error is: "
'Response.Write Mailer.Response
else
'Response.Write " sent successfully...
"
end if
'Response.Write "This component expires: " & Mailer.Expires & "
"
end if
%>
M E D I C I _ C O R P O R A T I O N C O . , L T D . ---------------------------------------------------------
