
<%
	Dim SQL1
	Dim Conn
	Dim RS
	Dim sState, sCounty, sLat, sLon, sSearchSize
	
	sState = Request("sState")
	sCounty = Request("SCounty")
	sLat = Request("sLat")
	sLon = Request("sLon")
	sSearchArea = Request("sSearchArea")
	
	Response.Write sState
	Response.Write sCounty
	Response.Write sLat
	Response.Write sLon
	Response.Write sSearchArea

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={SQL Server};SERVER=WEBSRV01;UID=web;pwd=w3bs1t3;DATABASE=AVANTE"

'SQL1 = "[Avante].[dbo].[Find_Business_Local_Dist] @State='" & sState & "',@County='" & sCounty & "',@Lat='" & sLat & "',@Lon='" & sLon & "',@SearchSize='" & sSearchSize & "'"
'SQL1 = "[Avante].[dbo].[Find_Business_Local_Dist] '" & sState & "','" & sCounty & "','" & sLat & "','" & sLon & "','" & sSearchSize & "'"
'Set RS = Conn.Execute (SQL1)

%>
<HTML>
<STYLE>
BODY {SCROLLBAR-FACE-COLOR: #5e5ebe; SCROLLBAR-HIGHLIGHT-COLOR: #5e5ebe; SCROLLBAR-SHADOW-COLOR: #5e5ebe; SCROLLBAR-3DLIGHT-COLOR: #5e5ebe; SCROLLBAR-ARROW-COLOR:  #6666CC; SCROLLBAR-TRACK-COLOR: #E3E3E3; SCROLLBAR-DARKSHADOW-COLOR: #666666; }
</STYLE>
<head>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<TABLE>

</TABLE>
</BODY>
</HTML>
