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 %> <% 'This is the server side include file for the old lapinetr username and password. ' It has been changed to the following below 'Date Created: 9/10/02 'Date Modified: 'Created By: Steve C. 'Email: Webmaster@LaPineTrucks.com 'Company: LaPine Trucks (www.LaPineTrucks.com) 'This connection should be used for all tables created (that don't involve the Inventory Table) for sure after: 9/10/02 strConn = "driver={SQL Server};;server=10.100.6.80\EXTREMESQL;uid=lapine;pwd=qNk4Ha2b;database=lapinetrucks" %> <% '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 %>

Home Page | Member Sign-Up | Contact Us | Site Map

Search Inventory | Specials | Lowboys | Sell Us Trucks | Sell Us Trailers | Financing

Tell Us What You Want | Exporting | Re-Marketing | Employment | About Us | Feedback

<% 'The purpose of this include file is to capture the URL of the current page and to display the - '"E-mail This Page To A Friend 'Date Created: 7/12/02 'Date Modified: 3/22/05 'Get the URL of this page Dim UrlFileName 'UrlFileName = Request.ServerVariables("Server_Name") 'This above will return: www.lapinetrucks.com UrlFileName = Request.ServerVariables ("URL") 'This above will return the file extension name (after the .com part) %>

Email This Page To A Friend

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%> <% 'Get the URL of this page Dim UrlFileName1 'UrlFileName = Request.ServerVariables("Server_Name") 'This above will return: www.lapinetrucks.com UrlFileName1 = Request.ServerVariables ("URL") 'This above will return the file extension name (after the .com part) %>

Email This Page To A Friend

Home Page \| Member Sign-Up \| Contact Us \| Site Map
Search Inventory \| Specials \| Lowboys \| Sell Us Trucks \| Sell Us Trailers \| Financing
Tell Us What You Want \| Exporting \| Re-Marketing \| Employment \| About Us \| Feedback
Email Us Directly At - Save@Lapinetrucks.com Email Comments about our Website At - Webmaster@LapineTrucks.com This Web Page is best viewed with: The content, design, code, and layout is the Copyright © of LaPine Truck Sales & Equipment 1997 - 2002. All Rights Reserved. Reproduction in whole or part in any form or medium without the express written permission of LaPineTrucks.com is prohibited.