<%
  Option Explicit

  '*************************************************
  '*******     Initialization Variable      ********
  '*************************************************
  Dim pgvLanguage, pgvLanguageCharSet, pgvAction
  
  Dim stmEnquiryErrorName1
  Dim stmEnquiryErrorName2
  Dim stmEnquiryErrorIC1
  Dim stmEnquiryErrorIC2
  Dim stmEnquiryErrorAddress1
  Dim stmEnquiryErrorAddress2
  Dim stmEnquiryErrorPostcode1
  Dim stmEnquiryErrorPostcode2
  Dim stmEnquiryErrorPostcode3
  Dim stmEnquiryErrorPostcode4
  Dim stmEnquiryErrorTel1
  Dim stmEnquiryErrorTel2
  Dim stmEnquiryErrorTel3
  Dim stmEnquiryErrorFax1
  Dim stmEnquiryErrorFax2
  Dim stmEnquiryErrorEmail1
  Dim stmEnquiryErrorEmail2
  Dim stmEnquiryErrorEmail3
  Dim stmEnquiryErrorFriendEmail1
  Dim stmEnquiryErrorFriendEmail2
  Dim stmEnquiryErrorFriendEmail3
  Dim stmEnquiryErrorProcessFailureTitle
  Dim stmEnquiryErrorProcessFailureMessage  
  
  Dim stErrMessage, stEnquiryProgressMessage

  Dim stEnquiryName, stEnquiryIC, stEnquiryOldIC
  Dim stEnquiryAddress, stEnquiryPostcode, stEnquiryCountry
  Dim stEnquiryTel, stEnquiryTelFax, stEnquiryEmail
  Dim stEnquiryHP
  Dim inEnquiryQty, crEnquiryPrice, stEnquiryPaymentModeBank
  Dim stEnquiryPaymentModePBBOnline, stEnquiryPaymentModeBankAcctName, stEnquiryPaymentModeBankAcctNo
  Dim stEnquiryPaymentModeBankName, stEnquiryPaymentModeBankInArea, stEnquiryPaymentModeBankInTime
  Dim stEnquiryKnow, stEnquiryKnowFriendName, stEnquiryKnowFriendPhone
  Dim stEnquiryKnowFriendEmail, stEnquiryKnowOthers, stEnquiryRemark
  Dim stEnquiryReceive
  Dim blEnquiryRefer

  '**************************************************************
  '*******     Initialization Value of Page Variable     ********
  '**************************************************************
  pgvLanguage = "zh-cn"
  pgvLanguageCharSet = "gb2312"
  pgvAction = Request.QueryString("action")
  blEnquiryRefer = Request.QueryString("ref")

  stmEnquiryErrorName1 = "No Name enter. Please enter Name."
  stmEnquiryErrorName2 = "Please enter valid Name. Should not more than 100 characters."
  stmEnquiryErrorIC1 = "No I/C enter. Please enter I/C."
  stmEnquiryErrorIC2 = "Please enter valid I/C. Should not more than 12 characters."
  stmEnquiryErrorAddress1 = "No Delivery Address enter. Please enter Delivery Address."
  stmEnquiryErrorAddress2 = "Please enter valid Delivery Address. Should not more than 200 characters."
  stmEnquiryErrorPostcode1 = "No Postcode enter. Please enter Postcode."
  stmEnquiryErrorPostcode2 = "Please enter valid Postcode. Must be a number digits (0-9)."
  stmEnquiryErrorPostcode3 = "Please enter valid Postcode. Should not more than 6 characters."
  stmEnquiryErrorPostcode4 = "Please enter valid Postcode. Should not contain float point."
  stmEnquiryErrorTel1 = "No Phone enter. Please enter Phone."
  stmEnquiryErrorTel2 = "Please enter valid Phone. Should not more than 20 characters."
  stmEnquiryErrorTel3 = "Please enter valid Phone. The Telephone format should be xx-xxxxxxx or xxx-xxxxxxx."
  stmEnquiryErrorFax1 = "Please enter valid Fax. Should not more than 20 characters."
  stmEnquiryErrorFax2 = "Please enter valid Fax. The Telephone format should be xx-xxxxxxx or xxx-xxxxxxx."
  stmEnquiryErrorEmail1 = "No Email enter. Please enter Email."
  stmEnquiryErrorEmail2 = "Please enter valid Email. Should not more than 50 characters."
  stmEnquiryErrorEmail3 = "Please enter valid Email. The Email format should be xxxx@xx.xx. e.g. dd@sales.com."
  stmEnquiryErrorFriendEmail1 = "No Friend Email enter. Please enter Email."
  stmEnquiryErrorFriendEmail2 = "Please enter valid Friend Email. Should not more than 50 characters."
  stmEnquiryErrorFriendEmail3 = "Please enter valid Friend Email. The Email format should be xxxx@xx.xx. e.g. dd@sales.com."
  stmEnquiryErrorProcessFailureTitle = "Email Process Failure!"
  stmEnquiryErrorProcessFailureMessage = "Please contact the web site administrator."
  
  '*****************************************************
  '***** Save Variable From Enquiry Form Procedure *****
  '*****************************************************
  Sub SaveVariableFromEnquiryForm
    stEnquiryName = Request.Form("stEnquiryName")
    stEnquiryIC = Request.Form("stEnquiryIC")
    stEnquiryOldIC = Request.Form("stEnquiryOldIC")
    stEnquiryAddress = Request.Form("stEnquiryAddress")
    stEnquiryPostcode = Request.Form("stEnquiryPostcode")
    stEnquiryCountry = Request.Form("stEnquiryCountry")
    stEnquiryTel = Request.Form("stEnquiryTel")
    stEnquiryTelFax = Request.Form("stEnquiryTelFax")
    stEnquiryHP = Request.Form("stEnquiryHP")
    stEnquiryEmail = Request.Form("stEnquiryEmail")
    inEnquiryQty = Request.Form("stEnquiryQty")
    crEnquiryPrice = Request.Form("stEnquiryPrice")
    stEnquiryPaymentModeBank = Request.Form("cbEnquiryPaymentModeBank")
    stEnquiryPaymentModePBBOnline = Request.Form("cbEnquiryPaymentModePBBOnline")
    stEnquiryPaymentModeBankAcctName = Request.Form("stEnquiryPaymentModeBankAcctName")
    stEnquiryPaymentModeBankAcctNo = Request.Form("stEnquiryPaymentModeBankAcctNo")
    stEnquiryPaymentModeBankName = Request.Form("stEnquiryPaymentModeBankName")
    stEnquiryPaymentModeBankInArea = Request.Form("stEnquiryPaymentModeBankInArea")
    stEnquiryPaymentModeBankInTime = Request.Form("stEnquiryPaymentModeBankInTime")
    stEnquiryKnow = Request.Form("rbEnquiryKnow")
    stEnquiryKnowFriendName = Request.Form("stEnquiryKnowFriendName")
    stEnquiryKnowFriendPhone = Request.Form("stEnquiryKnowFriendPhone")
    stEnquiryKnowFriendEmail = Request.Form("stEnquiryKnowFriendEmail")
    stEnquiryKnowOthers = Request.Form("stEnquiryKnowOthers")
    stEnquiryRemark = Request.Form("stbEnquiryRemark")
    stEnquiryReceive = Request.Form("stEnquiryReceive")
  End Sub 'SaveVariableFromEnquiryForm
  
  '**********************************************
  '*****   Check Enquiry Value Function    ******
  '**********************************************
  Function CheckEnquiryValue

    CheckEnquiryValue = False

    stErrMessage = ""
    If stEnquiryName = "" Then
      stErrMessage = stmEnquiryErrorName1
    ElseIf Len(stEnquiryName) > 100 Then
      stErrMessage = stmEnquiryErrorName2
    'ElseIf stEnquiryIC = "" Then
    '  stErrMessage = stmEnquiryErrorIC1
    'ElseIf Len(stEnquiryIC) > 12 Then 
    '  stErrMessage = stmEnquiryErrorIC2
    ElseIf stEnquiryAddress = "" Then
      stErrMessage = stmEnquiryErrorAddress1
    ElseIf Len(stEnquiryAddress) > 200 Then
      stErrMessage = stmEnquiryErrorAddress2
    ElseIf stEnquiryPostcode = "" Then
      stErrMessage = stmEnquiryErrorPostcode1
    ElseIf Not IsNumeric(stEnquiryPostcode) Then
      stErrMessage = stmEnquiryErrorPostcode2
    ElseIf Len(stEnquiryPostcode) > 6 Then
      stErrMessage = stmEnquiryErrorPostcode3
    ElseIf CharInStr(Array("."), stEnquiryPostcode) Then
      stErrMessage = stmEnquiryErrorPostcode4
    'ElseIf stEnquiryTel = "" Then
    '  stErrMessage = stmEnquiryErrorTel1
    'ElseIf Len(stEnquiryTel) > 20 Then
    '  stErrMessage = stmEnquiryErrorTel2
    'ElseIf ((Not CharInStr(Array("1","2","3","4","5","6","7","8","9","0"), stEnquiryTel)) And (Trim(stEnquiryTel) <> "")) Then
    '  stErrMessage = stmEnquiryErrorTel3
    'ElseIf Len(stEnquiryTelFax) > 20 Then
    '  stErrMessage = stmEnquiryErrorFax1
    'ElseIf ((Not CharInStr(Array("1","2","3","4","5","6","7","8","9","0"), stEnquiryTelFax)) And (Trim(stEnquiryTelFax) <> "")) Then
    '  stErrMessage = stmEnquiryErrorFax2
    ElseIf Trim(stEnquiryEmail) = "" Then
      stErrMessage = stmEnquiryErrorEmail1
    ElseIf Len(stEnquiryEmail) > 50 Then
      stErrMessage = stmEnquiryErrorEmail2
    ElseIf (Not IsValidEmail(stEnquiryEmail)) And (stEnquiryEmail <> "") Then
      stErrMessage = stmEnquiryErrorEmail3
    'ElseIf (stEnquiryKnow = "Friends") And (Trim(stEnquiryKnowFriendEmail) = "") Then
    '  stErrMessage = stmEnquiryErrorFriendEmail1
    'ElseIf (stEnquiryKnow = "Friends") And (Len(stEnquiryKnowFriendEmail) > 50) Then
    '  stErrMessage = stmEnquiryErrorFriendEmail2
    'ElseIf (stEnquiryKnow = "Friends") And (Not IsValidEmail(stEnquiryKnowFriendEmail)) And (stEnquiryKnowFriendEmail <> "") Then
    '  stErrMessage = stmEnquiryErrorFriendEmail3
    Else
      CheckEnquiryValue = True
      stErrMessage = ""
    End If

    If Trim(stErrMessage) = "" Then
      stEnquiryProgressMessage = ""
    Else
      stEnquiryProgressMessage = stErrMessage
    End If
  End Function 'CheckEnquiryValue

  '*************************************
  '***** Do Send Email Procedure *****
  '*************************************
  Sub DoSendEmail
    Dim host, sender, sender_name, receiver, bcc, username, password
    Dim subject, body
    
    'On Error Resume Next

    host = "mail.johstar.com" '"smtp.tm.net.my" '
    username = "sender@johstar.com"
    password = "123456"
    sender = ""
    sender_name = "JOHSTAR.COM"
    receiver = "kenspc@gmail.com" '"info@johstar.com" '
    'bcc = "support@registration.com.my"
    subject = "JOHSTAR.COM Enquiry Form"
                    
    body = "" & vbCrLf &_
           "<style type=""text/css"">" & vbCrLf &_
           "<!--" & vbCrLf &_
           "body{padding:0px;margin:0px;font: 13px/18px Arial, Helvetica, sans-serif;color:#666;}" & vbCrLf &_
           "img, h1, h2, h3, p, div{padding:0;margin:0;}" & vbCrLf &_
           "" & vbCrLf &_
           "h2{font:24px/28px Helvetica, Arial, sans-serif;color:#672c80;word-spacing: -5px;}" & vbCrLf &_
           "-->" & vbCrLf &_
           "</style>" & vbCrLf &_
     
           "<table width=""660"" border=""0"" align=""center"" cellpadding=""3"" cellspacing=""0"">" & vbCrLf &_
           "  <tbody>" & vbCrLf &_
           "    <tr >" & vbCrLf &_
           "      <td width=""160"">Name: </td>" & vbCrLf &_
           "      <td colspan=""3"">" & stEnquiryName & "</td>" & vbCrLf &_
           "    </tr>" & vbCrLf &_
           "    <tr>" & vbCrLf &_
           "      <td>Address:</td>" & vbCrLf &_
           "      <td colspan=""3"">" & stEnquiryAddress & "</td>" & vbCrLf &_
           "    </tr>" & vbCrLf &_
           "    <tr>" & vbCrLf &_
           "      <td>Postcode:</td>" & vbCrLf &_
           "      <td>" & stEnquiryPostcode & "</td>" & vbCrLf &_
           "      <td align=""right"">Country:</td>" & vbCrLf &_
           "      <td>" & stEnquiryCountry & "</td>" & vbCrLf &_
           "    </tr>" & vbCrLf &_
           "    <tr>" & vbCrLf &_
           "      <td>Phone:</td>" & vbCrLf &_
           "      <td width=""138"">" & stEnquiryTel & "</td>" & vbCrLf &_
           "      <td width=""160"" align=""right"" class=""style22""> Mobile Phone:</td>" & vbCrLf &_
           "      <td width=""202"">" & stEnquiryHP & "</td>" & vbCrLf &_
           "    </tr>" & vbCrLf &_
           "    <tr>" & vbCrLf &_
           "      <td>Email:</td>" & vbCrLf &_
           "      <td colspan=""3"">" & stEnquiryEmail & "</td>" & vbCrLf &_
           "    </tr>" & vbCrLf &_
           "    <tr>" & vbCrLf &_
           "      <td rowspan=""2"" valign=""top"">Comment / Enquiry:</td>" & vbCrLf &_
           "      <td colspan=""3"">" & TextToHTML(stEnquiryRemark) & "</td>" & vbCrLf &_
           "    </tr>" & vbCrLf &_
           "  </tbody>" & vbCrLf &_
           "</table>"

    If (Err <> 0) Or (Not ToBoolean(Application("ApplicationInit"))) Or (Not SendAuthEmail(host, username, password, sender, sender_name, stEnquiryReceive, "", bcc, subject, body, True)) Then
      stErrMessage = "Sorry, your enquiry can't be sent out to us, because:<br />" & Err.Description
    End If
    
    If (Trim(stErrMessage) = "") Then
      stEnquiryProgressMessage = "Enquiry Complete!"
    Else
      stEnquiryProgressMessage = stErrMessage
    End If
  End Sub 'DoSendEmail

  '*************************************************
  '*******           Main Program           ********
  '*************************************************

  'On Error Resume Next
%>
<!-- #include File = "library.inc" -->
<%
  If Not CheckApplication Then
    Response.End
  End If

  '//to decide the action
  Select Case LCase(pgvAction)
    Case "submit":
      Call SaveVariableFromEnquiryForm
      If CheckEnquiryValue Then
        Call DoSendEmail
%>
<!-- #include File = "enquiry_submit.html" -->
<%
        Response.End
      End If
  End Select
%>
<!-- #include File = "enquiry.html" -->