navigation
a webmaster learning community
     Home    Register     Search      Help      Login    
Sponsors

Shopping Cart Software
Ecommerce software integrated into Frontpage, Dreamweaver and Golive templates. No monthly fees and available in ASP and PHP versions.

Website Templates
We also have a wide selection of Dreamweaver, Expression Web and Frontpage templates as well as webmaster tools and CSS layouts.

Frontpage website templates
Creative Website Templates for FrontPage, Dreamweaver, Flash, SwishMax

Search Forums
 

Advanced search
Recent Posts

 Todays Posts
 Most Active posts
 Posts since last visit
 My Recent Posts
 Mark posts read

Microsoft MVP

 

ASP page not displaying all the data

 
View related threads: (in this forum | in all forums)

Logged in as: Guest
Users viewing this topic: none
Printable Version 

All Forums >> Web Development >> ASP and Database >> ASP page not displaying all the data 		Page: [1] 2   next >   >>
 
Joe Kauffman

 

Posts: 204
Joined: 6/9/2004
Status: offline

  		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

_____________________________

Regards,

Joe Kauffman
Spooky

 

Posts: 26597
Joined: 11/11/1998
From: Middle Earth
Status: offline

  		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?

_____________________________

If you arent part of the solution, then there is good money to be made prolonging the problem

§þ:)k¥


(in reply to Joe Kauffman)
Joe Kauffman

 

Posts: 204
Joined: 6/9/2004
Status: offline

  		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.

_____________________________

Regards,

Joe Kauffman

(in reply to Spooky)
Spooky

 

Posts: 26597
Joined: 11/11/1998
From: Middle Earth
Status: offline

  		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?

_____________________________

If you arent part of the solution, then there is good money to be made prolonging the problem

§þ:)k¥


(in reply to Joe Kauffman)
ThomasMobley

 

Posts: 89
Joined: 9/8/2007
Status: offline

  		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.

(in reply to Spooky)
Joe Kauffman

 

Posts: 204
Joined: 6/9/2004
Status: offline

  		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.

_____________________________

Regards,

Joe Kauffman

(in reply to ThomasMobley)
rdouglass

 

Posts: 9167
From: Biddeford, ME USA
Status: offline

  		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.

_____________________________

Don't take you're eye off your final destination.

ASP Checkbox Function Tutorial.

(in reply to Joe Kauffman)
Joe Kauffman

 

Posts: 204
Joined: 6/9/2004
Status: offline

  		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.

_____________________________

Regards,

Joe Kauffman

(in reply to rdouglass)
Spooky

 

Posts: 26597
Joined: 11/11/1998
From: Middle Earth
Status: offline

  		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?

_____________________________

If you arent part of the solution, then there is good money to be made prolonging the problem

§þ:)k¥


(in reply to Joe Kauffman)
Joe Kauffman

 

Posts: 204
Joined: 6/9/2004
Status: offline

  		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....

_____________________________

Regards,

Joe Kauffman

(in reply to Spooky)
Spooky

 

Posts: 26597
Joined: 11/11/1998
From: Middle Earth
Status: offline

  		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?

_____________________________

If you arent part of the solution, then there is good money to be made prolonging the problem

§þ:)k¥


(in reply to Joe Kauffman)
Joe Kauffman

 

Posts: 204
Joined: 6/9/2004
Status: offline

  		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>


_____________________________

Regards,

Joe Kauffman

(in reply to Spooky)
Spooky

 

Posts: 26597
Joined: 11/11/1998
From: Middle Earth
Status: offline

  		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")%>">

_____________________________

If you arent part of the solution, then there is good money to be made prolonging the problem

§þ:)k¥


(in reply to Joe Kauffman)
Joe Kauffman

 

Posts: 204
Joined: 6/9/2004
Status: offline

  		RE: ASP page not displaying all the data - 10/1/2007 18:21:21   
Yes.

_____________________________

Regards,

Joe Kauffman

(in reply to Spooky)
William Lee

 

Posts: 1041
Joined: 1/25/2002
From: Singapore
Status: offline

  		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")%>

(in reply to Joe Kauffman)
Joe Kauffman

 

Posts: 204
Joined: 6/9/2004
Status: offline

  		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.

_____________________________

Regards,

Joe Kauffman

(in reply to William Lee)
William Lee

 

Posts: 1041
Joined: 1/25/2002
From: Singapore
Status: offline

  		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.



Thumbnail Image
:)

Attachment (1)

< Message edited by William Lee -- 10/2/2007 1:11:46 >

(in reply to Joe Kauffman)
Joe Kauffman

 

Posts: 204
Joined: 6/9/2004
Status: offline

  		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.


Thumbnail Image
:)

Attachment (1)

_____________________________

Regards,

Joe Kauffman

(in reply to William Lee)
William Lee

 

Posts: 1041
Joined: 1/25/2002
From: Singapore
Status: offline

  		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.

_____________________________

William Lee


(in reply to Joe Kauffman)
Joe Kauffman

 

Posts: 204
Joined: 6/9/2004
Status: offline

  		RE: ASP page not displaying all the data - 10/2/2007 12:40:32   
Sorry, let me try it again.


Thumbnail Image
:)

Attachment (1)

_____________________________

Regards,

Joe Kauffman

(in reply to William Lee)
William Lee

 

Posts: 1041
Joined: 1/25/2002
From: Singapore
Status: offline

  		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


(in reply to Joe Kauffman)
William Lee

 

Posts: 1041
Joined: 1/25/2002
From: Singapore
Status: offline

  		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

Thumbnail Image
:)

Attachment (1)

< Message edited by William Lee -- 10/2/2007 13:11:00 >

_____________________________

William Lee


(in reply to Joe Kauffman)
William Lee

 

Posts: 1041
Joined: 1/25/2002
From: Singapore
Status: offline

  		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?

_____________________________

William Lee


(in reply to William Lee)
Joe Kauffman

 

Posts: 204
Joined: 6/9/2004
Status: offline

  		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.

_____________________________

Regards,

Joe Kauffman

(in reply to William Lee)
Spooky

 

Posts: 26597
Joined: 11/11/1998
From: Middle Earth
Status: offline

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

_____________________________

If you arent part of the solution, then there is good money to be made prolonging the problem

§þ:)k¥


(in reply to Joe Kauffman)
Joe Kauffman

 

Posts: 204
Joined: 6/9/2004
Status: offline

  		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">