Greater Albuquerque Chamber of Commerce

Site Search:

" size="10" maxlength="50">

<% 'Read in all the search words into one variable strSearchWords = Trim(Request.QueryString("search")) 'If the site is in English then use the server HTML encode method If blnEnglishLanguage = True Then 'Replace any HTML tags with the HTML codes for the same characters (stops people entering HTML tags) strSearchWords = Server.HTMLEncode(strSearchWords) 'If the site is not english just change the script tags Else 'Just replace the script tag <> with HTML encoded < and > strSearchWords = Replace(strSearchWords, "<", "<", 1, -1, 1) strSearchWords = Replace(strSearchWords, ">", ">", 1, -1, 1) End If 'Slit each word to be searched up and place in an array sarySearchWord = Split(Trim(strSearchWords), " ") 'Read the file number to show from intFileNum = CInt(Request.QueryString("FileNumPosition")) 'Set the number of files shown so far to the file number read in above intNumFilesShown = intFileNum 'Create the file system object Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") 'If there is no words entered by the user to search for then dont carryout the file search routine If NOT strSearchWords = "" Then 'Get the path and the root folder to be searched Set fldObject = fsoObject.GetFolder(Server.MapPath("./")) 'Read in the server path to this ASP script strServerPath = fldObject.Path & "\" 'Set to true as this is searching the root directory blnIsRoot = True 'Call the search sub prcedure Call SearchFile(fldObject) 'Reset server variables Set fsoObject = Nothing Set fldObject = Nothing 'Call the Bubble Sort procedure to sort the results into highest matches first Call SortResultsByNumMatches(sarySearchResults, intTotalFilesFound) 'Display the HTML table with the results status of the search or what type of search it is Response.Write vbCrLf & " " Response.Write vbCrLf & " " 'Display that there where no matching records found If blnSearchResultsFound = False 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 & "
Searched the site for " & strSearchWords & ". Sorry, no results found. Searched the site for " & strSearchWords & ". Displaying Results " & intFileNum + 1 & " - " & intNumFilesShown & " of " & intTotalFilesFound & ".
" 'HTML table to display the search results or an error if there are no results Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & "
" 'If no results are found then display an error message If blnSearchResultsFound = False Then 'Write HTML displaying the error Response.Write vbCrLf & "
" Response.Write vbCrLf & " Your Search - " & strSearchWords & " - did not match any files on this site." 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 display the results Else 'Loop round to display each result within the search results array For intDisplayResultsLoopCounter = (intFileNum + 1) to intNumFilesShown Response.Write vbCrLf & "
" Response.Write vbCrLf & " " & sarySearchResults(intDisplayResultsLoopCounter,1) Response.Write vbCrLf & "
" Next End If 'Close the HTML table displaying the results Response.Write vbCrLf & "
" End If 'Display an HTML table with links to the other search results If intTotalFilesFound > intRecordsPerPage 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 & " " Response.Write vbCrLf & "
" Response.Write vbCrLf & " Results Page: " 'If the page number is higher than page 1 then display a back link If intNumFilesShown > intRecordsPerPage Then Response.Write vbCrLf & " << Prev " End If 'If there are more pages to display then display links to all the search results pages If intTotalFilesFound > intRecordsPerPage Then 'Loop to diplay a hyper-link to each page in the search results For intPageLinkLoopCounter = 1 to CInt((intTotalFilesFound / intRecordsPerPage) + 0.5) 'If the page to be linked to is the page displayed then don't make it a hyper-link If intFileNum = (intPageLinkLoopCounter * intRecordsPerPage) - intRecordsPerPage Then Response.Write vbCrLf & " " & intPageLinkLoopCounter Else Response.Write vbCrLf & " " & intPageLinkLoopCounter & " " End If Next End If 'If it is Not the last of the search results than display a next link If intTotalFilesFound > intNumFilesShown then Response.Write vbCrLf & " Next >>" End If 'Finsh HTML the table Response.Write vbCrLf & "
" Response.Write vbCrLf & "
" End If %>

Special Events - Publications - Virtual Press Room - Military Affairs
- The USS Albuquerque - Chamber Store - Advertising

The Chamber hosts many events every year, including:

Media Tour
November 14, 2003. The Feed the Beast Media Tour is designed for 30 participants to tour our local newspaper, television and radio mediums to gain a better perspective of how the media works in Albuquerque and to make personal contacts. Tours focus on both the Spanish and English mediums.

Small Business Recognition Luncheon
March 2004. Annual awards banquet celebrating the area's high-growth businesses through the Duke City Dozen, philanthropic recognition via the Maxie Anderson Award and our up and coming stars through the New Business Challenge.

Hackers/Duffers Golf Tournament
Friday, May 7, 2004, Tijeras Arroyo Golf Course, Held at the Tijeras Arroyo Golf Course on Kirtland Air Force Base, this is the annual golf tournament between the Chamber Hackers and Kirtland Duffers.

Armed Forces Banquet
Saturday, May 15, 2004, Location TBD. Held annually on Armed Forces Day to recognize the significant contributions of the men and woman who serve our country and our community at Kirtland Air Force Base. Sponsored by SAIC.

These events could not be held without the generous support of our sponsors. For information about sponsoring one of these high-profile events and reaping the benefits associated with linking your name with the Chamber, please contact Melissa Presson at 764-3743.

You can also download our packet of sponsorship information. You will need Adobe Acrobat Reader to view and print the packet of information.

Back to Communication and Public Affairs home

© 2003 Greater Albuquerque Chamber of Commerce. All Rights Reserved.	Designed by Esparza-King Inc. Advertising and Marketing
GREATER ALBUQUERQUE CHAMBER OF COMMERCE Mailing Address: P.O. Box 25100, Albuquerque, New Mexico 87125 Physical Address: 115 Gold Ave. S.W., Albuquerque, New Mexico 87102 Phone: (505) 764-3700 / Fax: (505) 764-3714