<%
' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit.
On Error Resume Next
Session("FP_OldCodePage") = Session.CodePage
Session("FP_OldLCID") = Session.LCID
Session.CodePage = 1252
Session.LCID = 1033
Err.Clear

strErrorUrl = ""

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
	Err.Clear

	Set fp_conn =  Server.CreateObject("ADODB.Connection")
	FP_DumpError strErrorUrl, "Cannot create connection"

	Set fp_rs = Server.CreateObject("ADODB.Recordset")
	FP_DumpError strErrorUrl, "Cannot create record set"

	fp_conn.Open Application("inputform_ConnectionString")
	FP_DumpError strErrorUrl, "Cannot open database"

	fp_rs.Open "Results", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
	FP_DumpError strErrorUrl, "Cannot open record set"

	fp_rs.AddNew
	FP_DumpError strErrorUrl, "Cannot add new record set to the database"
	Dim arFormFields0(25)
	Dim arFormDBFields0(25)
	Dim arFormValues0(25)

	arFormFields0(0) = "T2"
	arFormDBFields0(0) = "T2"
	arFormValues0(0) = Request("T2")
	arFormFields0(1) = "T12"
	arFormDBFields0(1) = "T12"
	arFormValues0(1) = Request("T12")
	arFormFields0(2) = "S1"
	arFormDBFields0(2) = "S1"
	arFormValues0(2) = Request("S1")
	arFormFields0(3) = "T3"
	arFormDBFields0(3) = "T3"
	arFormValues0(3) = Request("T3")
	arFormFields0(4) = "T13"
	arFormDBFields0(4) = "T13"
	arFormValues0(4) = Request("T13")
	arFormFields0(5) = "T4"
	arFormDBFields0(5) = "T4"
	arFormValues0(5) = Request("T4")
	arFormFields0(6) = "T14"
	arFormDBFields0(6) = "T14"
	arFormValues0(6) = Request("T14")
	arFormFields0(7) = "Picture"
	arFormDBFields0(7) = "Picture"
	arFormValues0(7) = Request("Picture")
	arFormFields0(8) = "T5"
	arFormDBFields0(8) = "T5"
	arFormValues0(8) = Request("T5")
	arFormFields0(9) = "T15"
	arFormDBFields0(9) = "T15"
	arFormValues0(9) = Request("T15")
	arFormFields0(10) = "T6"
	arFormDBFields0(10) = "T6"
	arFormValues0(10) = Request("T6")
	arFormFields0(11) = "T16"
	arFormDBFields0(11) = "T16"
	arFormValues0(11) = Request("T16")
	arFormFields0(12) = "Model"
	arFormDBFields0(12) = "Model"
	arFormValues0(12) = Request("Model")
	arFormFields0(13) = "T7"
	arFormDBFields0(13) = "T7"
	arFormValues0(13) = Request("T7")
	arFormFields0(14) = "T17"
	arFormDBFields0(14) = "T17"
	arFormValues0(14) = Request("T17")
	arFormFields0(15) = "T8"
	arFormDBFields0(15) = "T8"
	arFormValues0(15) = Request("T8")
	arFormFields0(16) = "T18"
	arFormDBFields0(16) = "T18"
	arFormValues0(16) = Request("T18")
	arFormFields0(17) = "T9"
	arFormDBFields0(17) = "T9"
	arFormValues0(17) = Request("T9")
	arFormFields0(18) = "T19"
	arFormDBFields0(18) = "T19"
	arFormValues0(18) = Request("T19")
	arFormFields0(19) = "T20"
	arFormDBFields0(19) = "T20"
	arFormValues0(19) = Request("T20")
	arFormFields0(20) = "Category"
	arFormDBFields0(20) = "Category"
	arFormValues0(20) = Request("Category")
	arFormFields0(21) = "T10"
	arFormDBFields0(21) = "T10"
	arFormValues0(21) = Request("T10")
	arFormFields0(22) = "T21"
	arFormDBFields0(22) = "T21"
	arFormValues0(22) = Request("T21")
	arFormFields0(23) = "T1"
	arFormDBFields0(23) = "T1"
	arFormValues0(23) = Request("T1")
	arFormFields0(24) = "T11"
	arFormDBFields0(24) = "T11"
	arFormValues0(24) = Request("T11")

	FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0

	If Request.ServerVariables("REMOTE_HOST") <> "" Then
		FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name"
	End If
	If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then
		FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type"
	End If
	FP_SaveFieldToDB fp_rs, Now, "Timestamp"
	If Request.ServerVariables("REMOTE_USER") <> "" Then
		FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name"
	End If

	fp_rs.Update
	FP_DumpError strErrorUrl, "Cannot update the database"

	fp_rs.Close
	fp_conn.Close

	FP_FormConfirmation "text/html; charset=windows-1252",_
						"Form Confirmation",_
						"Thank you for submitting the following information:",_
						"inputform.htm",_
						"Return to the form."

End If
End If

Session.CodePage = Session("FP_OldCodePage")
Session.LCID = Session("FP_OldLCID")

%>
<html>

<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Input Form</title>
<meta name="Microsoft Border" content="none, default">
</head>

<body>

<p align="center"><b><font color="#FF0000" size="6">Input Form</font></b></p>
<form method="POST" action="../_vti_bin/shtml.exe/Forms/inputform.htm" name="Ice Products" webbot-action="--WEBBOT-SELF--">
  <!--webbot bot="SaveDatabase" SuggestedExt="asp" S-DataConnection="inputform"
  S-RecordSource="Results" U-Database-URL="../fpdb/inputform.mdb"
  S-Builtin-Fields="REMOTE_HOST HTTP_USER_AGENT Timestamp REMOTE_USER"
  S-Builtin-DBFields="Remote_computer_name Browser_type Timestamp User_name"
  S-Form-Fields="T2 T12 S1 T3 T13 T4 T14 Picture T5 T15 T6 T16 Model T7 T17 T8 T18 T9 T19 T20 Category T10 T21 T1 T11"
  S-Form-DBFields="T2 T12 S1 T3 T13 T4 T14 Picture T5 T15 T6 T16 Model T7 T17 T8 T18 T9 T19 T20 Category T10 T21 T1 T11" startspan U-ASP-Include-Url="../_fpclass/fpdbform.inc"
  --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><!--#include file="../_fpclass/fpdbform.inc"--><!--webbot bot="SaveDatabase" endspan i-checksum="34604"
  -->
  <p style="margin-top: 0; margin-bottom: 0">&nbsp;</p>
  <table border="1" width="100%">
    <tr>
      <td width="33%">Category:&nbsp;&nbsp;&nbsp;&nbsp;</td>
      <td width="5%">&nbsp;</td>
      <td width="62%"><select size="1" name="Category">
          <option selected>Select One</option>
          <option>Ice Machines</option>
          <option>Water Filters</option>
          <option>Ice Baggers</option>
          <option>Ice Scoop</option>
          <option>Legs &amp; Casters</option>
          <option>Stacking Kits</option>
          <option>Cleaning Systems</option>
          <option>Drain Pumps</option>
          <option>Condeners</option>
          <option>Remote</option>
          <option>Flakers</option>
          <option>Countertop Machines</option>
          <option>Ice Storage Bins</option>
          <option>Dispensers</option>
          <option>Adapter &amp; Ice Deflector Kits</option>
          <option>Indoor Ice Storage</option>
          <option>Outdoor Ice Storage</option>
        </select></td>
    </tr>
    <tr>
      <td width="33%">Model:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
      <td width="5%">&nbsp;</td>
      <td width="62%"><input type="text" name="Model" size="20"></td>
    </tr>
    <tr>
      <td width="33%">Picture:&nbsp;&nbsp;&nbsp;</td>
      <td width="5%">&nbsp;</td>
      <td width="62%"><input type="text" name="Picture" size="20"></td>
    </tr>
    <tr>
      <td width="33%"># of Doors:&nbsp;&nbsp;&nbsp;&nbsp;</td>
      <td width="5%">&nbsp;</td>
      <td width="62%"><input type="text" name="T1" size="20"></td>
    </tr>
    <tr>
      <td width="33%">Cubic Feet:</td>
      <td width="5%">&nbsp;</td>
      <td width="62%"><input type="text" name="T2" size="20"></td>
    </tr>
    <tr>
      <td width="33%"># of Bags:</td>
      <td width="5%">&nbsp;</td>
      <td width="62%"><input type="text" name="T3" size="20"></td>
    </tr>
    <tr>
      <td width="33%">Width:</td>
      <td width="5%">&nbsp;</td>
      <td width="62%"><input type="text" name="T4" size="20"></td>
    </tr>
    <tr>
      <td width="33%">Depth:</td>
      <td width="5%">&nbsp;</td>
      <td width="62%"><input type="text" name="T5" size="20"></td>
    </tr>
    <tr>
      <td width="33%">Height:</td>
      <td width="5%">&nbsp;</td>
      <td width="62%"><input type="text" name="T6" size="20"></td>
    </tr>
    <tr>
      <td width="33%">Cold Wall Weight:</td>
      <td width="5%">&nbsp;</td>
      <td width="62%"><input type="text" name="T7" size="20"></td>
    </tr>
    <tr>
      <td width="33%">Auto Defrost Weight:</td>
      <td width="5%">&nbsp;</td>
      <td width="62%"><input type="text" name="T8" size="20"></td>
    </tr>
    <tr>
      <td width="33%">Compressor HP:</td>
      <td width="5%">&nbsp;</td>
      <td width="62%"><input type="text" name="T9" size="20"></td>
    </tr>
    <tr>
      <td width="33%">Cold Wall Amperage:</td>
      <td width="5%">&nbsp;</td>
      <td width="62%"><input type="text" name="T10" size="20"></td>
    </tr>
    <tr>
      <td width="33%">Auto Defrost Amperage:</td>
      <td width="5%">&nbsp;</td>
      <td width="62%"><input type="text" name="T11" size="20"></td>
    </tr>
    <tr>
      <td width="33%">Condenser Type:</td>
      <td width="5%">&nbsp;</td>
      <td width="62%"><input type="text" name="T12" size="20"></td>
    </tr>
    <tr>
      <td width="33%">Cube Size:</td>
      <td width="5%">&nbsp;</td>
      <td width="62%"><input type="text" name="T13" size="20"></td>
    </tr>
    <tr>
      <td width="33%">Shipping Weight:</td>
      <td width="5%">&nbsp;</td>
      <td width="62%"><input type="text" name="T14" size="20"></td>
    </tr>
    <tr>
      <td width="33%">Electrical:</td>
      <td width="5%">&nbsp;</td>
      <td width="62%"><input type="text" name="T15" size="20"></td>
    </tr>
    <tr>
      <td width="33%">For Use With:</td>
      <td width="5%">&nbsp;</td>
      <td width="62%"><input type="text" name="T16" size="20"></td>
    </tr>
    <tr>
      <td width="33%">Ice Type:</td>
      <td width="5%">&nbsp;</td>
      <td width="62%"><input type="text" name="T17" size="20"></td>
    </tr>
    <tr>
      <td width="33%">Ice Shape:</td>
      <td width="5%">&nbsp;</td>
      <td width="62%"><input type="text" name="T18" size="20"></td>
    </tr>
    <tr>
      <td width="33%">Nominal Lbs:</td>
      <td width="5%">&nbsp;</td>
      <td width="62%"><input type="text" name="T19" size="20"></td>
    </tr>
    <tr>
      <td width="33%">Suggested Retail Price:</td>
      <td width="5%">&nbsp;</td>
      <td width="62%"><input type="text" name="T20" size="20"></td>
    </tr>
    <tr>
      <td width="33%">Monthly Lease:</td>
      <td width="5%">&nbsp;</td>
      <td width="62%"><input type="text" name="T21" size="20"></td>
    </tr>
    <tr>
      <td width="33%">Description:</td>
      <td width="5%">&nbsp;</td>
      <td width="62%"><textarea rows="4" name="S1" cols="48"></textarea></td>
    </tr>
  </table>
  <p style="margin-top: 0; margin-bottom: 0">&nbsp;</p>
  <p style="margin-top: 0; margin-bottom: 0">&nbsp;</p>
  <p style="margin-top: 0; margin-bottom: 0">ICI Price:</p>
  <p style="margin-top: 0; margin-bottom: 0">&nbsp;</p>
  <p><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></p>
</form>
<p>&nbsp;</p>
<p>&nbsp;</p>
&nbsp;<!-- WiredMinds eMetrics tracking with Enterprise Edition V5.4 START -->
<script type='text/javascript' src='https://count.carrierzone.com/app/count_server/count.js'></script>
<script type='text/javascript'><!--
wm_custnum='cd4d2ca4f8dfa046';
wm_page_name='inputform.htm';
wm_group_name='/services/webpages/i/c/icecoldice.com/public/Forms';
wm_campaign_key='campaign_id';
wm_track_alt='';
wiredminds.count();
// -->
</script>
<!-- WiredMinds eMetrics tracking with Enterprise Edition V5.4 END -->
</body>

</html>