<%
	dim conntq
	dim conntqstr
	dim db
	db="weatherdb.asp"
	Set conntq = Server.CreateObject("ADODB.connection")
	conntqstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
	conntq.Open conntqstr
%>