<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Connections/hbwebv6.asp" -->
<!--#include file="includes/common/KT_common.asp" -->
<!--#include file="includes/tNG/tNG.inc.asp" -->
<%
'Make a transaction dispatcher instance
Dim tNGs: Set tNGs = new tNG_dispatcher
tNGs.Init ""
%>
<%
' Start trigger
Dim formValidation: Set formValidation = new tNG_FormValidation
formValidation.Init
formValidation.addField "q_name", true, "text", "", "", "", ""
tNGs.prepareValidation formValidation
' End trigger
%>
<%
'start Trigger_SendEmail trigger
'remove this line if you want to edit the code by hand
Function Trigger_SendEmail (ByRef tNG)
  Dim emailObj: Set emailObj = new tNG_Email
  emailObj.Init tNG
  emailObj.setFrom "{KT_defaultSender}"
  emailObj.setTo "mat@hbweb.co.uk"
  emailObj.setCC ""
  emailObj.setBCC ""
  emailObj.setSubject "HBWeb.co.uk - Quote Enquiry"
  'WriteContent method
  emailObj.setContent "Quote Enquiry from HBWeb.co.uk v8" & vbNewLine & "" & vbNewLine & "Sent on (Server Time): {q_date}" & vbNewLine & "" & vbNewLine & "{q_name}" & vbNewLine & "" & vbNewLine & "{q_address_1}" & vbNewLine & "{q_address_2}" & vbNewLine & "{q_address_3}" & vbNewLine & "{q_postcode}" & vbNewLine & "" & vbNewLine & "{q_tel}" & vbNewLine & "{q_mob}" & vbNewLine & "" & vbNewLine & "{q_email}" & vbNewLine & "" & vbNewLine & "What is the Quote for?" & vbNewLine & "{q_what_for}" & vbNewLine & "" & vbNewLine & "How many pages/prints?" & vbNewLine & "{q_pages}" & vbNewLine & "" & vbNewLine & "Do you need, or have a logo already?" & vbNewLine & "{q_logo}" & vbNewLine & "" & vbNewLine & "Any colour scheme?" & vbNewLine & "{q_colour_scheme}" & vbNewLine & "" & vbNewLine & "Any special needs?" & vbNewLine & "{q_special_needs}" & vbNewLine & "" & vbNewLine & "About your company" & vbNewLine & "{q_about_company}" & vbNewLine & "" & vbNewLine & "Who are your competitors?" & vbNewLine & "{q_competitors}" & vbNewLine & "" & vbNewLine & "How do you foresee the design looking?" & vbNewLine & "{q_foresee_site}" & vbNewLine & "" & vbNewLine & "Any other useful information?" & vbNewLine & "{q_comments}" & vbNewLine & "" & vbNewLine & ""
  emailObj.setEncoding "ISO-8859-1"
  emailObj.setFormat "Text"
  emailObj.setImportance "Normal"
  Set Trigger_SendEmail = emailObj.Execute()
End Function
'end Trigger_SendEmail trigger
%>
<%
Dim quote1
Dim quote1_cmd
Dim quote1_numRows

Set quote1_cmd = Server.CreateObject ("ADODB.Command")
quote1_cmd.ActiveConnection = MM_hbwebv6_STRING
quote1_cmd.CommandText = "SELECT * FROM adult_ed" 
quote1_cmd.Prepared = true

Set quote1 = quote1_cmd.Execute
quote1_numRows = 0
%>
<%
' Make an insert transaction instance 
Dim ins_quote: Set ins_quote = new tNG_insert
ins_quote.init MM_hbwebv6_STRING
tNGs.addTransaction ins_quote
' Register triggers
ins_quote.registerTrigger Array("STARTER", "Trigger_Default_Starter", 1, "POST", "KT_Insert1")
ins_quote.registerTrigger Array("BEFORE", "Trigger_Default_FormValidation", 10, formValidation)
ins_quote.registerTrigger Array("END", "Trigger_Default_Redirect", 99, "contact_quote_confirmed.asp")
ins_quote.registerTrigger Array("AFTER", "Trigger_SendEmail", 40)
' Add columns
ins_quote.setTable "quote"
ins_quote.addColumn "q_name", "STRING_TYPE", "POST", "q_name", ""
ins_quote.addColumn "q_address_1", "STRING_TYPE", "POST", "q_address_1", ""
ins_quote.addColumn "q_address_2", "STRING_TYPE", "POST", "q_address_2", ""
ins_quote.addColumn "q_address_3", "STRING_TYPE", "POST", "q_address_3", ""
ins_quote.addColumn "q_postcode", "STRING_TYPE", "POST", "q_postcode", ""
ins_quote.addColumn "q_tel", "STRING_TYPE", "POST", "q_tel", ""
ins_quote.addColumn "q_mob", "STRING_TYPE", "POST", "q_mob", ""
ins_quote.addColumn "q_email", "STRING_TYPE", "POST", "q_email", ""
ins_quote.addColumn "q_what_for", "STRING_TYPE", "POST", "q_what_for", ""
ins_quote.addColumn "q_pages", "STRING_TYPE", "POST", "q_pages", ""
ins_quote.addColumn "q_logo", "STRING_TYPE", "POST", "q_logo", ""
ins_quote.addColumn "q_colour_scheme", "STRING_TYPE", "POST", "q_colour_scheme", ""
ins_quote.addColumn "q_special_needs", "STRING_TYPE", "POST", "q_special_needs", ""
ins_quote.addColumn "q_about_company", "STRING_TYPE", "POST", "q_about_company", ""
ins_quote.addColumn "q_competitors", "STRING_TYPE", "POST", "q_competitors", ""
ins_quote.addColumn "q_foresee_site", "STRING_TYPE", "POST", "q_foresee_site", ""
ins_quote.addColumn "q_comments", "STRING_TYPE", "POST", "q_comments", ""
ins_quote.addColumn "q_date", "STRING_TYPE", "POST", "q_date", "{NOW_DT}"
ins_quote.setPrimaryKey "q_id", "NUMERIC_TYPE", "", ""
%>
<%
'Execute all the registered transactions
tNGs.executeTransactions
%>
<%
'Get the transaction recordset
Dim rsquote
Dim rsquote_numRows

Set rsquote = tNGs.getRecordset("quote")
rsquote_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>HBWeb.co.uk - Complete this form for a quote</title>
<link href="table.css" rel="stylesheet" type="text/css" />
<link href="includes/skins/mxkollection3.css" rel="stylesheet" type="text/css" media="all" />
<script src="includes/common/js/base.js" type="text/javascript"></script>
<script src="includes/common/js/utility.js" type="text/javascript"></script>
<script src="includes/skins/style.js" type="text/javascript"></script>
<% Response.Write tNGs.displayValidationRules()%></head>

<body>
<div align="center">
  <p><a href="contact.html"><img src="logo/logo_simple.gif" width="363" height="62" border="0" /></a></p>
  <p>To contact us for a quote, please complete the form below.</p>
  <p>&nbsp;
    <%
	Response.Write tNGs.getErrorMsg()
%>
  <form method="post" id="form1" action="<%= KT_escapeAttribute(KT_getFullUri()) %>">
    <table cellpadding="2" cellspacing="0" class="KT_tngtable">
      <tr>
        <td colspan="2" class="KT_th"><div align="center">Your information</div></td>
      </tr>
      <tr>
        <td class="KT_th"><label for="q_name">Name:</label></td>
        <td><input type="text" name="q_name" id="q_name" value="<%=(KT_escapeAttribute(rsquote.Fields.Item("q_name").Value))%>" size="32" />
            <%=(tNGs.displayFieldHint("q_name"))%> <%=(tNGs.displayFieldError("quote", "q_name"))%> </td>
      </tr>
      <tr>
        <td class="KT_th"><label for="q_address_1">Address Line 1:</label></td>
        <td><input type="text" name="q_address_1" id="q_address_1" value="<%=(KT_escapeAttribute(rsquote.Fields.Item("q_address_1").Value))%>" size="32" />
            <%=(tNGs.displayFieldHint("q_address_1"))%> <%=(tNGs.displayFieldError("quote", "q_address_1"))%> </td>
      </tr>
      <tr>
        <td class="KT_th"><label for="q_address_2">Address Line 2:</label></td>
        <td><input type="text" name="q_address_2" id="q_address_2" value="<%=(KT_escapeAttribute(rsquote.Fields.Item("q_address_2").Value))%>" size="32" />
            <%=(tNGs.displayFieldHint("q_address_2"))%> <%=(tNGs.displayFieldError("quote", "q_address_2"))%> </td>
      </tr>
      <tr>
        <td class="KT_th"><label for="q_address_3">Address Line 3:</label></td>
        <td><input type="text" name="q_address_3" id="q_address_3" value="<%=(KT_escapeAttribute(rsquote.Fields.Item("q_address_3").Value))%>" size="32" />
            <%=(tNGs.displayFieldHint("q_address_3"))%> <%=(tNGs.displayFieldError("quote", "q_address_3"))%> </td>
      </tr>
      <tr>
        <td class="KT_th"><label for="q_postcode">Postcode:</label></td>
        <td><input type="text" name="q_postcode" id="q_postcode" value="<%=(KT_escapeAttribute(rsquote.Fields.Item("q_postcode").Value))%>" size="32" />
            <%=(tNGs.displayFieldHint("q_postcode"))%> <%=(tNGs.displayFieldError("quote", "q_postcode"))%> </td>
      </tr>
      <tr>
        <td class="KT_th"><label for="q_tel">Contact Number:</label></td>
        <td><input type="text" name="q_tel" id="q_tel" value="<%=(KT_escapeAttribute(rsquote.Fields.Item("q_tel").Value))%>" size="32" />
            <%=(tNGs.displayFieldHint("q_tel"))%> <%=(tNGs.displayFieldError("quote", "q_tel"))%> </td>
      </tr>
      <tr>
        <td class="KT_th"><label for="q_mob">Mobile:</label></td>
        <td><input type="text" name="q_mob" id="q_mob" value="<%=(KT_escapeAttribute(rsquote.Fields.Item("q_mob").Value))%>" size="32" />
            <%=(tNGs.displayFieldHint("q_mob"))%> <%=(tNGs.displayFieldError("quote", "q_mob"))%> </td>
      </tr>
      <tr>
        <td class="KT_th"><label for="q_email">Email:</label></td>
        <td><input type="text" name="q_email" id="q_email" value="<%=(KT_escapeAttribute(rsquote.Fields.Item("q_email").Value))%>" size="32" />
            <%=(tNGs.displayFieldHint("q_email"))%> <%=(tNGs.displayFieldError("quote", "q_email"))%> </td>
      </tr>
      <tr>
        <td colspan="2" class="KT_th"><div align="center">Information for the quote ...</div></td>
      </tr>
      <tr>
        <td class="KT_th"><label for="q_what_for">What is the quote for?:</label></td>
        <td><textarea name="q_what_for" id="q_what_for" cols="50" rows="5"><%=(KT_escapeAttribute(rsquote.Fields.Item("q_what_for").Value))%></textarea>
            <%=(tNGs.displayFieldHint("q_what_for"))%> <%=(tNGs.displayFieldError("quote", "q_what_for"))%> </td>
      </tr>
      <tr>
        <td class="KT_th"><label for="q_pages">How many web/print pages?:</label></td>
        <td><textarea name="q_pages" id="q_pages" cols="50" rows="5"><%=(KT_escapeAttribute(rsquote.Fields.Item("q_pages").Value))%></textarea>
            <%=(tNGs.displayFieldHint("q_pages"))%> <%=(tNGs.displayFieldError("quote", "q_pages"))%> </td>
      </tr>
      <tr>
        <td class="KT_th"><label for="q_logo">Is a log required, or do you have one?:</label></td>
        <td><textarea name="q_logo" id="q_logo" cols="50" rows="5"><%=(KT_escapeAttribute(rsquote.Fields.Item("q_logo").Value))%></textarea>
            <%=(tNGs.displayFieldHint("q_logo"))%> <%=(tNGs.displayFieldError("quote", "q_logo"))%> </td>
      </tr>
      <tr>
        <td class="KT_th"><label for="q_colour_scheme">What colour scheme would you like?:</label></td>
        <td><textarea name="q_colour_scheme" id="q_colour_scheme" cols="50" rows="5"><%=(KT_escapeAttribute(rsquote.Fields.Item("q_colour_scheme").Value))%></textarea>
            <%=(tNGs.displayFieldHint("q_colour_scheme"))%> <%=(tNGs.displayFieldError("quote", "q_colour_scheme"))%> </td>
      </tr>
      <tr>
        <td class="KT_th"><label for="q_special_needs">Do you have any special requirements?:</label></td>
        <td><textarea name="q_special_needs" id="q_special_needs" cols="50" rows="5"><%=(KT_escapeAttribute(rsquote.Fields.Item("q_special_needs").Value))%></textarea>
            <%=(tNGs.displayFieldHint("q_special_needs"))%> <%=(tNGs.displayFieldError("quote", "q_special_needs"))%> </td>
      </tr>
      <tr>
        <td class="KT_th"><label for="q_about_company">Pleas tell us a little about your company:</label></td>
        <td><textarea name="q_about_company" id="q_about_company" cols="50" rows="5"><%=(KT_escapeAttribute(rsquote.Fields.Item("q_about_company").Value))%></textarea>
            <%=(tNGs.displayFieldHint("q_about_company"))%> <%=(tNGs.displayFieldError("quote", "q_about_company"))%> </td>
      </tr>
      <tr>
        <td class="KT_th"><label for="q_competitors">Who are your main competitors?:</label></td>
        <td><textarea name="q_competitors" id="q_competitors" cols="50" rows="5"><%=(KT_escapeAttribute(rsquote.Fields.Item("q_competitors").Value))%></textarea>
            <%=(tNGs.displayFieldHint("q_competitors"))%> <%=(tNGs.displayFieldError("quote", "q_competitors"))%> </td>
      </tr>
      <tr>
        <td class="KT_th"><label for="q_foresee_site">How do you foresee the design?:</label></td>
        <td><textarea name="q_foresee_site" id="q_foresee_site" cols="50" rows="5"><%=(KT_escapeAttribute(rsquote.Fields.Item("q_foresee_site").Value))%></textarea>
            <%=(tNGs.displayFieldHint("q_foresee_site"))%> <%=(tNGs.displayFieldError("quote", "q_foresee_site"))%> </td>
      </tr>
      <tr>
        <td class="KT_th"><label for="q_comments">Any other useful information/comments:</label></td>
        <td><textarea name="q_comments" id="q_comments" cols="50" rows="5"><%=(KT_escapeAttribute(rsquote.Fields.Item("q_comments").Value))%></textarea>
            <%=(tNGs.displayFieldHint("q_comments"))%> <%=(tNGs.displayFieldError("quote", "q_comments"))%> </td>
      </tr>
      <tr class="KT_buttons">
        <td colspan="2"><div align="center">
          <input type="submit" name="KT_Insert1" id="KT_Insert1" value="Get Quote&gt;" />
        </div></td>
      </tr>
    </table>
    <input type="hidden" name="q_date" id="q_date" value="<%=(KT_escapeAttribute(rsquote.Fields.Item("q_date").Value))%>" />
  </form>
  <p>&nbsp;</p>
  </p>
<p>&nbsp;</p>
</div>
</body>
</html>
<%
quote1.Close()
Set quote1 = Nothing
%>