AMCD Data and Maps

<%@ Page Language="VB" Debug="true" %> AMCD Data and Maps

The Alamosa Mosquito Control District was created in 1965. The District encompasses an area of over 100 square miles. The land boundaries are east of road 103, south of the 2 mile, west of road 114, and north of the 13 mile.

This page is under construction please revist at a later date...

<% 'response.write ("

") 'response.write ("

") 'Dim oConn, oRs, oRs1, oRs2 'Dim qry, connectstr 'Dim db_path 'Dim db_dir 'dim fieldname, fieldname1, fieldname2 'dim tablename 'db_dir = Server.MapPath("access_db") & "\" 'db_path = db_dir & "mosquitonums.mdb" 'fieldname = "mosq #" 'fieldname1 = "trap #" 'fieldname2 = "date" 'tablename = "nums" 'connectstr = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & db_path 'oConn = Server.CreateObject("ADODB.Connection") 'oConn.Open (connectstr) 'qry = "SELECT * FROM " & tablename ' response.write ("") ' response.write ("") 'response.write ("") 'response.write ("") ' response.write ("") 'oRS = oConn.Execute(qry) 'oRS1 = oConn.Execute(qry) 'oRs2 = oConn.execute(qry) ' response.write ("") ' response.write ("") ' response.write ("") ' ' response.write ("") 'response.write (ucase(fieldname) & ": " & oRs.fields(fieldname).value & "" & vbCrLF) 'response.write ("") 'end while 'oRS.movenext 'oRS.close 'end if ' oConn = nothing 'response.write ("") 'response.write ("") 'response.write ("") 'if not oRS.EOF then 'while not oRS.EOF 'Response.Write ("") 'response.write (oRs.fields(fieldname1).value & ": " & oRs.fields(fieldname).value & "" & vbCrLF) 'response.write (ucase(fieldname) & ": " & oRs.fields(fieldname).value & "" & vbCrLF) 'Response.Write ("
") 'oRS.movenext 'end while 'oRS.close 'end if 'oRs = nothing 'oConn = nothing 'response.write("

" & ucase(fieldname2)& "	" & ucase(fieldname1)& "	" & ucase(fieldname)& "
") ' if not oRS2.EOF then ' while not oRS2.EOF ' Response.Write ("") ' response.write (oRs2.fields(fieldname2).value & vbcrlf) ' oRS2.movenext ' Response.Write (" ") ' end while ' ors2.close ' end if ' oRs2 = nothing ' response.write ("	") 'response.write (oRs.fields(fieldname1).value & ": " & oRs.fields(fieldname).value & "" & vbCrLF) ' if not oRS.EOF then ' while not oRS.EOF ' Response.Write ("") ' response.write (oRs.fields(fieldname1).value & vbcrlf) ' oRS.movenext 'Response.Write (" ") ' end while ' ors.close ' end if 'oRs = nothing ' response.write ("	") 'if not oRS1.EOF then ' while not oRS1.EOF ' Response.Write ("") ' response.write (oRs1.fields(fieldname).value & vbcrlf) ' oRS1.movenext ' Response.Write (" ") ' end while ' ors1.close ' end if ' oRs1 = nothing ' response.write ("

") %>

When the next season starts in May of 2012 information will be posted and updated regularly