<% @LANGUAGE="VBSCRIPT" %> <% option explicit %> <% dim strAction, strHost, strName, strCompany, strEmail, strWorkPhone, strMobilePhone, strFax, strComment, strContactType, subject, body, strErr, Mail strHost = "smtp.cbn.net.id" strAction = Request.Form("action") if strAction = "SEND" then strName = request.form("txtName") strCompany = request.form("txtCompany") strEmail = request.form("txtEmail") strWorkPhone = request.form("txtWorkPhone") strMobilePhone = request.form("txtMobilePhone") strFax = request.form("txtFax") strComment = request.form("txtComment") strContactType = request.form("radContactType") subject = "Contact Us" body = "Name = " & strName & chr(13) & _ "Company = " & strCompany & chr(13) & _ "Email = " & strEmail & chr(13) & _ "Work Phone = " & strWorkPhone & chr(13) & _ "Mobile Phone = " & strMobilePhone & chr(13) & _ "Fax = " & strFax & chr(13) & _ "Comment = " & strComment & chr(13) & _ "Contact Type = " & strContactType if strName <> "" and strComment <> "" then On Error Resume Next strError = "0" set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = strHost Mail.From = strEmail Mail.FromName = strName Mail.AddAddress "corp_sect@uic.co.id" Mail.Subject = subject Mail.Body = body Mail.Send if Err <> 0 then StrErr = "1" end if end if end if %>

<% call header() %>
	<% if strErr = "1" then %> There's an error occured. <% elseif strErr = "0" then %> Message has been sent successfully. <% end if %> Name Company E-mail Work Phone Mobile Phone Fax Comment How would you like us to contact you? By E-mail     By Phone
<% call footer() %>