<% If NOT Request.QueryString("mode") = "" Then 'Display the HTML table with the results status of the search or what type of search it is Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & "

" Response.Write vbCrLf & " " Response.Write vbCrLf & " " 'Display that the URL is randomly generated If Request.QueryString("submit") = "Random Search" Then Response.Write vbCrLf & " " 'Display that we are showing a page of the latest URL's indexed ElseIf Request.QueryString("mode") = "new" Then Response.Write vbCrLf & " " 'Display that one of the words entered was to short ElseIf blnSearchWordLenthOK = False Then Response.Write vbCrLf & " " 'Display that there where no matching records found ElseIf rsSearchResults.EOF Then Response.Write vbCrLf & " " 'Else Search went OK so display how many records found Else Response.Write vbCrLf & " " End If 'Close the HTML table with the search status Response.Write vbCrLf & " " Response.Write vbCrLf & "

Random Search for " & strSearchKeywords & ".

The " & intRecordsPerPage & " latest URL's Indexed.

Searched the web for " & strSearchKeywords & ". One of the words searched is to short.

Searched the web for " & strSearchKeywords & ". Sorry, no results found.

Searched the web for " & strSearchKeywords & ". Displaying Results " & intRecordDisplayFrom & " - " & intRecordDisplayedTo & " of " & lngTotalRecordsFound & ".

" Response.Write vbCrLf & "

" 'Display the various results 'HTML table to display the search results or an error if there are no results Response.Write vbCrLf & "
" & vbCrLf Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & "

" 'Display error message if one of the words is to short If blnSearchWordLenthOK = False And NOT Request.QueryString("mode") = "new" Then 'Write HTML displaying the error Response.Write vbCrLf & " Your Search - " & strSearchKeywords & " - Contained a word with " & intMinuiumSearchWordLength & " letters or less, this is to short to search." Response.Write vbCrLf & "

" Response.Write vbCrLf & " Suggestions:" Response.Write vbCrLf & "
" Response.Write vbCrLf & "

Try longer keywords.
Make sure all words are spelled correctly.
Try different keywords.
Try more general keywords.

" 'If no search results found then show an error message ElseIf rsSearchResults.EOF Then 'Write HTML displaying the error Response.Write vbCrLf & " Your Search - " & strSearchKeywords & " - did not match any documents." Response.Write vbCrLf & "

" Response.Write vbCrLf & " Suggestions:" Response.Write vbCrLf & "
" Response.Write vbCrLf & "

Make sure all words are spelled correctly.
Try different keywords.
Try more general keywords.
Try fewer keywords.

" Else 'For....Next Loop to display the results from the database For intRecordLoopCounter = 1 to intRecordsPerPage 'If there are no records left to display then exit loop If rsSearchResults.EOF Then Exit For 'Display the details of the URLs found Response.Write vbCrLf & " " & rsSearchResults("Title") & "" Response.Write vbCrLf & "
" Response.Write vbCrLf & " " & rsSearchResults("Description") Response.Write vbCrLf & "
" Response.Write vbCrLf & " Average rating based on " & CLng(rsSearchResults("No_of_ratings")) & " votes - Rate Link - Hits " & CInt(rsSearchResults("Hits")) & " - " & Replace(rsSearchResults("URL"), "http://", "") & "" Response.Write vbCrLf & "

" 'Move to the next record in the database rsSearchResults.MoveNext 'Loop back round Next End If 'Close the HTML table displaying the results Response.Write vbCrLf & "

" 'If there are more pages to display then add a title to the other pages If intRecordPositionPageNum > 1 OR NOT rsSearchResults.EOF AND blnSearchWordLenthOK = True Then 'Display an HTML table with links to the other search results Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & "

" Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & "

" 'If there are more pages to display then add a title to the other pages If intRecordPositionPageNum > 1 or NOT rsSearchResults.EOF Then Response.Write vbCrLf & " Results Page: " End If 'If the page number is higher than page 1 then display a back link If intRecordPositionPageNum > 1 Then Response.Write vbCrLf & " << Prev " End If 'If there are more pages to display then display links to all the search results pages If intRecordPositionPageNum > 1 or NOT rsSearchResults.EOF Then 'Loop to diplay a hyper-link to each page in the search results For intLinkPageNum = 1 to lngTotalNumPages 'If the page to be linked to is the page displayed then don't make it a hyper-link If intLinkPageNum = intRecordPositionPageNum Then Response.Write vbCrLf & " " & intLinkPageNum Else Response.Write vbCrLf & " " & intLinkPageNum & " " End If Next End If 'If it is Not the End of the search results than display a next link If NOT rsSearchResults.EOF then Response.Write vbCrLf & " Next >>" End If 'Finsh HTML the table Response.Write vbCrLf & "

" Response.Write vbCrLf & "

" Response.Write vbCrLf & "
" End If End If 'Close Server Objects Set rsSearchResults = Nothing Set strCon = Nothing Set adoCon = Nothing %>

Beamar Industrial Supply, Inc. serving the manufacturing industry since 1987.

Beamar Test & Measuring Systems, a Division of Beamar Industrial Supply, Inc. has been providing knowledgeable advice and products to help in your manufacturing quality problems.

As the exclusive and authorized Master Distributor for AMETEK-CHATILLON and LLOYD products and with its three locations along the US-Mexico border; San, Diego, Ca., El Paso and Brownsville, Texas, Beamar Industrial Supply, Inc. and Marllam de Matamoros, S.A. de C.V. in Mexico have efficiently been able to provide both the US and Mexico markets with the finest and world’s best selling line of force measurement instruments and material testing systems striving to assure that the customer receives complete satisfaction with every order.

Over the years, the types of products distributed and their related technology have advanced rapidly. A continuing commitment to the education of its staff and to the search for new product solutions has kept Beamar Test & Measuring Systems as the leading Quality Control supplier house in the US/Mexico border, South Texas, Mexico and Central America. Our network of professionals provides solid consulting assistance with new and innovative measuring and inspection equipment.

We are continually searching for new products that meet our high standards of quality, economy and customer service.