<% function send_email(email_to,email_bcc,email_from,company,email_subject,email_html_body) dim mailman dim email set mailman = Server.CreateObject("ChilkatMail2.ChilkatMailMan2") mailman.UnlockComponent "AKoraNetMAILQ_3M0EBLez5dYY" mailman.SmtpHost = "mail.kora.net.au" set email = Server.CreateObject("ChilkatMail2.ChilkatEmail2") email.AddTo "", email_to ' Enter the sender's information email.FromName = "Kora Support Form - " & company 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 function ra(in_string) ra=replace(in_string,"'","''") end function %> Kora Web Solutions
Helpdesk
<% if request("name")="" or request("email")="" then %> For assistance with your enquiry, please feel free to search our knowledgebase by visiting our helpdesk here or fill-in the form below.
     
  Company: *
  Site:
  User:
  Subject: Please briefly describe the issue.
  Issue:
  Details:
*Please provide as much detailed information as possible as this will help us solve your issue sooner.

  Name:
  Phone: preferred
  Email: * preferred
 
   
<% else odbc_connection_string="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("support_db.mdb") & ";Persist Security Info=False" set odbc_db=CreateObject("ADODB.Connection") odbc_db.Open(odbc_connection_string) dim sql_string set dbRS = odbc_db.Execute("INSERT INTO [requests] (company,site,[user],subject,urgency,details,name,phone,[email],preferred) VALUES ('" & ra(request("company")) & "', '" & ra(request("site")) & "', '" & ra(request("user")) & "', '" & ra(request("subject")) & "', '" & ra(request("urgency")) & "', '" & ra(request("details")) & "', '" & ra(request("name")) & "', '" & ra(request("phone")) & "', '" & ra(request("email")) & "', '" & ra(request("R1")) & "')") dim emailAddress dim bccAddress dim emailFrom dim company dim emailSubject dim emailBody emailAddress = "support@kora.net.au" bccAddress = "" emailFrom = request("email") company = request("company") emailSubject = request("urgency") & " " & request("subject") emailbody = "

Company: " & request("company") & "

Site: " & request("site") & "

User: " & request("user") & "

Subject: " & request("subject") & "

Urgency: " & request("urgency") & "

Details: " & request("details") & "

Name: " & request("name") & "

Phone: " & request("phone") & "

Email: " & request("email") & "

Preffered Method of Contact: " & request("R1") & "

" emailbody = emailbody & "##hs_customer_firstname:" & request("name") & "## ##hs_customer_phone:" & request("phone") & "## ##hs_customer_email:" & request("email") & "##" call send_email(emailAddress,bccAddress, emailFrom,company, emailSubject, emailBody) emailAddress = request("email") bccAddress = "" emailFrom = "support@kora.net.au" company = "Kora.net.au" emailSubject = "Support Request Received" emailbody = "

Dear: " & request("name") & "

Your support request has been sent and logged.
We will endeavour to fix and respond to your issue ASAP!


Regards,
Kora Support Team

Kora.net.au PTY LTD

ACN: 105 670 219

PO BOX 1154

Maroochydore. QLD. 4558

 

Mobile: 0418 757 981

Ph: 1800 354 945

Fax: (07) 5473-9671

email: suppport@kora.net.au

web: www.kora.net.au
 

----------------------------------------------------------------------

This transmission is for the intended addressee only and is

confidential information. If you have received this transmission

in error, please delete it and notify the sender.

----------------------------------------------------------------------

 

" call send_email(emailAddress,bccAddress, emailFrom,company, emailSubject, emailBody) %>

Thank you for you enquiry.

It has been forwarded to our support department.

     
  Company: <%response.write(get_field("company"))%>
  Site: <%response.write(get_field("site"))%>
  User: <%response.write(get_field("user"))%>
  Subject: <%response.write(get_field("subject"))%>
  Details: <%response.write(get_field("details"))%>
  Name: <%response.write(get_field("name"))%>
  Phone: <%response.write(get_field("phone"))%>
  Email: <%response.write(get_field("email"))%>
 
     
<% end if %>