LaPine Trucks - Dump Trailer-Steel

<%@ Language=VBScript %> <% 'Determine the user's browser - if they use Netscape - we don't support because we use vbScript with our ASP Pages ' All other browsers, such as AOL, I.E., etc., are supported. Dim Browser Browser = Request.ServerVariables("HTTP_USER_AGENT") 'If Instr(Browser, "MSIE") = false then ' Response.Write("WARNING

This page uses functions that browsers other than Internet Explorer (version 3 or higher) do not understand.
To view this page correctly, please use your Internet Explorer browser (version 3 or higher).

If you do not have Internet Explorer, you can download it for free here: http://www.microsoft.com/windows/ie/default.htm

Thank you for trying our site. We hope to see you again after you download the free Internet Explorer browser.

Regards,
The LapineTrucks.com staff") 'Response.end 'End if 'Define variables that we are going to use to pull the data out of our Inventory Table for ' all Lowboy Trailers in stock (not sold) Dim objConn, objRS, strConn, strSQL Dim imgpath 'Define the imgpath imgpath = "/images" 'These variables below are going to be used to return all the records Dim TotalReturned Dim blnfound 'First, define the strSQL dim order, sort order = "DESC" sort = "Category2" if trim(Request.QueryString ("sort")) <>"" or trim(Request.QueryString ("order"))<>"" then sort = Request.QueryString ("sort") order= Request.QueryString ("order") end if 'First, define the strSQL strSQL = "Select * from LapineInventoryData3 where ProductLine like 'DPS%' and sold='N' order by " & sort & " " & order if order="ASC" then order = "desc" else order= "ASC" end if 'strSQL = "Select * from LapineInventoryData3 where ProductLine like 'DPS%' and sold='N'" 'Set up for connection to SQL Server Set objConn = Server.CreateObject ("ADODB.Connection") Set objRS = Server.CreateObject ("ADODB.Recordset") 'Make the actual connection to SQL Server here %> <% 'Open the connection and execute the strSQL objConn.Open (strConn) Set objRS = objConn.Execute(strSQL) 'Get the record count now If not (objRS.BOF and objRS.EOF)then TotalReturned = 0 Do while not objRS.EOF 'As long as total returned is not at the end of the file (empty) then increment the records to be returned TotalReturned = TotalReturned+1 objRS.MoveNext 'Loop through until all values are found for the given search Loop objRS.MoveFirst blnfound = True Else 'If no records were found in the loop then nothing will be returned. blnFound = False End if 'Close the connection out at the end of this page %>
LaPine Trucks - Dump Trailer-Steel

Dump Trailer - Steel

<%If blnFound then%>

There Were <%=TotalReturned%> Record(s) Found.
Click on the Stock Number or Picture To See More Pictures and Details!

LaPine Trucks Home Page

<%End If%> width="600" <%Else%> width="600" <%End If%>> <%End If dim myColor myColor="#FFFFFF" %> <% 'Execute until the end of the file is reach when searching through the recordsets for various product lines Do Until objRS.EOF %> > <% if myColor="#D3D3D3" then mycolor="#FFFFFF" else myColor="#D3D3D3" end if %> <% objRS.MoveNext found = found +1 Loop 'Close out the recordset connection to free up memory on the server objRS.Close Set objRS = Nothing 'Close out the actual connection to SQL Server table objConn.Close Set objConn = Nothing %>

Stock#	Year	Make	Model
&ProductType=<%=objRS("ProductType")%>"><%=objRS("Category4")%>	<%=objRS("Category1")%>	<%=objRS("Category2")%>	<%=objRS("Category3")%>	> &ProductType=<%=objRS("ProductType")%>"> <% 'Give the user the ability to click on the image and send them to that Stock#'s Detail page. Response.Write("") %>

<%If found < 1 then%>

Sorry, we are currently out of stock for Dump Trailers - Steel.
Select An Option below to continue:

<%End If%> <%If blnFound then%> Go To The Top Of This Page
Go To The LaPine Trucks Home Page <%End If%>