%
function send_email(email_to,email_bcc,email_from,email_from_name,email_subject,email_html_body)
dim mailman
dim email
set mailman = Server.CreateObject("ChilkatMail2.ChilkatMailMan2")
mailman.UnlockComponent "AKoraNetMAILQ_3M0EBLez5dYY"
mailman.SmtpHost = "sydney.kora.net.au"
'mailman.SmtpHost = "mail.bigpond.com"
set email = Server.CreateObject("ChilkatMail2.ChilkatEmail2")
email.AddTo "", email_to
email.AddBcc "",email_bcc
' Enter the sender's information
email.FromName = email_from_name
email.FromAddress = email_from
' Enter the email subject
email.Subject = email_subject
email.SetHtmlBody (email_html_body)
if mailman.SendEmail(email) then
'Response.write "Message sent successfully!
"
else
'Response.write mailman.LastErrorHtml
end if
Set email = Nothing
Set mailman = Nothing
end function
if request("action")="submit_enquiry" then
email_string=""
email_string=email_string & "Name: " & request("name") & "
"
email_string=email_string & "Company: " & request("company") & "
"
email_string=email_string & "Phone: " & request("phone") & "
"
email_string=email_string & "Email: " & request("email") & "
"
email_string=email_string & "Comments: " & request("comments") & "
"
call send_email("alex@kora.net.au ","",request("email"),"Resellers Package Enquiry","Resellers Online Enquiry",email_string)
end if
%>
<%
client_id=35
sub write_web_log(description)
Set t = Server.CreateObject("engine_dll.input")
call t.write_to_web_log(Request.ServerVariables("http_user_agent"), Request.ServerVariables("remote_addr"), Request.ServerVariables("remote_host"), Request.ServerVariables("request_method"), Request.ServerVariables("server_name"), Request.ServerVariables("server_port"), Request.ServerVariables("server_software"), description, client_id,Request.ServerVariables("http_referer"))
set t=nothing
end sub
write_web_log("Page: Resellers")
%>