% dim rs, vsComments strsql = "SELECT top 1 fdate, fname, lname, city, state, country, comments, email, filename FROM Feedback WHERE approved='M' order by fdate desc, lname, fname " set rs = Server.CreateObject("ADODB.Recordset") rs.Open strsql, con if rs.EOF then 'Enter an empty array element blnNoRecs = true wrkMsg = "No stories at this time" else vsComments= rs.GetRows end if rs.Close Dim blnNoSurveyRecs, vSurvey strsql = "SELECT sid,question, answer1,answer2,answer3,answer4,answer5 from Survey order by sid desc" 'response.write strsql rs.Open strsql, con if rs.EOF then blnNoSurveyRecs = true else vSurvey = rs.getRows end if if rs.state = adstateopen then rs.Close end if con.close set rs = nothing set con = nothing %>
![]() |
|
|
|
|
|
|
||||||||||
![]() |
|
|||||||||||||||
|
* 100 yard range varies pending terrain and environmental factors
|
|
|||||||||||||||
|
|
||||||||||||||||
|
|
||||||||||||||||
|
|
||||||||||||||||
|
|
||||||||||||||||
|
|
||||||||||||||||
|
|
||||||||||||||||
|
|
||||||||||||||||
|
|
||||||||||||||||
|
|
|
|
|
|||||||||||||
|
|
Home | Disclaimer | Laws | Directions | Contact |
|
||||||||||||||
|
|
|
|
||||||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|