NDRF Support Group Information

<%@ Language=VBScript %> <%Option Explicit%> <% dim postMethod dim vState vState = "" postMethod = Request.ServerVariables("REQUEST_METHOD") if postMethod = "POST" then dim rstLeader dim sqlString dim vFirstName dim vMiddleName dim vLastName dim vAddress2 vState = Request.Form("cboState") set rstLeader = Server.CreateObject("ADODB.Recordset") sqlString = "SELECT * FROM " & TABLE_NAME & " WHERE (((" & HOME_STATE & ")='" & vState & "')) ORDER BY " & HOME_CITY rstLeader.Open sqlString, NDRFDB end if %> NDRF Support Group Information

National Dysautonomia Research Foundation
Support, Education, Research

<% if postMethod = "POST" then if not rstLeader.EOF and not rstLeader.BOF then rstLeader.MoveFirst while not rstLeader.EOF %>

<%=trim(rstLeader.Fields(HOME_CITY).value)%>
<%=trim(rstLeader.Fields(GROUP_NAME).value)%>
Leader:	<% vFirstName = trim(rstLeader.Fields(FIRST_NAME).value) vMiddleName = trim(rstLeader.Fields(MIDDLE_NAME).value) vLastName = trim(rstLeader.Fields(LAST_NAME).value) 'if vMiddleName = "" then Response.Write vFirstName & " " & vLastName 'else ' Response.Write vFirstName & " " & vMiddleName & " " & vLastName 'end if %>
E-Mail:	<%=trim(rstLeader.Fields(EMAIL).value)%>

Alternate:	<% vFirstName = trim(rstLeader.Fields(ALT_FIRST_NAME).value) vMiddleName = trim(rstLeader.Fields(ALT_MIDDLE_NAME).value) vLastName = trim(rstLeader.Fields(ALT_LAST_NAME).value) 'if vMiddleName = "" then Response.Write vFirstName & " " & vLastName 'else 'Response.Write vFirstName & " " & vMiddleName & " " & vLastName 'end if %>
E-Mail:	<%=trim(rstLeader.Fields(ALT_EMAIL).value)%>

Meetings are held at the following location:
	<% if trim(rstLeader.Fields(MEET_PLACE).value) <> "" then Response.Write trim(rstLeader.Fields(MEET_PLACE).value) & " " & trim(rstLeader.Fields(MEET_ADDRESS).value) & " " if trim(rstLeader.Fields(MEET_ADDRESS_2).value) <> "" then Response.Write trim(rstLeader.Fields(MEET_ADDRESS_2).value) & " " Response.Write trim(rstLeader.Fields(MEET_CITY).value) & ", " & trim(rstLeader.Fields(MEET_STATE).value) & " " & trim(rstLeader.Fields(MEET_ZIP).value) end if %>

Directions to meeting place:
	<%=trim(rstLeader.Fields(MEET_DIRECTIONS).value)%>

The Group's Next Meeting will be held on <%=trim(rstLeader.Fields(NEXT_MEET_DATE).value)%> @ <%=trim(rstLeader.Fields(NEXT_MEET_TIME).value)%>

We will plan on the following for our next meeting:
	<%=trim(rstLeader.Fields(NEXT_MEET_NOTE).value)%>

<% rstLeader.MoveNext wend else Response.Write "No Cities Found" end if rstLeader.Close set rstLeader = nothing end if %>

Search NDRF or the Web:

The National Dysautonomia Research Foundation (NDRF) has established this site to help inform afflicted patients, physicians and the general public on the various forms of Dysautonomia. It is our desire to give timely, as well as, accurate information, however NDRF will not be responsible for the misinterpretation of the information provided. Questions or problems regarding this web site should be directed to .

Medical questions and information, should be reviewed with your physician.

<% cleanUpStates closeConnection %>