<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/Conn_4kbb.asp" -->
<% Session("svemail") = Request("email1") %>
<% Session("svpassword") = Request("password") %>
<% Session("svregname") = Request("reg_name") %>
<% Dim mobile_no
mobil_no = "reg.gif" %>
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
  If condition = "" Then
    MM_IIf = ifFalse
  Else
    MM_IIf = ifTrue
  End If
End Function
%>
<%
If (CStr(Request("MM_insert")) = "reg_form") Then
  If (Not MM_abortEdit) Then
    ' execute the insert
    Dim MM_editCmd

    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_Conn_4kbb_STRING
    MM_editCmd.CommandText = "INSERT INTO [Copy of register] (reg_name, contact_name, postcode_id, addr1, addr2, town, post_code, tel_no, fax_no, email1, web_url, showroom, corgi, estimates, mobile_no) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" 
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 201, 1, 50, Request.Form("reg_name")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 201, 1, 50, Request.Form("contact_name")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 201, 1, 50, Request.Form("select2")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 201, 1, 50, Request.Form("addr1")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 201, 1, 50, Request.Form("addr2")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 201, 1, 50, Request.Form("town")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 201, 1, 50, Request.Form("post_code")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 201, 1, 50, Request.Form("tel_no")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 201, 1, 50, Request.Form("fax_no")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 201, 1, 50, Request.Form("email1")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 201, 1, 50, Request.Form("web_url")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 201, 1, 50, MM_IIF(Request.Form("showroom"), "Y", "N")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param13", 201, 1, 50, MM_IIF(Request.Form("corgi"), "Y", "N")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param14", 201, 1, 50, MM_IIF(Request.Form("estimates"), "Y", "N")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param15", 201, 1, 50, Request.Form("mobile_no")) ' adLongVarChar
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    ' append the query string to the redirect URL
    Dim MM_editRedirectUrl
    MM_editRedirectUrl = "feedbk.asp"
    If (Request.QueryString <> "") Then
      If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
        MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
      Else
        MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
      End If
    End If
    Response.Redirect(MM_editRedirectUrl)
  End If
End If
%>
<%
Dim RsPost
Dim RsPost_cmd
Dim RsPost_numRows

Set RsPost_cmd = Server.CreateObject ("ADODB.Command")
RsPost_cmd.ActiveConnection = MM_Conn_4kbb_STRING
RsPost_cmd.CommandText = "SELECT * FROM [Copy of register]" 
RsPost_cmd.Prepared = true

Set RsPost = RsPost_cmd.Execute
RsPost_numRows = 0
%>
<%
Dim RsCounty
Dim RsCounty_cmd
Dim RsCounty_numRows

Set RsCounty_cmd = Server.CreateObject ("ADODB.Command")
RsCounty_cmd.ActiveConnection = MM_Conn_4kbb_STRING
RsCounty_cmd.CommandText = "SELECT * FROM county ORDER BY county_name ASC" 
RsCounty_cmd.Prepared = true

Set RsCounty = RsCounty_cmd.Execute
RsCounty_numRows = 0
%>
<%
Dim RsReg
Dim RsReg_cmd
Dim RsReg_numRows

Set RsReg_cmd = Server.CreateObject ("ADODB.Command")
RsReg_cmd.ActiveConnection = MM_Conn_4kbb_STRING
RsReg_cmd.CommandText = "SELECT * FROM [Copy of register]" 
RsReg_cmd.Prepared = true

Set RsReg = RsReg_cmd.Execute
RsReg_numRows = 0
%>
<html>
<head>
<!--HTML 4.0-->
<META Name="description"  Content="kitchens, bedrooms & bathrooms.">
<META Name="keywords" Content="kitchen bedroom bathroom">
<title></title>
<script language="JavaScript">
<!--
function MM_findObj(n, d) { //v4.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}

function MM_validateForm() { //v4.0
  var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
  for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
    if (val) { nm=val.name; if ((val=val.value)!="") {
      if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
        if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';
      } else if (test!='R') {
        if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';
        if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
          min=test.substring(8,p); max=test.substring(p+1);
          if (val<min || max<val) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
    } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }
  } if (errors) alert('The following error(s) occurred:\n'+errors);
  document.MM_returnValue = (errors == '');
}
//-->
</script>
</head>
<body background=../images/backgrnd.jpg>
<div id="Layer2" style="position: absolute; left: 19px; top: 75px; width: 127px; height: 54px; z-index: 2"> 
  <img src="../images/4kbblogo.gif" width="180" height="54" align="top" vspace="0" border="0"></div>
<table width="95%" border="0" height="143">
  <tr> 
    <td height="135">&nbsp;</td>
  </tr>
</table>
<table width="95%" border="0">
  <tr> 
    <td width="100%" colspan="4" height="20"> <br>
      Please complete this form for your registration. The items marked with an 
      asterix * must be completed.</td>
  </tr>
</table>
<table width="95%" border="0">
  <tr> 
    <td width="11%">&nbsp;</td>
    <td width="79%"> 
      <form name="reg_form" method="POST" action="<%=MM_editAction%>" onSubmit="MM_validateForm('reg_name','','R','contact_name','','R','addr1','','R','town','','R','post_code','','R','tel_no','','R','email1','','RisEmail');return document.MM_returnValue">
        <p><b>Company name*</b> 
          <input type="text" name="reg_name" size="30" maxlength="30">
          &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br>
          <b>Contact name* </b> &nbsp; 
          <input type="text" name="contact_name" size="30" maxlength="30">
        </p>
        <p> Choose a password between 4 to 8 characters long and <b>make a note 
          of it*</b> 
          <input type="password" name="password" maxlength="8" size="8" >
          <br>
          <b>Please enter the 1 or 2 letters <i>before</i> the numbers in your 
          postcode*</b> 
          <select name="select2" size="1">
            <%
While (NOT RsPost.EOF)
%><option value="<%=(RsPost.Fields.Item("postcode_id").Value)%>"><%=(RsPost.Fields.Item("postcode_id").Value)%></option>
            <%
  RsPost.MoveNext()
Wend
If (RsPost.CursorType > 0) Then
  RsPost.MoveFirst
Else
  RsPost.Requery
End If
%>
          </select>
        </p>
        <p><b>Address line1*</b> 
          <input type="text" name="addr1">
          <br>
          Address line2 &nbsp;&nbsp;&nbsp; 
          <input type="text" name="addr2">
          <br>
          <b>Town*</b> &nbsp;&nbsp; 
          <input type="text" name="town">
          <br>
          County 
          <select name="select" size="1">
            <option value="   " selected>None</option>
            <%
While (NOT RsCounty.EOF)
%>
            <option value="<%=(RsCounty.Fields.Item("county_name").Value)%>"><%=(RsCounty.Fields.Item("county_name").Value)%></option>
            <%
  RsCounty.MoveNext()
Wend
If (RsCounty.CursorType > 0) Then
  RsCounty.MoveFirst
Else
  RsCounty.Requery
End If
%>
          </select>
          &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>
          <b>Postcode*</b> 
          <input type="text" name="post_code" size="10" maxlength="10">
        </p>
        <p><br>
          <b>Tel no*.</b> 
          <input type="text" name="tel_no" size="10">
          <br>
          Fax no. 
          <input type="text" name="fax_no" size="10">
        </p>
        <p><b>Email address* </b> 
          <input type="text" name="email1">
          <br>
          Web site URL 
          <input type="text" name="web_url" size="30">
        </p>
        <p>&nbsp;</p>
        <p><b>Which of these do you sell? </b><br>
          <input type="checkbox" name="kit">
          kitchen&nbsp;<br>
          <input type="checkbox" name="bed">
          bedroom <br>
          <input type="checkbox" name="bath">
          bathroom &nbsp;<br>
          <input type="checkbox" name="study">
          study <br>
          Other: 
          <input type="text" name="other">
        </p>
        <p><b>Opening times:</b><br>
          Monday to Friday 
          <input type="text" name="am" size="5">
          a.m. to 
          <input type="text" name="pm" size="5" maxlength="5">
          except 
          <input type="text" name="except">
          <br>
          <input type="checkbox" name="sat">
          Saturdays <br>
          <input type="checkbox" name="sun">
          Sundays&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</p>
        <p><b>Which of these facilities do you provide?</b><br>
          <input type="radio" name="facility_id" checked value="1">
          fully fitted carcasses and doors <br>
          <input type="radio" name="facility_id" value="2">
          replacement doors &amp; worktops<br>
          <input type="radio" name="facility_id" value="3">
          freestanding units for DIY </p>
        <p> 
          <input type="checkbox" name="ownpremises">
          specialist manufactured on our own premises <br>
          <input type="checkbox" name="showroom">
          have showroom displays<br>
          <input type="checkbox" name="corgi">
          Corgi&reg; registered fitters &nbsp;<br>
          <input type="checkbox" name="estimates">
          &nbsp;estimates free &amp; without obligation <br>
          <input type="checkbox" name="credit">
          interest free credit &nbsp;&nbsp; </p>
        <p> Established since 
          <input type="text" name="est" size="6" maxlength="4">
          <input type="hidden" name="mobile_no" value="reg.gif">
        </p>
        <p><b>&nbsp;Specialists in:</b><br>
          <textarea name="specialist" cols="50"></textarea>
        </p>
        <p><b>Other information:</b><br>
          <textarea name="otherinfo" cols="50" rows="2"></textarea>
        </p>
        <p> &nbsp;&nbsp; 
          <input type="reset" name="reset" value="Reset">
          &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
          <input type="submit" name="Submit" value="Register">
        </p>
        
<input type="hidden" name="MM_insert" value="reg_form">
      </form>
    </td>
    <td width="10%" colspan="2">&nbsp; </td>
  </tr>
</table>
<table width="95%" border="0">
  <tr> 
    <td width="100%" colspan="4" height="22">&nbsp; </td>
  </tr>
</table>
<script type="text/javascript">
_uacct = "UA-932203-3";
urchinTracker();
</script>
</body>
</html>
<%
RsPost.Close()
%>
<%
RsCounty.Close()
%>
<%
RsReg.Close()
%>