<% ' FP_ASP -- ASP Automatically generated by a Frontpage Component. Do not Edit. FP_CharSet = "windows-1252" FP_CodePage = 1252 %> View Plantlocator Weekly Magazine online - page turn special

 

Focus Business Media Logo  magazines at work
Home About Us Magazines Websites Newsroom Contact  Find Us  Careers  Downloads

 

View Plantlocator Magazine Online

 

 

Click on one of the magazine covers below to read a lifelike 'page turn' version of the printed Plantlocator magazine.  Packed with plant & equipment for sale you can see the details of the individual items of plant for sale.  Search Plantlocator online for  a database of new and used plant and equipment for sale - including those advertised in Plantlocator magazine.


The magazine above is an example only - Click on the issue number below to see the most recent example

" end if fp_fError = True Else ' Check for the no-record case if fp_rs.State <> 1 then fp_fError = True Response.Write fp_sNoRecords ElseIf fp_rs.EOF And fp_rs.BOF Then fp_fError = True Response.Write fp_sNoRecords end if end if end if ' determine whether or not provider supports Absolute Positioning if not fp_fError then if IsObject(fp_rs) and not(fp_rs.Supports(&H00004000)) then fp_iPageSize = 0 fp_fShowNavbar = False end if end if ' move to correct position in result set if not fp_fError then if fp_iPageSize > 0 then fp_iAbsPage = 1 fp_sVal = Session(fp_sEnvKey) if fp_sVal <> "" then fp_iAbsPage = CInt(fp_sVal) end if fp_rs.PageSize = fp_iPageSize if fp_iAbsPage > fp_rs.PageCount then fp_iAbsPage = fp_rs.PageCount fp_rs.AbsolutePage = fp_iAbsPage if fp_rs.PageCount = 1 then fp_fShowNavbar = False select case fp_sMoveType case "" ' do nothing case fp_sFirstLabel fp_rs.AbsolutePage = 1 case fp_sPrevLabel if fp_rs.AbsolutePage > 1 then fp_rs.AbsolutePage = fp_rs.AbsolutePage - 1 case fp_sNextLabel if fp_rs.AbsolutePage < fp_rs.PageCount then fp_rs.AbsolutePage = fp_rs.AbsolutePage + 1 case fp_sLastLabel fp_rs.AbsolutePage = fp_rs.PageCount case else ' do nothing end select fp_iAbsPage = fp_rs.AbsolutePage Session(fp_sEnvKey) = fp_iAbsPage end if end if if fp_fError then fp_fShowNavbar = False fp_iCount = 0 Do if fp_fError then exit do if fp_rs.EOF then exit do if fp_iPageSize > 0 And fp_iCount >= fp_rs.PageSize then exit do if fp_iMaxRecords > 0 And fp_iCount >= fp_iMaxRecords then ' MaxRecords didn't work; exit loop fp_fShowNavbar = False exit do end if %>

Plantlocator Weekly Magazine Issue No:" target="_blank" onclick="pageTracker._trackEvent('Plantlocator','<%=FP_FieldLink(fp_rs,"IssueNo")%>');"><%=FP_FieldVal(fp_rs,"IssueNo")%>

" target="_blank"onclick="pageTracker._trackEvent('Plantlocator','<%=FP_FieldLink(fp_rs,"IssueNo")%>');">" alt="Plantlocator Magazine - Click to view">

Published on: <%=FP_FieldVal(fp_rs,"Date")%>


<% ' Close the loop iterating records fp_iCount = fp_iCount + 1 fp_rs.MoveNext Loop if fp_fShowNavbar then if fp_fTableFormat then if fp_iDisplayCols < 1 then fp_iDisplayCols = 16 Response.Write "" end if end if if IsObject(fp_rs) then FP_Close(fp_rs) FP_Close(fp_conn) end if set fp_dictInputs = Nothing set fp_rs = Nothing set fp_cmd = Nothing set fp_conn = Nothing %>
<% Function FP_FieldVal(rs, fldname) FP_FieldVal = Server.HTMLEncode(FP_Field(rs, fldname)) if FP_FieldVal = "" then FP_FieldVal = " " End Function Function FP_Field(rs, fldname) If Not IsEmpty(rs) And Not (rs Is Nothing) and Not IsNull(rs(fldname)) Then Select Case rs(fldname).Type Case 128, 204, 205 ' adBinary, adVarBinary, adLongVarBinary FP_Field = "[#BINARY#]" Case 201, 203 ' adLongVarChar, adLongVarWChar if rs(fldname).DefinedSize > 255 then ' check for Access hyperlink fields (only absolute http links) fp_strVal = rs(fldname) fp_idxHash1 = InStr(LCase(fp_strVal),"#http://") if fp_idxHash1 > 0 then fp_idxHash2 = InStr(fp_idxHash1+1,fp_strVal,"#") if fp_idxHash2 > 0 then ' this is an Access hyperlink; extract the URL part fp_strVal = Mid(fp_strVal,fp_idxHash1+1) if Right(fp_strVal,1) = "#" then fp_strVal = Left(fp_strVal,Len(fp_strVal)-1) end if end if end if FP_Field = fp_strVal else FP_Field = rs(fldname) end if Case Else FP_Field = rs(fldname) End Select Else FP_Field = "" End If End Function Function FP_FieldHTML(rs, fldname) FP_FieldHTML = Server.HTMLEncode(FP_Field(rs, fldname)) End Function Function FP_FieldURL(rs, fldname) FP_FieldURL = Server.URLEncode(FP_Field(rs, fldname)) End Function Function FP_FieldLink(rs, fldname) FP_FieldLink = Replace(FP_Field(rs, fldname), " ", "%20") End Function Sub FP_OpenConnection(oConn, sAttrs, sUID, sPWD, fMSAccessReadOnly) Dim sTmp Dim sConnStr Dim fIsAccessDriver fIsAccessDriver = (InStr(LCase(sAttrs), "microsoft access driver") > 0) sConnStr = FP_RemoveDriverWithDSN(sAttrs) sTmp = sConnStr On Error Resume Next If fMSAccessReadOnly And fIsAccessDriver Then sTmp = sTmp & ";Exclusive=1;ReadOnly=1" Err.Clear oConn.Open sTmp, sUID, sPWD If Err.Description = "" Then Exit Sub End If Err.Clear oConn.Open sConnStr, sUID, sPWD End Sub Function FP_RemoveDriverWithDSN(sAttrs) FP_RemoveDriverWithDSN = sAttrs sDrv = "driver=" sDSN = "dsn=" sLC = LCase(sAttrs) if InStr(sLC, sDSN) < 1 then exit function idxFirst = InStr(sLC, sDrv) if idxFirst < 1 then exit function idxBeg = idxFirst + Len(sDrv) if Mid(sLC,idxBeg,1) = "{" then idxEnd = InStr(idxBeg, sLC, "}") if idxEnd > 0 and Mid(sLC,idxEnd+1,1) = ";" then idxEnd = idxEnd + 1 end if else idxEnd = InStr(idxBeg, sLC, ";") end if if idxEnd < 1 then idxEnd = Len(sLC) FP_RemoveDriverWithDSN = Left(sAttrs,idxFirst-1) & Mid(sAttrs,idxEnd+1) End Function Sub FP_OpenRecordset(rs) On Error Resume Next rs.Open End Sub Function FP_ReplaceQuoteChars(sQry) Dim sIn Dim sOut Dim idx sIn = sQry sOut = "" idx = InStr(sIn, "%%") Do While (idx > 0) sOut = sOut & Left(sIn, idx - 1) sIn = Mid(sIn, idx + 2) if (Left(sIn,1) = "%") And (Left(sIn,2) <> "%%") then sIn = Mid(sIn, 2) sOut = sOut & "%" end if sOut = sOut & "::" idx = InStr(sIn, "%%") if idx > 0 then sOut = sOut & Left(sIn, idx - 1) sIn = Mid(sIn, idx + 2) sOut = sOut & "::" if (Left(sIn,1) = "%") And (Left(sIn,2) <> "%%") then sIn = Mid(sIn, 2) sOut = sOut & "%" end if end if idx = InStr(sIn, "%%") Loop sOut = sOut & sIn FP_ReplaceQuoteChars = sOut End Function Sub FP_Close(obj) On Error Resume Next obj.Close End Sub Sub FP_SetCursorProperties(rs) On Error Resume Next rs.CursorLocation = 3 ' adUseClient rs.CursorType = 3 ' adOpenStatic End Sub %> <% fp_sQry="SELECT * FROM TBLVanFinder ORDER BY IssueNo DESC" fp_sDefault="" fp_sNoRecords="No records returned." fp_sDataConn="Database2" fp_iMaxRecords=256 fp_iCommandType=1 fp_iPageSize=10 fp_fTableFormat=False fp_fMenuFormat=False fp_sMenuChoice="ID" fp_sMenuValue="ID" fp_iDisplayCols=5 fp_fCustomQuery=False BOTID=0 fp_iRegion=BOTID %> <% ' determine whether or not to provide navigation controls if fp_iPageSize > 0 then fp_fShowNavbar = True else fp_fShowNavbar = False end if fp_sPagePath = Request.ServerVariables("PATH_INFO") fp_sEnvKey = fp_sPagePath & "#fpdbr_" & fp_iRegion fp_sFormName = "fpdbr_" & CStr(fp_iRegion) fp_sFormKey = fp_sFormName & "_PagingMove" fp_sInputs = fp_sDefault fp_sFirstLabel = " |< " fp_sPrevLabel = " < " fp_sNextLabel = " > " fp_sLastLabel = " >| " fp_sDashLabel = " -- " if not IsEmpty(Request(fp_sFormKey)) then fp_sMoveType = Request(fp_sFormKey) else fp_sMoveType = "" end if fp_iCurrent=1 fp_fError=False fp_bBlankField=False Set fp_dictInputs = Server.CreateObject("Scripting.Dictionary") fp_sQry = FP_ReplaceQuoteChars(fp_sQry) ' replace any input parameters in query string Do While (Not fp_fError) And (InStr(fp_iCurrent, fp_sQry, "::") <> 0) ' found a opening quote, find the close quote fp_iStart = InStr(fp_iCurrent, fp_sQry, "::") fp_iEnd = InStr(fp_iStart + 2, fp_sQry, "::") If fp_iEnd = 0 Then fp_fError = True Response.Write "Database Results Error: mismatched parameter delimiters" Else fp_sField = Mid(fp_sQry, fp_iStart + 2, fp_iEnd - fp_iStart - 2) fp_sValue = Request.Form(fp_sField) if len(fp_sValue) = 0 then fp_sValue = Request.QueryString(fp_sField) ' if the named form field doesn't exist, make a note of it If (len(fp_sValue) = 0) Then fp_iStartField = InStr(fp_sDefault, fp_sField & "=") if fp_iStartField > 0 then fp_iStartField = fp_iStartField + len(fp_sField) + 1 fp_iEndField = InStr(fp_iStartField,fp_sDefault,"&") if fp_iEndField > 0 then fp_sValue = Mid(fp_sDefault,fp_iStartField,fp_iEndField - fp_iStartField) else fp_sValue = Mid(fp_sDefault,fp_iStartField) end if end if End If ' remember names and values used in query if not fp_dictInputs.Exists(fp_sField) then fp_dictInputs.Add fp_sField, fp_sValue end if ' this next finds the named form field value, and substitutes in ' doubled single-quotes for all single quotes in the literal value ' so that SQL doesn't get confused by seeing unpaired single-quotes If (Mid(fp_sQry, fp_iStart - 1, 1) = """") Then fp_sValue = Replace(fp_sValue, """", """""") ElseIf (Mid(fp_sQry, fp_iStart - 1, 1) = "'") Then fp_sValue = Replace(fp_sValue, "'", "''") End If If (len(fp_sValue) = 0) Then fp_bBlankField = True fp_sQry = Left(fp_sQry, fp_iStart - 1) & fp_sValue & Right(fp_sQry, Len(fp_sQry) - fp_iEnd - 1) ' Fixup the new current position to be after the substituted value fp_iCurrent = fp_iStart + Len(fp_sValue) End If Loop ' establish connection If Not fp_fError Then if Application(fp_sDataConn & "_ConnectionString") = "" then Err.Description = "The database connection named '" & fp_sDataConn & "' is undefined.

" Err.Description = Err.Description & "This problem can occur if:
" Err.Description = Err.Description & "* the connection has been removed from the web
" Err.Description = Err.Description & "* the file 'global.asa' is missing or contains errors
" Err.Description = Err.Description & "* the root folder does not have Scripting permissions enabled
" Err.Description = Err.Description & "* the web is not marked as an Application Root
" fp_fError = True end if if Not fp_fError then set fp_conn = Server.CreateObject("ADODB.Connection") fp_conn.ConnectionTimeout = Application(fp_sDataConn & "_ConnectionTimeout") fp_conn.CommandTimeout = Application(fp_sDataConn & "_CommandTimeout") fp_sConn = Application(fp_sDataConn & "_ConnectionString") fp_sUid = Application(fp_sDataConn & "_RuntimeUserName") fp_sPwd = Application(fp_sDataConn & "_RuntimePassword") Err.Clear FP_OpenConnection fp_conn, fp_sConn, fp_sUid, fp_sPwd, Not(fp_fCustomQuery) if Err.Description <> "" then fp_fError = True end if if Not fp_fError then set fp_cmd = Server.CreateObject("ADODB.Command") fp_cmd.CommandText = fp_sQry fp_cmd.CommandType = fp_iCommandType set fp_cmd.ActiveConnection = fp_conn set fp_rs = Server.CreateObject("ADODB.Recordset") set fp_rs.Source = fp_cmd If fp_iCommandType = 4 Then fp_cmd.Parameters.Refresh Do Until Len(fp_sInputs) = 0 fp_iLoc = InStr(fp_sInputs,"=") if fp_iLoc = 0 then exit do fp_sKey = Left(fp_sInputs,fp_iLoc - 1) fp_sInputs = Mid(fp_sInputs,fp_iLoc + 1) fp_iLoc = InStr(fp_sInputs,"&") if fp_iLoc = 0 then fp_sInpVal = fp_sInputs fp_sInputs = "" else fp_sInpVal = Left(fp_sInputs,fp_iLoc - 1) fp_sInputs = Mid(fp_sInputs,fp_iLoc + 1) end if fp_sVal = Request.Form(fp_sKey) if len(fp_sVal) = 0 then fp_sVal = Request.QueryString(fp_sKey) if len(fp_sVal) = 0 then fp_sVal = fp_sInpVal fp_pType = fp_cmd.Parameters(fp_sKey).Type select case fp_pType case 129, 200, 201, 130, 202, 203 ' adChar, adVarChar, adLongVarChar, adWChar, adVarWChar, adLongVarWChar fp_cmd.Parameters(fp_sKey).Size = Len(fp_sVal) + 1 case else ' do nothing end select ' remember names and values used in query if not fp_dictInputs.Exists(fp_sKey) then fp_dictInputs.Add fp_sKey, fp_sVal end if fp_cmd.Parameters(fp_sKey) = fp_sVal Loop End If If fp_iMaxRecords <> 0 Then fp_rs.MaxRecords = fp_iMaxRecords FP_SetCursorProperties(fp_rs) FP_OpenRecordset(fp_rs) end if If Err.Description <> "" Then if fp_fTableFormat then Response.Write "
" end if Response.Write "" Response.Write "Database Results Error
" if Not fp_fError then Response.Write "Description: " & Err.Description & "
" Response.Write "Number: " & Err.Number & " (0x" & Hex(Err.Number) & ")
" Response.Write "Source: " & Err.Source & "
" else Response.Write Err.Description end if if fp_bBlankField Then Response.Write "
One or more form fields were empty." Response.Write " You should provide default values for all form fields that are used in the query." End If Response.Write "
" if fp_fTableFormat then Response.Write "
" end if Response.Write "
" if fp_iAbsPage > 1 then fp_sType = "Submit" fp_sLabel = fp_sFirstLabel else fp_sType = "Button" fp_sLabel = fp_sDashLabel end if Response.Write "" if fp_iAbsPage > 1 then fp_sLabel = fp_sPrevLabel Response.Write "" if fp_iAbsPage < fp_rs.PageCount then fp_sType = "Submit" fp_sLabel = fp_sNextLabel else fp_sType = "Button" fp_sLabel = fp_sDashLabel end if Response.Write "" if fp_iAbsPage < fp_rs.PageCount then fp_sLabel = fp_sLastLabel Response.Write "" Response.Write " [" & fp_iAbsPage & "/" & fp_rs.PageCount & "]" ' remember names and values used in query for each fp_sKey in fp_dictInputs fp_sVal = fp_dictInputs.Item(fp_sKey) Response.Write "" next Response.Write "
" if fp_fTableFormat then Response.Write "
Download Plantlocator media pack and rate card

More information

Subscribe to Plantlocator Magazine  

Plantlocator Magazine from Focus Business Media Limited
 

Focus Business Media Limited

100 Bridge Street, Peterborough, PE1 1DY 

T: 01733 566933 F: 01733 566776  contact us  sitemap

Trucklocator LogoTrucklocator image
Plantlocator logoPlantlocator image