ASP page not displaying all the data

ASP page not displaying all the data (Full Version)

All Forums >> [Web Development] >> ASP and Database

Message

Joe Kauffman -> ASP page not displaying all the data (9/26/2007 16:25:42)
I've never had this problem and am hoping someone knows what is causing it....probably something simple but I'm drawing a blank. I have a simple ASP page that creates a record in a SQL database just fine. I then have a link to that record on another page where they can view all the fields for that record that were entered. The strange thing is that when they click on the link the page will show the values of some of the fields but not all. There is data in these fields in the SQL table but they won't display on the page. Any ideas? Thanks, Joe

Spooky -> RE: ASP page not displaying all the data (9/26/2007 17:17:58)
Is it a certain type of data field? Does the field perhaps contain special characters like quotes?

Joe Kauffman -> RE: ASP page not displaying all the data (9/26/2007 17:40:17)
That's the strange part, they are a variety of fields from numeric, text, nvarchar and char and none of them have any special characters. It's also random where there will be a few fields that show, then there might be 6-8 that don't, then a few more will show.

Spooky -> RE: ASP page not displaying all the data (9/26/2007 19:39:54)
If it were me - I think that I would check the html output first to see if there was anything untoward in the browser output. How are you extracting and showing the values from the DB? If you remove the nvarchar type from display, does the same issue occur for other field displays?

ThomasMobley -> RE: ASP page not displaying all the data (9/26/2007 20:42:39)
Is it always the same fields that don't display? That would be a key. Try doing something like this in your code for fld = rs.fields response.write("name = " * fld.name & " : value = " & fld.value) next and see what you are retrieving for sure Also, are you setting an on error somewhere and not checking the err.description? If you set on error resume next, you may miss some errors you should be catching for debug purposes.

Joe Kauffman -> RE: ASP page not displaying all the data (9/28/2007 13:30:05)
Spooky, I was working off an existing table and am not sure why they had nvarchar fields anyhow, so I changed all the nvarchar fields to varchar and it didn't make any difference.. I'm doing a simple <%=recordset("FieldName")%> display for all the fields. Thanks for the help.

rdouglass -> RE: ASP page not displaying all the data (9/28/2007 15:21:21)
quote: text, If it's SQL Server 2005, try changing that field to 'nvarchar(max)'. I have had a few wierd probs like that that seemed to be fixed by switching the field types. Hope it helps.

Joe Kauffman -> RE: ASP page not displaying all the data (9/28/2007 16:19:37)
rdouglas, Thanks for the info. Unfortunately it's SQL 2000. I've got char, text, varchar, numeric and 2 datetime fields in the table.

Spooky -> RE: ASP page not displaying all the data (9/28/2007 16:41:02)
When you first pull the record from the database, assign it to a variable and then use the variable to display the value further down the page. See if that helps?

Joe Kauffman -> RE: ASP page not displaying all the data (9/28/2007 16:56:02)
I just tried assigning one of the fields that doesn't show up to a variable and displaying it down the page and it didn't help....

Spooky -> RE: ASP page not displaying all the data (9/28/2007 19:07:22)
Can you do it specifically with the large text fields and perhaps show the current code?

Joe Kauffman -> RE: ASP page not displaying all the data (10/1/2007 12:18:50)

Here's some of the code from the page. In this section of the page, the RO#, Delivery Date and General Comments are not showing when the page is displayed.

		<tr>
		<td width="275"> </td>
		<td width="670" colspan="3"> </td>
		<td> </td>
	</tr>
	
	<tr>
		<td width="275"><p style="margin-left: 5px"><font face="Arial" size="2">Customer Name</font></td>
		<td width="335" colspan="2"><p style="margin-left: 5px"><font face="Arial" size="2">RO#</font></td>
		<td width="335"><p style="margin-left: 5px"><font face="Arial" size="2">VIN#</font></td>
		<td> </td>
	</tr>	
	<tr>
		<td width="275"><p style="margin-left: 5px"><font face="Arial"><input type="text" name="custname" value="<%=truckedit("custname")%>"></font></td>
		<td width="335" colspan="2"><p style="margin-left: 5px">
		<font face="Arial"><input type="text" name="ronum" <%=truckedit("ronum")%>></font></td>
		<td width="335"><p style="margin-left: 5px"><font face="Arial"><input type="text" name="vinnum" value="<%=truckedit("vinnum")%>"></font></td>
		<td> </td>
	</tr>
	<tr>
		<td width="275"><p style="margin-left: 5px"><font face="Arial" size="2">Delivery Date</font></td>
		<td width="168"><p style="margin-left: 5px"><font face="Arial" size="2"> Make</font></td>
		<td width="167"><p style="margin-left: 5px"><font face="Arial" size="2">Model</font></td>
		<td width="335"><p style="margin-left: 5px"><font face="Arial" size="2">CA or CT</font></td>
		<td> </td>
	</tr>
	
	<tr>
		<td width="275"><p style="margin-left: 5px"><font face="Arial"><input type="text" name="delivdate" value="<%=truckedit("delivdate")%>"></font></td>
		<td width="168"><p style="margin-left: 5px"><font face="Arial">
		<select name="make">
		  <option value="" <%If (Not isNull((truckedit("make")))) Then If ("" = CStr((truckedit("make")))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Select One</option>
<option value="Peterbilt" <%If (Not isNull((truckedit("make")))) Then If ("Peterbilt" = CStr((truckedit("make")))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Peterbilt</option>
		  <option value="Kenworth" <%If (Not isNull((truckedit("make")))) Then If ("Kenworth" = CStr((truckedit("make")))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Kenworth</option>
		  <option value="Freightliner" <%If (Not isNull((truckedit("make")))) Then If ("Freightliner" = CStr((truckedit("make")))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Freightliner</option>
		  <option value="Mac" <%If (Not isNull((truckedit("make")))) Then If ("Mac" = CStr((truckedit("make")))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Mac</option>
		  <option value="Ford" <%If (Not isNull((truckedit("make")))) Then If ("Ford" = CStr((truckedit("make")))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Ford</option>
<option value="GMC" <%If (Not isNull((truckedit("make")))) Then If ("GMC" = CStr((truckedit("make")))) Then Response.Write("selected=""selected""") : Response.Write("")%>>GMC</option>
		  <option value="Western Star" <%If (Not isNull((truckedit("make")))) Then If ("Western Star" = CStr((truckedit("make")))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Western Star</option>
		  <option value="Other" <%If (Not isNull((truckedit("make")))) Then If ("Other" = CStr((truckedit("make")))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Other</option>
		  <%
While (NOT truckedit.EOF)
%>
		  <option value="<%=(truckedit("make"))%>" <%If (Not isNull((truckedit("make")))) Then If (CStr(truckedit("make")) = CStr((truckedit("make")))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(truckedit("make"))%></option>
		  <%
  truckedit.MoveNext()
Wend
If (truckedit.CursorType > 0) Then
  truckedit.MoveFirst
Else
  truckedit.Requery
End If
%>
		  </select><font size="2"> </font></font>
	  </td>
		<td width="167"><p style="margin-left: 5px"><font face="Arial">
		<input type="text" name="model" value="<%=truckedit("model")%>"></font></td>
		<td width="335">
		<p style="margin-left: 5px"><font face="Arial">
		  <select name="caorct">
		    <option value="" <%If (Not isNull((truckedit("caorct")))) Then If ("" = CStr((truckedit("caorct")))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Select One</option>
<option value="CA" <%If (Not isNull((truckedit("caorct")))) Then If ("CA" = CStr((truckedit("caorct")))) Then Response.Write("selected=""selected""") : Response.Write("")%>>CA</option>
		    <option value="CT" <%If (Not isNull((truckedit("caorct")))) Then If ("CT" = CStr((truckedit("caorct")))) Then Response.Write("selected=""selected""") : Response.Write("")%>>CT</option>
		    <%
While (NOT truckedit.EOF)
%>
		    <option value="<%=(truckedit("caorct"))%>" <%If (Not isNull((truckedit("caorct")))) Then If (CStr(truckedit("caorct")) = CStr((truckedit("caorct")))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(truckedit("caorct"))%></option>
		    <%
  truckedit.MoveNext()
Wend
If (truckedit.CursorType > 0) Then
  truckedit.MoveFirst
Else
  truckedit.Requery
End If
%>
          </select><font size="2"> </font>
		</font></td>
		<td> </td>
	</tr>
	<tr>
		<td width="275"> </td>
		<td width="670" colspan="3"><p style="margin-left: 5px"><font face="Arial" size="2">CA or CT Comments</font></td>
		<td> </td>
	</tr>
	<tr>
		<td width="275"> </td>
		<td width="670" colspan="3"><p style="margin-left: 5px">
		<font face="Arial">
		<textarea name="cactcomments" rows="3" cols="77" ><%=truckedit("cactcomments")%></textarea></font></td>
		<td> </td>
	</tr>
	<tr>
		<td width="275"> </td>
		<td width="670" colspan="3"><p style="margin-left: 5px"><font face="Arial" size="2">General Comments (Other Make)</font></td>
		<td> </td>
	</tr>
	<tr>
	  <td> </td>
	  <td width="670" colspan="3"><p style="margin-left: 5px">
		<font face="Arial">
	  <textarea name="gencomments" rows="3" cols="77"><%=truckedit("gencomments")%></textarea></font></td>
	  <td> </td>
  </tr>
	<tr>
	  <td> </td>
	  <td width="670" colspan="3"> </td>
	  <td> </td>
  </tr>
  
</table>

Spooky -> RE: ASP page not displaying all the data (10/1/2007 14:32:51)
For RO#, it should be this ? <input type="text" name="ronum" value="<%=truckedit("ronum")%>">

Joe Kauffman -> RE: ASP page not displaying all the data (10/1/2007 18:21:21)
Yes.

William Lee -> RE: ASP page not displaying all the data (10/1/2007 18:46:04)
quote: ORIGINAL: Joe Kauffman Yes. Check your code and Spooky's. Its different. You missed out the 'value=' before <%=truckedit("ronum")%>

Joe Kauffman -> RE: ASP page not displaying all the data (10/1/2007 18:59:12)
Got it. It must have happened when I was cleaning out the truckedit.fields.item crap that Dreamweaver places...I checked the remainder of the fields and this was the only one missing the value=" before it, and it still isn't displaying on the page. Thanks for catching that though.

William Lee -> RE: ASP page not displaying all the data (10/1/2007 21:22:01)
quote: ORIGINAL: Joe Kauffman Got it. It must have happened when I was cleaning out the truckedit.fields.item crap that Dreamweaver places...I checked the remainder of the fields and this was the only one missing the value=" before it, and it still isn't displaying on the page. Thanks for catching that though. DW probably broke the HTML and gave you more crap. Check out the image below. You will see lots of orphaned ' > ' due to the interferences when consecutive double quotes paired off. Suggest you use the single/double quotes in tandem like this: value='<%truckedit("ronum")%>' I've done that for Custname and it looks good. If this doesn't solve the problem, please post the URL or screenshot. It always help us to see a better picture. [image]local://upfiles/4448/4F05BF4B8336462D88743DA45B74DCAD.gif[/image]

Joe Kauffman -> RE: ASP page not displaying all the data (10/2/2007 12:20:27)

William,

Thanks. I've gone through and replaced all the double quotes with singles (like the code below) and it didn't make any difference.

<tr>
		<td width="275"><p style="margin-left: 5px"><font face="Arial" size="2">Customer Name</font></td>
		<td width="335" colspan="2"><p style="margin-left: 5px"><font face="Arial" size="2">RO#</font></td>
		<td width="335"><p style="margin-left: 5px"><font face="Arial" size="2">VIN#</font></td>
		<td> </td>
	</tr>	
	<tr>
		<td width="275"><p style="margin-left: 5px"><font face="Arial"><input type="text" name="custname" value='<%=truckedit("custname")%>'></font></td>
		<td width="335" colspan="2"><p style="margin-left: 5px">
		<font face="Arial"><input type="text" name="ronum" value='<%=truckedit("ronum")%>'></font></td>
		<td width="335"><p style="margin-left: 5px"><font face="Arial"><input type="text" name="vinnum" value='<%=truckedit("vinnum")%>'></font></td>
		<td> </td>
	</tr>
	<tr>
		<td width="275"><p style="margin-left: 5px"><font face="Arial" size="2">Delivery Date</font></td>
		<td width="168"><p style="margin-left: 5px"><font face="Arial" size="2"> Make</font></td>
		<td width="167"><p style="margin-left: 5px"><font face="Arial" size="2">Model</font></td>
		<td width="335"><p style="margin-left: 5px"><font face="Arial" size="2">CA or CT</font></td>
		<td> </td>
	</tr>
	
	<tr>
		<td width="275"><p style="margin-left: 5px"><font face="Arial"><input type="text" name="delivdate" value='<%=truckedit("delivdate")%>'></font></td>
		<td width="168"><p style="margin-left: 5px"><font face="Arial">
		<select name="make">
		  <option value="" <%If (Not isNull((truckedit.Fields.Item("make").Value))) Then If ("" = CStr((truckedit.Fields.Item("make").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Select One</option>
<option value="Peterbilt" <%If (Not isNull((truckedit.Fields.Item("make").Value))) Then If ("Peterbilt" = CStr((truckedit.Fields.Item("make").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Peterbilt</option>
		  <option value="Kenworth" <%If (Not isNull((truckedit.Fields.Item("make").Value))) Then If ("Kenworth" = CStr((truckedit.Fields.Item("make").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Kenworth</option>
		  <option value="Freightliner" <%If (Not isNull((truckedit.Fields.Item("make").Value))) Then If ("Freightliner" = CStr((truckedit.Fields.Item("make").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Freightliner</option>
		  <option value="Mac" <%If (Not isNull((truckedit.Fields.Item("make").Value))) Then If ("Mac" = CStr((truckedit.Fields.Item("make").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Mac</option>
		  <option value="Ford" <%If (Not isNull((truckedit.Fields.Item("make").Value))) Then If ("Ford" = CStr((truckedit.Fields.Item("make").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Ford</option>
<option value="GMC" <%If (Not isNull((truckedit.Fields.Item("make").Value))) Then If ("GMC" = CStr((truckedit.Fields.Item("make").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>GMC</option>
		  <option value="Western Star" <%If (Not isNull((truckedit.Fields.Item("make").Value))) Then If ("Western Star" = CStr((truckedit.Fields.Item("make").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Western Star</option>
		  <option value="Other" <%If (Not isNull((truckedit.Fields.Item("make").Value))) Then If ("Other" = CStr((truckedit.Fields.Item("make").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Other</option>
		  <%
While (NOT truckedit.EOF)
%>
		  <option value="<%=(truckedit.Fields.Item("make").Value)%>" <%If (Not isNull((truckedit.Fields.Item("make").Value))) Then If (CStr(truckedit.Fields.Item("make").Value) = CStr((truckedit.Fields.Item("make").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(truckedit.Fields.Item("make").Value)%></option>
		  <%
  truckedit.MoveNext()
Wend
If (truckedit.CursorType > 0) Then
  truckedit.MoveFirst
Else
  truckedit.Requery
End If
%>
		  </select><font size="2"> </font></font>
	  </td>
		<td width="167"><p style="margin-left: 5px"><font face="Arial">
		<input type="text" name="model" value='<%=truckedit("model")%>'></font></td>
		<td width="335">
		<p style="margin-left: 5px"><font face="Arial">
		  <select name="caorct">
		    <option value="" <%If (Not isNull((truckedit.Fields.Item("caorct").Value))) Then If ("" = CStr((truckedit.Fields.Item("caorct").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Select One</option>
<option value="CA" <%If (Not isNull((truckedit.Fields.Item("caorct").Value))) Then If ("CA" = CStr((truckedit.Fields.Item("caorct").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>CA</option>
		    <option value="CT" <%If (Not isNull((truckedit.Fields.Item("caorct").Value))) Then If ("CT" = CStr((truckedit.Fields.Item("caorct").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>CT</option>
		    <%
While (NOT truckedit.EOF)
%>
		    <option value="<%=(truckedit.Fields.Item("caorct").Value)%>" <%If (Not isNull((truckedit.Fields.Item("caorct").Value))) Then If (CStr(truckedit.Fields.Item("caorct").Value) = CStr((truckedit.Fields.Item("caorct").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(truckedit.Fields.Item("caorct").Value)%></option>
		    <%
  truckedit.MoveNext()
Wend
If (truckedit.CursorType > 0) Then
  truckedit.MoveFirst
Else
  truckedit.Requery
End If
%>
          </select><font size="2"> </font>
		</font></td>
		<td> </td>
	</tr>
	<tr>
		<td width="275"> </td>
		<td width="670" colspan="3"><p style="margin-left: 5px"><font face="Arial" size="2">CA or CT Comments</font></td>
		<td> </td>
	</tr>
	<tr>
		<td width="275"> </td>
		<td width="670" colspan="3"><p style="margin-left: 5px">
		<font face="Arial">
		<textarea name="cactcomments" rows="3" cols="77" ><%=truckedit("cactcomments")%></textarea></font></td>
		<td> </td>
	</tr>
	<tr>
		<td width="275"> </td>
		<td width="670" colspan="3"><p style="margin-left: 5px"><font face="Arial" size="2">General Comments (Other Make)</font></td>
		<td> </td>
	</tr>
	<tr>
	  <td> </td>
	  <td width="670" colspan="3"><p style="margin-left: 5px">
		<font face="Arial">
	  <textarea name="gencomments" rows="3" cols="77"><%=truckedit("gencomments")%></textarea></font></td>
	  <td> </td>
  </tr>

Here's a screen shot showing some of the fields that are not displaying. As you can see, some will display just fine, but a majority are blank. There is data in the database for each of these fields.

[image]local://upfiles/11670/B4641583D4C44FCE96534FB7868224C8.gif[/image]

William Lee -> RE: ASP page not displaying all the data (10/2/2007 12:30:40)
Sorry are you able to post a bigger image, point me to a URL with that image? I really can't see very clear.

Joe Kauffman -> RE: ASP page not displaying all the data (10/2/2007 12:40:32)
Sorry, let me try it again. [image]local://upfiles/11670/BCCE996D200947FFBF51A49B994FEE4A.gif[/image]

William Lee -> RE: ASP page not displaying all the data (10/2/2007 12:51:04)
The code you posted correspond to the image displayed? I cannot tell what is wrong at this moment. Sorry.

William Lee -> RE: ASP page not displaying all the data (10/2/2007 13:00:31)
Are those fields that are blank include a simple response.write or only those with conditional statements? You need to further tidy up especially in the Option Select [image]local://upfiles/4448/840547DF999B4A75BB1782BD698B9DB4.gif[/image]

William Lee -> RE: ASP page not displaying all the data (10/2/2007 13:38:29)
An unlikely thing, but are you pointing at the right database?

Joe Kauffman -> RE: ASP page not displaying all the data (10/2/2007 13:52:05)
Yes. It displays the value for some of the fields in this table, but not all. Just for grins, I created a view in Ent. Manager and queried the view instead of the table directly and it had no effect. Thanks again.

Spooky -> RE: ASP page not displaying all the data (10/2/2007 16:33:39)
Can you post the whole code?

Joe Kauffman -> RE: ASP page not displaying all the data (10/2/2007 17:35:48)

Huh, I've tried but the screen just goes blank on the postpro.asp page. I'll try breaking it in two.
First part


<%@LANGUAGE="VBSCRIPT"%>
<% 	if request("ID")>0 then %>
<!--#include file="Connections/Truck.asp" -->
<%
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_update")) = "form1") Then
  If (Not MM_abortEdit) Then
    ' execute the update
    Dim MM_editCmd

    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_Truck_STRING
    MM_editCmd.CommandText = "UPDATE dbo.Torders_Master SET custname = ?, ronum = ?, vinnum = ?, delivdate = ?, make = ?, model = ?, caorct = ?, cactcomments = ?, gencomments = ?, TankDslTnk1 = ?, TankDslTnkGal1 = ?, TankDslTnkLoad1 = ?, TankDslTnkComm = ?, TankDslTnk2 = ?, TankDslTnkGal2 = ?, TankDslTnkLoad2 = ?, TankDslTnk3 = ?, TankDslTnkGal3 = ?, TankDslTnkLoad3 = ?, TankOilPrdcts1 = ?, TankOilPrdctsSightGlass1 = ?, TankOilPrdctsLoad1 = ?, TankOilPrdctsGal1 = ?, TankOilPrdctsComm = ?, TankOilPrdcts2 = ?, TankOilPrdctsSightGlass2 = ?, TankOilPrdctsLoad2 = ?, TankOilPrdctsGal2 = ?, TankOilPrdcts3 = ?, TankOilPrdctsSightGlass3 = ?, TankOilPrdctsLoad3 = ?, TankOilPrdctsGal3 = ?, TankOilPrdcts4 = ?, TankOilPrdctsSightGlass4 = ?, TankOilPrdctsLoad4 = ?, TankOilPrdctsGal4 = ?, TankOilPrdcts5 = ?, TankOilPrdctsSightGlass5 = ?, TankOilPrdctsLoad5 = ?, TankOilPrdctsGal5 = ?, TankOilPrdcts6 = ?, TankOilPrdctsSightGlass6 = ?, TankOilPrdctsLoad6 = ?, TankOilPrdctsGal6 = ?, TankOilPrdcts7 = ?, TankOilPrdctsSightGlass7 = ?, TankOilPrdctsLoad7 = ?, TankOilPrdctsGal7 = ?, TankOilPrdcts8 = ?, TankOilPrdctsSightGlass8 = ?, TankOilPrdctsLoad8 = ?, TankOilPrdctsGal8 = ?, TankCoolant1 = ?, TankCoolantGal1 = ?, TankCoolantComm = ?, TankCoolant2 = ?, TankCoolantGal2 = ?, TankWshWtr = ?, TankWshWtrGal = ?, TankWshWtrComm = ?, TankUsedOil = ?, TankUsedOilSightGlass = ?, TankUsedOilGal = ?, TankUsedOilComm = ?, TankUsedCoolant = ?, TankUsedCoolantSightGlass = ?, TankUsedCoolantGal = ?, TankUsedCoolantComm = ?, AirSys = ?, AirSysParts = ?, AirSysReel = ?, AirSysGal = ?, AirSysHose = ?, AirSysComm = ?, DslSysOffRPumpSys = ?, DslSysOffRPumpParts = ?, DslSysOffRPumpComm = ?, DslSysOffRreelFD = ?, DslSysOffRreelFDNoz = ?, DslSysOffRreelFDComm = ?, DslSysOffRreelFDType = ?, DslSysOffRPumpFDParts = ?, DslSysOffRreelSD = ?, DslSysOffRreelSDType = ?, DslSysOffRSDPart = ?, DslSysOffRreelSDComm = ?, DslSysOffRMeter = ?, DslSysOffRMeterParts = ?, DslSysOffRMeterComm = ?, DslSysOnRPump = ?, DslSysOnRPumpParts = ?, DslSysOnRPumpComm = ?, DslSysOnRSlowReel = ?, DslSysOnRSlowReelParts = ?, DslSysOnRSlowReelComm = ?, DslSysOnRMeter = ?, DslSysOnRMeterParts = ?, DslSysOnRMeterComm = ?, DslSysOnRBotLoad = ?, DslSysOnRBotLoadComm = ?, OilSys = ?, OilSysParts = ?, OilSysComm = ?, OilSysReel = ?, OilSysReelParts = ?, OilSysReelComm = ?, OilSysCntrlValve = ?, OilSysCntrlValveComm = ?, OilSysFiltration = ?, OilSysFiltrationParts = ?, OilSysFiltrationComm = ?, OilSysVents = ?, OilSysVentsParts = ?, OilSysVentsComm = ?, OilSysHeaters = ?, OilSysHeatersParts = ?, OilSysHeatersQuantity = ?, OilSysHeatersComm = ?, GrseSys = ?, GrseSysParts = ?, GrseSysComm = ?, GrseSysReel = ?, GrseSysReelParts = ?, GrseSysReelComm = ?, GrseSysFlwrPlate = ?, GrseSysFlwrPlateDK = ?, GrseSysFlwrPlateDKParts = ?, GrseSysFlwrPlateComm = ?, GrseSysHeater = ?, GrseSysHeaterParts = ?, GrseSysHeaterComm = ?, GrseSysGenComm = ?, ClntSys = ?, ClntSysParts = ?, ClntSysComm = ?, ClntSysReel = ?, ClntSysReelParts = ?, ClntSysReelComm = ?, ClntSysCntrlValve = ?, ClntSysCntrlValveComm = ?, ClntSysGenComm = ?, WshWtrSys = ?, WshWtrSysComm = ?, WshWtrSysPump = ?, WshWtrSysPumpParts = ?, WshWtrSysPumpComm = ?, WshWtrSysReel = ?, WshWtrSysReelParts = ?, WshWtrSysReelComm = ?, UsdOil = ?, UsdOilParts = ?, UsdOilComm = ?, UsdOilTrshBin = ?, UsdOilTrshBinComm = ?, UsdCoolant = ?, UsdCoolantParts = ?, UsdCoolantComm = ?, OptGenerator = ?, OptGeneratorComm = ?, OptStdLight = ?, OptStdLightQuant = ?, OptStdLightComm = ?, OptHghPwrLght = ?, OptHghPwrLghtComm = ?, OptStrobe = ?, OptStrobeParts = ?, OptStrobeComm = ?, OptFilterCrush = ?, OptFilterCrushComm = ?, OptPartsWash = ?, OptPartsWashParts = ?, OptPartsWashComm = ?, OptVise = ?, OptsViseHolder = ?, OptViseComm = ?, OptBumper = ?, OptBumperComm = ?, OptDrainPan = ?, OptDrainPanComm = ?, OptDrawers = ?, OptDrawersQuantity = ?, OptDrawersComm = ?, OptSkirts = ?, OptSkirtsComm = ?, OptTieDown = ?, OptTieDownParts = ?, OptTieDownComm = ?, TankFalseWalls = ?, TanKFalseWallsComm = ?, PaintColor = ?, PaintLogo = ?, PaintGatorGuard = ?, PaintCustGraphicContact = ?, PaintPhoneNum = ?, PaintEmail = ?, PaintGenComm = ? WHERE ID = ?" 
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 201, 1, 50, Request.Form("custname")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 201, 1, 50, Request.Form("ronum")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 201, 1, 50, Request.Form("vinnum")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 135, 1, -1, MM_IIF(Request.Form("delivdate"), Request.Form("delivdate"), null)) ' adDBTimeStamp
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 201, 1, 50, Request.Form("make")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 201, 1, 50, Request.Form("model")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 201, 1, 10, Request.Form("caorct")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 201, 1, -1, Request.Form("cactcomments")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 201, 1, -1, Request.Form("gencomments")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 201, 1, 10, Request.Form("TankDslTnk1")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 5, 1, -1, MM_IIF(Request.Form("TankDslTnkGal1"), Request.Form("TankDslTnkGal1"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 201, 1, 20, Request.Form("TankDslTnkLoad1")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param13", 201, 1, -1, Request.Form("TankDslTnkComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param14", 201, 1, 10, Request.Form("TankDslTnk2")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param15", 5, 1, -1, MM_IIF(Request.Form("TankDslTnkGal2"), Request.Form("TankDslTnkGal2"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param16", 201, 1, 20, Request.Form("TankDslTnkLoad2")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param17", 201, 1, 10, Request.Form("TankDslTnk3")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param18", 5, 1, -1, MM_IIF(Request.Form("TankDslTnkGal3"), Request.Form("TankDslTnkGal3"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param19", 201, 1, 20, Request.Form("TankDslTnkLoad3")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param20", 201, 1, 50, Request.Form("TankOilPrdcts1")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param21", 201, 1, 10, Request.Form("TankOilPrdctsSightGlass1")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param22", 201, 1, 20, Request.Form("TankOilPrdctsLoad1")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param23", 5, 1, -1, MM_IIF(Request.Form("TankOilPrdctsGal1"), Request.Form("TankOilPrdctsGal1"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param24", 201, 1, -1, Request.Form("TankOilPrdctsComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param25", 201, 1, 50, Request.Form("TankOilPrdcts2")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param26", 201, 1, 10, Request.Form("TankOilPrdctsSightGlass2")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param27", 201, 1, 20, Request.Form("TankOilPrdctsLoad2")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param28", 5, 1, -1, MM_IIF(Request.Form("TankOilPrdctsGal2"), Request.Form("TankOilPrdctsGal2"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param29", 201, 1, 50, Request.Form("TankOilPrdcts3")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param30", 201, 1, 10, Request.Form("TankOilPrdctsSightGlass3")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param31", 201, 1, 20, Request.Form("TankOilPrdctsLoad3")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param32", 5, 1, -1, MM_IIF(Request.Form("TankOilPrdctsGal3"), Request.Form("TankOilPrdctsGal3"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param33", 201, 1, 50, Request.Form("TankOilPrdcts4")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param34", 201, 1, 10, Request.Form("TankOilPrdctsSightGlass4")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param35", 201, 1, 20, Request.Form("TankOilPrdctsLoad4")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param36", 5, 1, -1, MM_IIF(Request.Form("TankOilPrdctsGal4"), Request.Form("TankOilPrdctsGal4"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param37", 201, 1, 50, Request.Form("TankOilPrdcts5")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param38", 201, 1, 10, Request.Form("TankOilPrdctsSightGlass5")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param39", 201, 1, 20, Request.Form("TankOilPrdctsLoad5")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param40", 5, 1, -1, MM_IIF(Request.Form("TankOilPrdctsGal5"), Request.Form("TankOilPrdctsGal5"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param41", 201, 1, 50, Request.Form("TankOilPrdcts6")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param42", 201, 1, 10, Request.Form("TankOilPrdctsSightGlass6")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param43", 201, 1, 20, Request.Form("TankOilPrdctsLoad6")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param44", 5, 1, -1, MM_IIF(Request.Form("TankOilPrdctsGal6"), Request.Form("TankOilPrdctsGal6"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param45", 201, 1, 50, Request.Form("TankOilPrdcts7")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param46", 201, 1, 10, Request.Form("TankOilPrdctsSightGlass7")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param47", 201, 1, 20, Request.Form("TankOilPrdctsLoad7")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param48", 5, 1, -1, MM_IIF(Request.Form("TankOilPrdctsGal7"), Request.Form("TankOilPrdctsGal7"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param49", 201, 1, 50, Request.Form("TankOilPrdcts8")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param50", 201, 1, 10, Request.Form("TankOilPrdctsSightGlass8")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param51", 201, 1, 20, Request.Form("TankOilPrdctsLoad8")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param52", 5, 1, -1, MM_IIF(Request.Form("TankOilPrdctsGal8"), Request.Form("TankOilPrdctsGal8"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param53", 201, 1, 50, Request.Form("TankCoolant1")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param54", 5, 1, -1, MM_IIF(Request.Form("TankCoolantGal1"), Request.Form("TankCoolantGal1"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param55", 201, 1, -1, Request.Form("TankCoolantComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param56", 201, 1, 50, Request.Form("TankCoolant2")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param57", 5, 1, -1, MM_IIF(Request.Form("TankCoolantGal2"), Request.Form("TankCoolantGal2"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param58", 201, 1, 20, Request.Form("TankWshWtr")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param59", 5, 1, -1, MM_IIF(Request.Form("TankWshWtrGal"), Request.Form("TankWshWtrGal"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param60", 201, 1, -1, Request.Form("TankWshWtrComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param61", 201, 1, 100, Request.Form("TankUsedOil")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param62", 201, 1, 10, Request.Form("TankUsedOilSightGlass")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param63", 201, 1, 25, Request.Form("TankUsedOilGal")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param64", 201, 1, -1, Request.Form("TankUsedOilComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param65", 201, 1, 100, Request.Form("TankUsedCoolant")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param66", 201, 1, 10, Request.Form("TankUsedCoolantSightGlass")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param67", 5, 1, -1, MM_IIF(Request.Form("TankUsedCoolantGal"), Request.Form("TankUsedCoolantGal"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param68", 201, 1, -1, Request.Form("TankUsedCoolantComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param69", 201, 1, 50, Request.Form("AirSys")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param70", 201, 1, 50, Request.Form("AirSysParts")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param71", 201, 1, 10, Request.Form("AirSysReel")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param72", 5, 1, -1, MM_IIF(Request.Form("AirSysGal"), Request.Form("AirSysGal"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param73", 201, 1, 25, Request.Form("AirSysHose")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param74", 201, 1, -1, Request.Form("AirSysComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param75", 201, 1, 20, Request.Form("DslSysOffRPumpSys")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param76", 201, 1, 50, Request.Form("DslSysOffRPumpParts")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param77", 201, 1, -1, Request.Form("DslSysOffRPumpComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param78", 201, 1, 10, Request.Form("DslSysOffRreelFD")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param79", 201, 1, 10, Request.Form("DslSysOffRreelFDNoz")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param80", 201, 1, -1, Request.Form("DslSysOffRreelFDComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param81", 201, 1, 10, Request.Form("DslSysOffRreelFDType")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param82", 201, 1, 50, Request.Form("DslSysOffRPumpFDParts")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param83", 201, 1, 10, Request.Form("DslSysOffRreelSD")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param84", 201, 1, 10, Request.Form("DslSysOffRreelSDType")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param85", 201, 1, 50, Request.Form("DslSysOffRSDPart")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param86", 201, 1, -1, Request.Form("DslSysOffRreelSDComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param87", 201, 1, 50, Request.Form("DslSysOffRMeter")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param88", 201, 1, 50, Request.Form("DslSysOffRMeterParts")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param89", 201, 1, -1, Request.Form("DslSysOffRMeterComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param90", 201, 1, 20, Request.Form("DslSysOnRPump")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param91", 201, 1, 50, Request.Form("DslSysOnRPumpParts")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param92", 201, 1, -1, Request.Form("DslSysOnRPumpComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param93", 201, 1, 20, Request.Form("DslSysOnRSlowReel")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param94", 201, 1, 50, Request.Form("DslSysOnRSlowReelParts")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param95", 201, 1, -1, Request.Form("DslSysOnRSlowReelComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param96", 201, 1, 50, Request.Form("DslSysOnRMeter")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param97", 201, 1, 50, Request.Form("DslSysOnRMeterParts")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param98", 201, 1, -1, Request.Form("DslSysOnRMeterComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param99", 201, 1, 10, Request.Form("DslSysOnRBotLoad")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param100", 201, 1, -1, Request.Form("DslSysOnRBotLoadComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param101", 201, 1, 20, Request.Form("OilSys")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param102", 201, 1, 50, Request.Form("OilSysParts")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param103", 201, 1, -1, Request.Form("OilSysComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param104", 201, 1, 20, Request.Form("OilSysReel")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param105", 201, 1, 50, Request.Form("OilSysReelParts")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param106", 201, 1, -1, Request.Form("OilSysReelComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param107", 201, 1, 50, Request.Form("OilSysCntrlValve")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param108", 201, 1, -1, Request.Form("OilSysCntrlValveComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param109", 201, 1, 10, Request.Form("OilSysFiltration")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param110", 201, 1, 50, Request.Form("OilSysFiltrationParts")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param111", 201, 1, -1, Request.Form("OilSysFiltrationComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param112", 201, 1, 10, Request.Form("OilSysVents")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param113", 201, 1, 50, Request.Form("OilSysVentsParts")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param114", 201, 1, -1, Request.Form("OilSysVentsComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param115", 201, 1, 10, Request.Form("OilSysHeaters")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param116", 201, 1, 50, Request.Form("OilSysHeatersParts")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param117", 201, 1, 10, Request.Form("OilSysHeatersQuantity")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param118", 201, 1, -1, Request.Form("OilSysHeatersComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param119", 201, 1, 20, Request.Form("GrseSys")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param120", 201, 1, 50, Request.Form("GrseSysParts")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param121", 201, 1, -1, Request.Form("GrseSysComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param122", 201, 1, 20, Request.Form("GrseSysReel")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param123", 201, 1, 50, Request.Form("GrseSysReelParts")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param124", 201, 1, -1, Request.Form("GrseSysReelComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param125", 201, 1, 10, Request.Form("GrseSysFlwrPlate")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param126", 201, 1, 25, Request.Form("GrseSysFlwrPlateDK")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param127", 201, 1, 50, Request.Form("GrseSysFlwrPlateDKParts")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param128", 201, 1, -1, Request.Form("GrseSysFlwrPlateComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param129", 201, 1, 20, Request.Form("GrseSysHeater")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param130", 201, 1, 50, Request.Form("GrseSysHeaterParts")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param131", 201, 1, -1, Request.Form("GrseSysHeaterComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param132", 201, 1, -1, Request.Form("GrseSysGenComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param133", 201, 1, 20, Request.Form("ClntSys")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param134", 201, 1, 50, Request.Form("ClntSysParts")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param135", 201, 1, -1, Request.Form("ClntSysComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param136", 201, 1, 20, Request.Form("ClntSysReel")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param137", 201, 1, 50, Request.Form("ClntSysReelParts")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param138", 201, 1, -1, Request.Form("ClntSysReelComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param139", 201, 1, 50, Request.Form("ClntSysCntrlValve")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param140", 201, 1, -1, Request.Form("ClntSysCntrlValveComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param141", 201, 1, -1, Request.Form("ClntSysGenComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param142", 201, 1, 20, Request.Form("WshWtrSys")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param143", 201, 1, -1, Request.Form("WshWtrSysComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param144", 201, 1, 50, Request.Form("WshWtrSysPump")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param145", 201, 1, 50, Request.Form("WshWtrSysPumpParts")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param146", 201, 1, -1, Request.Form("WshWtrSysPumpComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param147", 201, 1, 20, Request.Form("WshWtrSysReel")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param148", 201, 1, 50, Request.Form("WshWtrSysReelParts")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param149", 201, 1, -1, Request.Form("WshWtrSysReelComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param150", 201, 1, 50, Request.Form("UsdOil")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param151", 201, 1, 50, Request.Form("UsdOilParts")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param152", 201, 1, -1, Request.Form("UsdOilComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param153", 201, 1, 20, Request.Form("UsdOilTrshBin")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param154", 201, 1, -1, Request.Form("UsdOilTrshBinComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param155", 201, 1, 50, Request.Form("UsdCoolant")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param156", 201, 1, 50, Request.Form("UsdCoolantParts")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param157", 201, 1, -1, Request.Form("UsdCoolantComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param158", 201, 1, 50, Request.Form("OptGenerator")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param159", 201, 1, -1, Request.Form("OptGeneratorComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param160", 201, 1, 50, Request.Form("OptStdLight")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param161", 5, 1, -1, MM_IIF(Request.Form("OptStdLightQuant"), Request.Form("OptStdLightQuant"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param162", 201, 1, -1, Request.Form("OptStdLightComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param163", 201, 1, 50, Request.Form("OptHghPwrLght")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param164", 201, 1, -1, Request.Form("OptHghPwrLghtComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param165", 201, 1, 50, Request.Form("OptStrobe")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param166", 201, 1, 50, Request.Form("OptStrobeParts")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param167", 201, 1, -1, Request.Form("OptStrobeComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param168", 201, 1, 10, Request.Form("OptFilterCrush")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param169", 201, 1, -1, Request.Form("OptFilterCrushComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param170", 201, 1, 10, Request.Form("OptPartsWash")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param171", 201, 1, 50, Request.Form("OptPartsWashParts")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param172", 201, 1, -1, Request.Form("OptPartsWashComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param173", 201, 1, 10, Request.Form("OptVise")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param174", 201, 1, 10, Request.Form("OptsViseHolder")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param175", 201, 1, -1, Request.Form("OptViseComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param176", 201, 1, 10, Request.Form("OptBumper")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param177", 201, 1, -1, Request.Form("OptBumperComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param178", 201, 1, 10, Request.Form("OptDrainPan")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param179", 201, 1, -1, Request.Form("OptDrainPanComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param180", 201, 1, 10, Request.Form("OptDrawers")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param181", 5, 1, -1, MM_IIF(Request.Form("OptDrawersQuantity"), Request.Form("OptDrawersQuantity"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param182", 201, 1, -1, Request.Form("OptDrawersComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param183", 201, 1, 50, Request.Form("OptSkirts")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param184", 201, 1, -1, Request.Form("OptSkirtsComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param185", 201, 1, 10, Request.Form("OptTieDown")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param186", 201, 1, 50, Request.Form("OptTieDownParts")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param187", 201, 1, -1, Request.Form("OptTieDownComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param188", 201, 1, 10, Request.Form("TankFalseWalls")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param189", 201, 1, -1, Request.Form("TankFalseWallsComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param190", 201, 1, 50, Request.Form("PaintColor")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param191", 201, 1, 50, Request.Form("PaintLogo")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param192", 201, 1, 10, Request.Form("PaintGatorGuard")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param193", 201, 1, 50, Request.Form("PaintCustGraphicContact")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param194", 201, 1, 50, Request.Form("PaintPhoneNum")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param195", 201, 1, 50, Request.Form("PaintEmail")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param196", 201, 1, -1, Request.Form("PaintGenComm")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param197", 5, 1, -1, MM_IIF(Request.Form("MM_recordId"), Request.Form("MM_recordId"), null)) ' adDouble
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    ' append the query string to the redirect URL
    Dim MM_editRedirectUrl
    MM_editRedirectUrl = "treditsuccess.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 truckedit
Dim truckedit_numRows

Set truckedit = Server.CreateObject("ADODB.Recordset")
truckedit.ActiveConnection = MM_Truck_STRING
truckedit.Source = "SELECT * FROM dbo.ASP_TordersMaster WHERE ID = '"& request("ID") &"'"
truckedit.CursorType = 0
truckedit.CursorLocation = 2
truckedit.LockType = 1
truckedit.Open()

truckedit_numRows = 0
%>

<html>
<head>

<title>Southwest Products Edit Truck Order</title>
<style fprolloverstyle>A:hover {color: #FF0000}
</style>

</head>

<body link="#000080" vlink="#000080" alink="#000080" bgcolor="#D5D5D5">
<form ACTION="<%=MM_editAction%>"  name="form1" METHOD="POST">


<table border="0" width="100%" id="table1" cellspacing="0" cellpadding="0">
	<tr>
		<td width="275"><p style="margin-left: 5px"><font face="Arial" size="2"><img border="0" src="images/swplogo.jpg" width="195" height="83"></font></td>
		<td width="670" colspan="3"><p style="margin-left: 5px"><b><font face="Arial">Southwest Products Edit Truck Order Form</font></b>
		</td>
		<td> 
		</td>
	</tr>
	<tr>
		<td width="275"> </td>
		<td width="670" colspan="3"> </td>
		<td> </td>
	</tr>
	
	<tr>
		<td width="275"><p style="margin-left: 5px"><font face="Arial" size="2">Customer Name</font></td>
		<td width="335" colspan="2"><p style="margin-left: 5px"><font face="Arial" size="2">RO#</font></td>
		<td width="335"><p style="margin-left: 5px"><font face="Arial" size="2">VIN#</font></td>
		<td> </td>
	</tr>	
	<tr>
		<td width="275"><p style="margin-left: 5px"><font face="Arial"><input type="text" name="custname" value='<%=truckedit("custname")%>'></font></td>
		<td width="335" colspan="2"><p style="margin-left: 5px">
		<font face="Arial"><input type="text" name="ronum" value='<%=truckedit("ronum")%>'></font></td>
		<td width="335"><p style="margin-left: 5px"><font face="Arial"><input type="text" name="vinnum" value='<%=truckedit("vinnum")%>'></font></td>
		<td> </td>
	</tr>
	<tr>
		<td width="275"><p style="margin-left: 5px"><font face="Arial" size="2">Delivery Date</font></td>
		<td width="168"><p style="margin-left: 5px"><font face="Arial" size="2"> Make</font></td>
		<td width="167"><p style="margin-left: 5px"><font face="Arial" size="2">Model</font></td>
		<td width="335"><p style="margin-left: 5px"><font face="Arial" size="2">CA or CT</font></td>
		<td> </td>
	</tr>
	
	<tr>
		<td width="275"><p style="margin-left: 5px"><font face="Arial"><input type="text" name="delivdate" value='<%=truckedit("delivdate")%>'></font></td>
		<td width="168"><p style="margin-left: 5px"><font face="Arial">
		<select name="make">
		  <option value="" <%If (Not isNull((truckedit.Fields.Item("make").Value))) Then If ("" = CStr((truckedit.Fields.Item("make").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Select One</option>
<option value="Peterbilt" <%If (Not isNull((truckedit.Fields.Item("make").Value))) Then If ("Peterbilt" = CStr((truckedit.Fields.Item("make").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Peterbilt</option>
		  <option value="Kenworth" <%If (Not isNull((truckedit.Fields.Item("make").Value))) Then If ("Kenworth" = CStr((truckedit.Fields.Item("make").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Kenworth</option>
		  <option value="Freightliner" <%If (Not isNull((truckedit.Fields.Item("make").Value))) Then If ("Freightliner" = CStr((truckedit.Fields.Item("make").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Freightliner</option>
		  <option value="Mac" <%If (Not isNull((truckedit.Fields.Item("make").Value))) Then If ("Mac" = CStr((truckedit.Fields.Item("make").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Mac</option>
		  <option value="Ford" <%If (Not isNull((truckedit.Fields.Item("make").Value))) Then If ("Ford" = CStr((truckedit.Fields.Item("make").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Ford</option>
<option value="GMC" <%If (Not isNull((truckedit.Fields.Item("make").Value))) Then If ("GMC" = CStr((truckedit.Fields.Item("make").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>GMC</option>
		  <option value="Western Star" <%If (Not isNull((truckedit.Fields.Item("make").Value))) Then If ("Western Star" = CStr((truckedit.Fields.Item("make").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Western Star</option>
		  <option value="Other" <%If (Not isNull((truckedit.Fields.Item("make").Value))) Then If ("Other" = CStr((truckedit.Fields.Item("make").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Other</option>
		  <%
While (NOT truckedit.EOF)
%>
		  <option value="<%=(truckedit.Fields.Item("make").Value)%>" <%If (Not isNull((truckedit.Fields.Item("make").Value))) Then If (CStr(truckedit.Fields.Item("make").Value) = CStr((truckedit.Fields.Item("make").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(truckedit.Fields.Item("make").Value)%></option>
		  <%
  truckedit.MoveNext()
Wend
If (truckedit.CursorType > 0) Then
  truckedit.MoveFirst
Else
  truckedit.Requery
End If
%>
		  </select><font size="2"> </font></font>
	  </td>
		<td width="167"><p style="margin-left: 5px"><font face="Arial">
		<input type="text" name="model" value='<%=truckedit("model")%>'></font></td>
		<td width="335">
		<p style="margin-left: 5px"><font face="Arial">
		  <select name="caorct">
		    <option value="" <%If (Not isNull((truckedit.Fields.Item("caorct").Value))) Then If ("" = CStr((truckedit.Fields.Item("caorct").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Select One</option>
<option value="CA" <%If (Not isNull((truckedit.Fields.Item("caorct").Value))) Then If ("CA" = CStr((truckedit.Fields.Item("caorct").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>CA</option>
		    <option value="CT" <%If (Not isNull((truckedit.Fields.Item("caorct").Value))) Then If ("CT" = CStr((truckedit.Fields.Item("caorct").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>CT</option>
		    <%
While (NOT truckedit.EOF)
%>
		    <option value="<%=(truckedit.Fields.Item("caorct").Value)%>" <%If (Not isNull((truckedit.Fields.Item("caorct").Value))) Then If (CStr(truckedit.Fields.Item("caorct").Value) = CStr((truckedit.Fields.Item("caorct").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(truckedit.Fields.Item("caorct").Value)%></option>
		    <%
  truckedit.MoveNext()
Wend
If (truckedit.CursorType > 0) Then
  truckedit.MoveFirst
Else
  truckedit.Requery
End If
%>
          </select><font size="2"> </font>
		</font></td>
		<td> </td>
	</tr>
	<tr>
		<td width="275"> </td>
		<td width="670" colspan="3"><p style="margin-left: 5px"><font face="Arial" size="2">CA or CT Comments</font></td>
		<td> </td>
	</tr>
	<tr>
		<td width="275"> </td>
		<td width="670" colspan="3"><p style="margin-left: 5px">
		<font face="Arial">
		<textarea name="cactcomments" rows="3" cols="77" ><%=truckedit("cactcomments")%></textarea></font></td>
		<td> </td>
	</tr>
	<tr>
		<td width="275"> </td>
		<td width="670" colspan="3"><p style="margin-left: 5px"><font face="Arial" size="2">General Comments (Other Make)</font></td>
		<td> </td>
	</tr>
	<tr>
	  <td> </td>
	  <td width="670" colspan="3"><p style="margin-left: 5px">
		<font face="Arial">
	  <textarea name="gencomments" rows="3" cols="77"><%=truckedit("gencomments")%></textarea></font></td>
	  <td> </td>
  </tr>
	<tr>
	  <td> </td>
	  <td width="670" colspan="3"> </td>
	  <td> </td>
  </tr>
  
</table>
<table border="1" width="100%" id="table2" bordercolorlight="#001869" bordercolordark="#444142" cellspacing="1">
	<tr>
		<td valign="top">
		<table border="0" width="100%" id="table3" cellspacing="0" cellpadding="0">
			<tr>
				<td colspan="5" align="center" bgcolor="#000080"><p style="margin-left: 5px"><b><font face="Arial" size="2" color="#FFFFFF">Tank Specifications</font></b></td>
			</tr>
			<tr>
				<td width="15%" valign="top"><p style="margin-left: 5px"><font face="Arial" size="2">Diesel Tank</font></td>
				<td width="13%" valign="top"><p style="margin-left: 5px"><font face="Arial" size="2">Gallons</font></td>
				<td width="14%" valign="top"><p style="margin-left: 5px"><font face="Arial" size="2">Diesel Tank Load</font></td>
				<td width="15%" valign="top"><p style="margin-left: 5px"><font face="Arial" size="2">Diesel Tank Comments</font></td>
			  <td width="43%" valign="top"> </td>
			</tr>
			<tr>
				<td width="15%" valign="top"><p style="margin-left: 5px"><font face="Arial">
				<select name="TankDslTnk1">
				  <option value="" <%If (Not isNull((truckedit.Fields.Item("TankDslTnk1").Value))) Then If ("" = CStr((truckedit.Fields.Item("TankDslTnk1").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Select One</option>
				  <option value="On Road" <%If (Not isNull((truckedit.Fields.Item("TankDslTnk1").Value))) Then If ("On Road" = CStr((truckedit.Fields.Item("TankDslTnk1").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>On Road</option>
				  <option value="Off Road" <%If (Not isNull((truckedit.Fields.Item("TankDslTnk1").Value))) Then If ("Off Road" = CStr((truckedit.Fields.Item("TankDslTnk1").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Off Road</option>
				  <option value="Gas" <%If (Not isNull((truckedit.Fields.Item("TankDslTnk1").Value))) Then If ("Gas" = CStr((truckedit.Fields.Item("TankDslTnk1").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Gas</option>
				  <%
While (NOT truckedit.EOF)
%>
                  <option value="<%=(truckedit.Fields.Item("TankDslTnk1").Value)%>" <%If (Not isNull((truckedit.Fields.Item("TankDslTnk1").Value))) Then If (CStr(truckedit.Fields.Item("TankDslTnk1").Value) = CStr((truckedit.Fields.Item("TankDslTnk1").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(truckedit.Fields.Item("TankDslTnk1").Value)%></option>
                  <%
  truckedit.MoveNext()
Wend
If (truckedit.CursorType > 0) Then
  truckedit.MoveFirst
Else
  truckedit.Requery
End If
%>
			    </select><font size="2"> </font></font>				
				</td>
				<td width="13%" valign="top"><p style="margin-left: 5px"><font face="Arial">
				<input type="text" name="TankDslTnkGal1" value='<%=truckedit("TankDslTnkGal1")%>'><font size="2"> </font></font></td>
				<td width="14%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				<select name="TankDslTnkLoad1">
				  <option value="" <%If (Not isNull((truckedit.Fields.Item("TankDslTnkLoad1").Value))) Then If ("" = CStr((truckedit.Fields.Item("TankDslTnkLoad1").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Select One</option>
				  <option value="Bottom Load" <%If (Not isNull((truckedit.Fields.Item("TankDslTnkLoad1").Value))) Then If ("Bottom Load" = CStr((truckedit.Fields.Item("TankDslTnkLoad1").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Bottom Load</option>
				  <option value="Side Load" <%If (Not isNull((truckedit.Fields.Item("TankDslTnkLoad1").Value))) Then If ("Side Load" = CStr((truckedit.Fields.Item("TankDslTnkLoad1").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Side Load</option>
				  <option value="Central Fill" <%If (Not isNull((truckedit.Fields.Item("TankDslTnkLoad1").Value))) Then If ("Central Fill" = CStr((truckedit.Fields.Item("TankDslTnkLoad1").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Central Fill</option>
				  <option value="Top Load" <%If (Not isNull((truckedit.Fields.Item("TankDslTnkLoad1").Value))) Then If ("Top Load" = CStr((truckedit.Fields.Item("TankDslTnkLoad1").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Top Load</option>
				  <%
While (NOT truckedit.EOF)
%>
				  <option value="<%=(truckedit.Fields.Item("TankDslTnkLoad1").Value)%>" <%If (Not isNull((truckedit.Fields.Item("TankDslTnkLoad1").Value))) Then If (CStr(truckedit.Fields.Item("TankDslTnkLoad1").Value) = CStr((truckedit.Fields.Item("TankDslTnkLoad1").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(truckedit.Fields.Item("TankDslTnkLoad1").Value)%></option>
				  <%
  truckedit.MoveNext()
Wend
If (truckedit.CursorType > 0) Then
  truckedit.MoveFirst
Else
  truckedit.Requery
End If
%>
                </select></font></td>
				<td width="58%" valign="top" rowspan="4" colspan="2"><p style="margin-left: 5px"><font face="Arial"><font size="2">  </font>
				<textarea name="TankDslTnkComm" rows="4" cols="46"><%=truckedit("TankDslTnkComm")%></textarea></font></td>
			</tr>
			<tr>
				<td width="15%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				<select name="TankDslTnk2">
				  <option value="" <%If (Not isNull((truckedit("TankDslTnk2")))) Then If ("" = CStr((truckedit("TankDslTnk2")))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Select One</option>
				  <option value="On Road" <%If (Not isNull((truckedit("TankDslTnk2")))) Then If ("On Road" = CStr((truckedit("TankDslTnk2")))) Then Response.Write("selected=""selected""") : Response.Write("")%>>On Road</option>
				  <option value="Off Road" <%If (Not isNull((truckedit("TankDslTnk2")))) Then If ("Off Road" = CStr((truckedit("TankDslTnk2")))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Off Road</option>
				  <option value="Gas" <%If (Not isNull((truckedit("TankDslTnk2")))) Then If ("Gas" = CStr((truckedit("TankDslTnk2")))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Gas</option>
				  <%
While (NOT truckedit.EOF)
%>
                  <option value="<%=(truckedit("TankDslTnk2"))%>" <%If (Not isNull((truckedit("TankDslTnk2")))) Then If (CStr(truckedit("TankDslTnk2")) = CStr((truckedit("TankDslTnk2")))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(truckedit.Fields.Item("TankDslTnk2").Value)%></option>
                  <%
  truckedit.MoveNext()
Wend
If (truckedit.CursorType > 0) Then
  truckedit.MoveFirst
Else
  truckedit.Requery
End If
%>
			    </select></font></td>
				<td width="13%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				  <input type="text" name="TankDslTnkGal2" value='<%=truckedit("TankDslTnkGal2")%>'></font></td>
				<td width="14%" valign="top"><p style="margin-left: 5px">
				<font face="Arial"><select name="TankDslTnkLoad2">
                  <option>Select One</option>
                  <option value="Bottom Load">Bottom Load</option>
                  <option value="Side Load">Side Load</option>
				  <option value="Central Fill">Central Fill</option>
				  <option value="Top Load">Top Load</option>
                </select></font></td>
			</tr>
			<tr>
				<td width="15%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				<select name="TankDslTnk3">
				  <option value="" <%If (Not isNull((truckedit.Fields.Item("TankDslTnk3").Value))) Then If ("" = CStr((truckedit.Fields.Item("TankDslTnk3").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Select One</option>
				  <option value="On Road" <%If (Not isNull((truckedit.Fields.Item("TankDslTnk3").Value))) Then If ("On Road" = CStr((truckedit.Fields.Item("TankDslTnk3").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>On Road</option>
				  <option value="Off Road" <%If (Not isNull((truckedit.Fields.Item("TankDslTnk3").Value))) Then If ("Off Road" = CStr((truckedit.Fields.Item("TankDslTnk3").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Off Road</option>
				  <option value="Gas" <%If (Not isNull((truckedit.Fields.Item("TankDslTnk3").Value))) Then If ("Gas" = CStr((truckedit.Fields.Item("TankDslTnk3").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Gas</option>
				  <%
While (NOT truckedit.EOF)
%>
                  <option value="<%=(truckedit.Fields.Item("TankDslTnk3").Value)%>" <%If (Not isNull((truckedit.Fields.Item("TankDslTnk3").Value))) Then If (CStr(truckedit.Fields.Item("TankDslTnk3").Value) = CStr((truckedit.Fields.Item("TankDslTnk3").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(truckedit.Fields.Item("TankDslTnk3").Value)%></option>
                  <%
  truckedit.MoveNext()
Wend
If (truckedit.CursorType > 0) Then
  truckedit.MoveFirst
Else
  truckedit.Requery
End If
%>
			    </select></font></td>
				<td width="13%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				  <input type="text" name="TankDslTnkGal3" value='<%=truckedit("TankDslTnkGal3")%>'></font></td>
				<td width="14%" valign="top" rowspan="2"><p style="margin-left: 5px">
				<font face="Arial">
				<select name="TankDslTnkLoad3">
                  <option>Select One</option>
                  <option value="Bottom Load">Bottom Load</option>
                  <option value="Side Load">Side Load</option>
				  <option value="Central Fill">Central Fill</option>
				  <option value="Top Load">Top Load</option>
                </select></font></td>
			</tr>
			<tr>
				<td width="15%" valign="top"><p style="margin-left: 5px"></td>
				<td width="13%" valign="top"><p style="margin-left: 5px"></td>
			</tr>
			<tr>
				<td colspan="5" valign="top"><hr size="4"></td>
			</tr>
			<tr>
				<td width="15%" valign="top"><p style="margin-left: 5px"><font face="Arial" size="2">Oil Products</font></td>
				<td width="13%" valign="top"><p style="margin-left: 5px"><font face="Arial" size="2">Sight Glass</font></td>
				<td width="14%" valign="top"><p style="margin-left: 5px"><font face="Arial" size="2">Load</font></td>
				<td width="15%" valign="top"><p style="margin-left: 5px"><font face="Arial" size="2">Gallons</font></td>
				<td width="43%"><p style="margin-left: 5px"><font face="Arial" size="2">Comments</font></td>
			</tr>
			<tr>
				<td width="15%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				  <input type="text" name="TankOilPrdcts1" size="20" value='<%=truckedit("TankOilPrdcts1")%>'></font></td>
			  <td width="13%" valign="top"><p style="margin-left: 5px">
				<font face="Arial"><select name="TankOilPrdctsSightGlass1">
                  <option>Select One</option>
                  <option value="Yes">Yes</option>
                  <option value="No">No</option>
                </select></font></td>
				<td width="14%" valign="top"><p style="margin-left: 5px">
				<font face="Arial"><select name="TankOilPrdctsLoad1">
                  <option>Select One</option>
                  <option value="Bottom Load">Bottom Load</option>
                  <option value="Side Load">Side Load</option>
                  <option value="Central Fill">Central Fill</option>
                  <option value="Top Load">Top Load</option>
                </select></font></td>
				<td width="15%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				  <input type="text" name="TankOilPrdctsGal1" size="20" value='<%=truckedit("TankOilPrdctsGal1")%>'></font></td>
				<td width="43%" valign="top" rowspan="8"><p style="margin-left: 5px">
				<font face="Arial">
				  <textarea name="TankOilPrdctsComm" rows="10" cols="37"><%=truckedit("TankOilPrdctsComm")%></textarea></font></td>
			</tr>
			<tr>
				<td width="15%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				  <input type="text" name="TankOilPrdcts2" size="20" value='<%=truckedit("TankOilPrdcts2")%>'></font></td>
			  <td width="13%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				<select name="TankOilPrdctsSightGlass2">
                  <option>Select One</option>
                  <option value="Yes">Yes</option>
                  <option value="No">No</option>
                </select></font></td>
				<td width="14%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				<select name="TankOilPrdctsLoad2">
                  <option>Select One</option>
                  <option value="Bottom Load">Bottom Load</option>
                  <option value="Side Load">Side Load</option>
                  <option value="Central Fill">Central Fill</option>
                  <option value="Top Load">Top Load</option>
                </select></font></td>
				<td width="15%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				  <input type="text" name="TankOilPrdctsGal2" size="20" value='<%=truckedit("TankOilPrdctsGal2")%>'></font></td>
			</tr>
			<tr>
				<td width="15%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				  <input type="text" name="TankOilPrdcts3" size="20" value='<%=truckedit("TankOilPrdcts3")%>'></font></td>
			  <td width="13%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				<select name="TankOilPrdctsSightGlass3">
                  <option>Select One</option>
                  <option value="Yes">Yes</option>
                  <option value="No">No</option>
                </select></font></td>
				<td width="14%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				<select name="TankOilPrdctsLoad3">
                  <option>Select One</option>
                  <option value="Bottom Load">Bottom Load</option>
                  <option value="Side Load">Side Load</option>
                  <option value="Central Fill">Central Fill</option>
                  <option value="Top Load">Top Load</option>
                </select></font></td>
				<td width="15%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				  <input type="text" name="TankOilPrdctsGal3" size="20" value='<%=truckedit("TankOilPrdctsGal3")%>'></font></td>
			</tr>
			<tr>
				<td width="15%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				  <input type="text" name="TankOilPrdcts4" size="20" value='<%=truckedit("TankOilPrdcts4")%>'></font></td>
			  <td width="13%" valign="top"><p style="margin-left: 5px"><font face="Arial">
				  <select name="TankOilPrdctsSightGlass4">
                    <option>Select One</option>
                    <option value="Yes">Yes</option>
                    <option value="No">No</option>
                  </select><font size="2"> </font>
			  </font></td>
				<td width="14%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				<select name="TankOilPrdctsLoad4">
                  <option>Select One</option>
                  <option value="Bottom Load">Bottom Load</option>
                  <option value="Side Load">Side Load</option>
                  <option value="Central Fill">Central Fill</option>
                  <option value="Top Load">Top Load</option>
                </select></font></td>
				<td width="15%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				  <input type="text" name="TankOilPrdctsGal4" size="20" value='<%=truckedit("TankOilPrdctsGal4")%>'></font></td>
			</tr>
			<tr>
				<td width="15%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				  <input type="text" name="TankOilPrdcts5" size="20" value='<%=truckedit("TankOilPrdcts5")%>'></font></td>
			  <td width="13%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				<select name="TankOilPrdctsSightGlass5">
                  <option>Select One</option>
                  <option value="Yes">Yes</option>
                  <option value="No">No</option>
                </select></font></td>
				<td width="14%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				<select name="TankOilPrdctsLoad5">
                  <option>Select One</option>
                  <option value="Bottom Load">Bottom Load</option>
                  <option value="Side Load">Side Load</option>
                  <option value="Central Fill">Central Fill</option>
                  <option value="Top Load">Top Load</option>
                </select></font></td>
				<td width="15%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				  <input type="text" name="TankOilPrdctsGal5" size="20" value='<%=truckedit("TankOilPrdctsGal5")%>'></font></td>
			</tr>
			<tr>
				<td width="15%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				  <input type="text" name="TankOilPrdcts6" size="20" value='<%=truckedit("TankOilPrdcts6")%>'></font></td>
			  <td width="13%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				<select name="TankOilPrdctsSightGlass6">
                  <option>Select One</option>
                  <option value="Yes">Yes</option>
                  <option value="No">No</option>
                </select></font></td>
				<td width="14%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				<select name="TankOilPrdctsLoad6">
                  <option>Select One</option>
                  <option value="Bottom Load">Bottom Load</option>
                  <option value="Side Load">Side Load</option>
                  <option value="Central Fill">Central Fill</option>
                  <option value="Top Load">Top Load</option>
                </select></font></td>
				<td width="15%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				  <input type="text" name="TankOilPrdctsGal6" size="20" value='<%=truckedit("TankOilPrdctsGal6")%>'></font></td>
			</tr>
			<tr>
				<td width="15%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				  <input type="text" name="TankOilPrdcts7" size="20" value='<%=truckedit("TankOilPrdcts7")%>'></font></td>
			  <td width="13%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				<select name="TankOilPrdctsSightGlass7">
                  <option>Select One</option>
                  <option value="Yes">Yes</option>
                  <option value="No">No</option>
                </select></font></td>
				<td width="14%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				<select name="TankOilPrdctsLoad7">
                  <option>Select One</option>
                  <option value="Bottom Load">Bottom Load</option>
                  <option value="Side Load">Side Load</option>
                  <option value="Central Fill">Central Fill</option>
                  <option value="Top Load">Top Load</option>
                </select></font></td>
				<td width="15%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				  <input type="text" name="TankOilPrdctsGal7" size="20" value='<%=truckedit("TankOilPrdctsGal7")%>'></font></td>
			</tr>
			<tr>
				<td width="15%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				  <input type="text" name="TankOilPrdcts8" size="20" value='<%=truckedit("TankOilPrdcts8")%>'></font></td>
			  <td width="13%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				<select name="TankOilPrdctsSightGlass8">
                  <option>Select One</option>
                  <option value="Yes">Yes</option>
                  <option value="No">No</option>
                </select></font></td>
				<td width="14%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				<select name="TankOilPrdctsLoad8">
                  <option>Select One</option>
                  <option value="Bottom Load">Bottom Load</option>
                  <option value="Side Load">Side Load</option>
                  <option value="Central Fill">Central Fill</option>
                  <option value="Top Load">Top Load</option>
                </select></font></td>
				<td width="15%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				  <input type="text" name="TankOilPrdctsGal8" size="20" value='<%=truckedit("TankOilPrdctsGal8")%>'></font></td>
			</tr>
			<tr>
				<td colspan="5" valign="top"> </td>
			</tr>
			<tr>
				<td colspan="5" valign="top"><hr size="4"></td>
			</tr>
			<tr>
				<td width="15%" valign="top"><p style="margin-left: 5px"><font face="Arial" size="2">Coolant</font></td>
				<td width="13%" valign="top"><p style="margin-left: 5px"><font face="Arial" size="2">Gallons</font></td>
				<td width="14%" valign="top"><p style="margin-left: 5px"><font face="Arial" size="2">Comments</font></td>
				<td width="15%" valign="top"> </td>
				<td width="43%"> </td>
			</tr>
			<tr>
				<td width="15%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				  <input type="text" name="TankCoolant1" size="20" value='<%=truckedit("TankCoolant1")%>'></font></td>
				<td width="13%" valign="top"><p style="margin-left: 5px">
				<font face="Arial">
				  <input type="text" name="TankCoolantGal1&q