<%
' 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 = 65001
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("TimeBilling_ConnectionString")
FP_DumpError strErrorUrl, "Cannot open database"
fp_rs.Open "Equipment", 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(9)
Dim arFormDBFields0(9)
Dim arFormValues0(9)
arFormFields0(0) = "OnSalePrice"
arFormDBFields0(0) = "OnSalePrice"
arFormValues0(0) = Request("OnSalePrice")
arFormFields0(1) = "Model"
arFormDBFields0(1) = "Model"
arFormValues0(1) = Request("Model")
arFormFields0(2) = "SerialNumber"
arFormDBFields0(2) = "SerialNumber"
arFormValues0(2) = Request("SerialNumber")
arFormFields0(3) = "PurchasePrice"
arFormDBFields0(3) = "PurchasePrice"
arFormValues0(3) = Request("PurchasePrice")
arFormFields0(4) = "Capacity"
arFormDBFields0(4) = "Capacity"
arFormValues0(4) = Request("Capacity")
arFormFields0(5) = "Photo"
arFormDBFields0(5) = "Photo"
arFormValues0(5) = Request("Photo")
arFormFields0(6) = "Make"
arFormDBFields0(6) = "Make"
arFormValues0(6) = Request("Make")
arFormFields0(7) = "Category"
arFormDBFields0(7) = "Category"
arFormValues0(7) = Request("Category")
arFormFields0(8) = "Description"
arFormDBFields0(8) = "Description"
arFormValues0(8) = Request("Description")
FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0
fp_rs.Update
FP_DumpError strErrorUrl, "Cannot update the database"
fp_rs.Close
fp_conn.Close
Session("FP_SavedFields")=arFormFields0
Session("FP_SavedValues")=arFormValues0
Session.CodePage = Session("FP_OldCodePage")
Session.LCID = Session("FP_OldLCID")
Response.Redirect "equipment.asp"
End If
End If
Session.CodePage = Session("FP_OldCodePage")
Session.LCID = Session("FP_OldLCID")
%>
<%
If Session("UserName")&"" = "" Then
Response.redirect "/customerlogin.asp?Redirect=" &Request.Servervariables("URL")
End if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>Untitled</title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body >
<table cellpadding="0" cellspacing="0" border="0" align="center" >
<tr>
<td valign="top" width="766" height="731">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" width="766" height="239" style="background:URL(images/header.jpg); background-repeat:no-repeat "><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0"
width="766" height="239">
<param name="movie" value="flash/header.swf">
<param name="quality" value="high">
<param name="menu" value="false">
</object>
<!--[if !IE]> <!-->
<object data="flash/header.swf"
width="766" height="262" type="application/x-shockwave-flash">
<param name="quality" value="high">
<param name="menu" value="false">
<param name="pluginurl" value="http://www.macromedia.com/go/getflashplayer">
FAIL (the browser should render some flash content, not this).
</object>
<!--> <![endif]-->
</object></td>
</tr>
<tr>
<td valign="top" width="766" height="422" style="background-color:#FFFFFF ">
<table border="0" width="99%" id="table1" style="border-collapse: collapse" height="413">
<tr>
<td colspan="2" height="52">
</td>
</tr>
<tr>
<td width="1%" valign="top">
</td>
<td width="98%" valign="top">
<form method="POST" action="--WEBBOT-SELF--">
<!--webbot bot="SaveDatabase" SuggestedExt="asp" S-DataConnection="TimeBilling" S-RecordSource="Equipment" U-Database-URL="fpdb/TimeBilling.MDB" U-Confirmation-Url="equipment.asp" S-Form-Fields="OnSalePrice Model SerialNumber PurchasePrice Capacity Photo Make Category Description" S-Form-DBFields="OnSalePrice Model SerialNumber PurchasePrice Capacity Photo Make Category Description" U-ASP-Include-Url="_fpclass/fpdbform.inc" startspan --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><!--#include file="_fpclass/fpdbform.inc"--><!--webbot bot="SaveDatabase" i-checksum="40548" endspan -->
<table border="1" width="100%" id="table2">
<tr>
<td>Photo</td>
<td width="589">
<input type="text" name="Photo" size="25" tabindex="1"></td>
</tr>
<tr>
<td>Category</td>
<td width="589">
<select size="1" name="Category" tabindex="2">
<option selected>--Select Equipment--
</option>
<option>Propane Forklifts</option>
<option>Electric Forklifts</option>
<option>Pallet Jacks</option>
<option>Machinery</option>
<option>Forklift Accessories</option>
<option>Warehouse Equip</option>
<option>Dock Equipment</option>
<option>Push Around Lifts</option>
</select></td>
</tr>
<tr>
<td>Make</td>
<td width="589">
<input type="text" name="Make" size="25" tabindex="3"></td>
</tr>
<tr>
<td>Model</td>
<td width="589">
<input type="text" name="Model" size="25" tabindex="4"></td>
</tr>
<tr>
<td>Capacity</td>
<td width="589">
<input type="text" name="Capacity" size="25" tabindex="5"></td>
</tr>
<tr>
<td>Serial Number</td>
<td width="589">
<input type="text" name="SerialNumber" size="25" tabindex="6"></td>
</tr>
<tr>
<td>Description</td>
<td width="589">
<textarea rows="2" name="Description" cols="20" tabindex="7"></textarea></td>
</tr>
<tr>
<td>Purchase Price</td>
<td width="589">
<input type="text" name="PurchasePrice" size="25" tabindex="8"></td>
</tr>
<tr>
<td>On Sale Price</td>
<td width="589">
<input type="text" name="OnSalePrice" size="25" tabindex="9"></td>
</tr>
</table>
<p>
<input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></p>
</form>
</td>
</tr>
</table> </td>
</tr>
</table>
</body>
</html>