Upper Peninsula Area Web Page

<%@ LANGUAGE="VBSCRIPT" %> Upper Peninsula Area Web Page

Wisconsin Narcotics Anonymous

| | |

Upper Peninsula Area Website
Toll Free Area Help line 1-866-506-6557

CITIES AND TOWNS IN WHICH WE HAVE MEETINGS

Day
Location

Address
Group Name

City

Time

Status

<% ' These are the Check Varuables ICheck = Request.querystring("Area") & Request.querystring("City") Found = 0 Dim strHold Dim my_conn, strSQL Set my_conn = createobject("ADODB.Connection") my_conn.open = "DRIVER={MySQL ODBC 3.51 Driver};"_ & "SERVER=p41mysql159.secureserver.net;"_ & "DATABASE=wisconsinna;"_ & "UID=wisconsinna;PWD=Wna1971; OPTION=0;PORT=3306;" ' Set up the DB Connection and the Recordset 'Set Cm = Server.CreateObject("ADODB.Command") 'Set Rs = Server.CreateObject("ADODB.RecordSet") 'Cm.ActiveConnection = "WisconsinNa" ' Set up the Table and bring back all the fields strSQL = "SELECT * FROM meetinglist where Area = 'UPASC' and Active = 'Y' order by DaySort" Set rs = my_conn.Execute(strSQL) ' A loop to enter the variables for us Do Until Rs.EOF ' Response.Write "Area# " & rs("Area") & "City: " & rs("City") & _ ' "Address: " & rs("MeetingAddress") & "
" ' Response.Write "City: " & rs("City") & "
" ' Response.Write "Address: " & rs("MeetingAddress") & "
" %>

<%Response.Write rs("MeetingDay")%>
<%Response.Write rs("LocationURL")%><%Response.Write rs("MeetingLocation")%>

<%Response.Write rs("MeetingAddress")%>
<%Response.Write rs("MeetingName")%>

<%Response.Write rs("City")%>

<%Response.Write rs("Time")%>

<%Response.Write rs("MeetingInfo")%>

<% ' rs.MoveNext 'Next record ' This checks for the user and displays if found If RCheck = ICheck Then %> <% ' This sets the found variable to true Found = 1 End If ' Check the next record Rs.MoveNext Loop ' If the found variable is false display not found message If Found = 0 then %> <% End if %>


AREA SERVICE COMMITTEE MEETINGS
Information not available
Subcommittee Meetings
Activities Subcommittee	Information not available
Hospitals & Institutions (H&I) Subcommittee	Information not available
Public Information (PI) Subcommittee	Information not available

Legend:
C = Closed Meeting (for addicts only or those desiring to stop using)
O = Open Meeting (for all interested in recovery from addiction)
Spkr= Speaker
SS = Step Study
SP = Spanish
LS = Literature Study
P = Panel / Podium
CN = Common Needs (Men's, Women's, Gay's)
BF = Barrier Free; Accessible to Handicapped
WC = Wheelchair Accessible
NS = Non-smoking
D = Discussion
TD = Topic Discussion

For a full description of Narcotics Anonymous's definition of open & closed meetings, please see the World Service Board of Trustees Bulletin #15

BACK