<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include virtual="/myConnectionStrings.asp" -->
<%
Session.Timeout=120
if (Request.QueryString("startletter")  <> "") then 
	startLetter = Request.QueryString("startletter") 
else
	startLetter = "a"
end if
if (Request.QueryString("endletter")  <> "") then 
	endLetter = Request.QueryString("endletter") 
else
	endLetter = "z"
end if

' RECORDET OF ALL WITH FIRST LETTERS BETWEEN START AND END
set recList = Server.CreateObject("ADODB.Recordset")
recList.ActiveConnection = MM_connect_STRING
recList.Source = "SELECT * FROM tableName WHERE myKeyColumn >'" + startletter + "' AND myKeyColumn<='" + endLetter + "z' ORDER BY myKeyColumn ASC"
recList.CursorType = 0
recList.CursorLocation = 2
recList.LockType = 3
recList.Open()

Response.ContentType = "text/xml"
agencyList.Save Response,1
%>