<%
If (CStr(Request("content")) <> "") Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "ywltrading.com" ' Specify a valid SMTP server IP or your domain name'
Mail.From = "snakeboy@ywltrading.com" ' Specify sender's address'
'here you have to specify your existing Imail username and password For authentication
'---------------------------------------
Mail.Username = "snakeboy@ywltrading.com"
Mail.Password = "123456"
'-----------------------------------
Mail.FromName = "Web Customer" ' Specify sender's name
Mail.AddAddress "ywltrading@yahoo.com", "SnakeBoy" ' the address where you want to sent
Mail.Subject = Request.Form("subject")
Mailbody = "from: " & Request.Form("name") &"
Company Name:
" & Request.Form("company") & "
Telephone:
" & Request.Form("tel") &"
Message:
" & Request.Form("message") & ""
Mail.Body = Mailbody
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
Response.Write("")
End if
%>
Yuan Wai Lek Trading -- Malaysia¡¯s leading supplier and producer in Python Skin