<% ' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("join_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "Results", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields0(17) Dim arFormDBFields0(17) Dim arFormValues0(17) arFormFields0(0) = "Noncaregiver" arFormDBFields0(0) = "Noncaregiver" arFormValues0(0) = Request("Noncaregiver") arFormFields0(1) = "Heard" arFormDBFields0(1) = "Heard" arFormValues0(1) = Request("Heard") arFormFields0(2) = "Pseudonym" arFormDBFields0(2) = "Pseudonym" arFormValues0(2) = Request("Pseudonym") arFormFields0(3) = "Caregiver" arFormDBFields0(3) = "Caregiver" arFormValues0(3) = Request("Caregiver") arFormFields0(4) = "Nonpatient" arFormDBFields0(4) = "Nonpatient" arFormValues0(4) = Request("Nonpatient") arFormFields0(5) = "Meet_Others" arFormDBFields0(5) = "Meet_Others" arFormValues0(5) = Request("Meet_Others") arFormFields0(6) = "City" arFormDBFields0(6) = "City" arFormValues0(6) = Request("City") arFormFields0(7) = "Email" arFormDBFields0(7) = "Email" arFormValues0(7) = Request("Email") arFormFields0(8) = "Patient" arFormDBFields0(8) = "Patient" arFormValues0(8) = Request("Patient") arFormFields0(9) = "Name" arFormDBFields0(9) = "Name" arFormValues0(9) = Request("Name") arFormFields0(10) = "Zip" arFormDBFields0(10) = "Zip" arFormValues0(10) = Request("Zip") arFormFields0(11) = "No_Program" arFormDBFields0(11) = "No_Program" arFormValues0(11) = Request("No_Program") arFormFields0(12) = "Retype" arFormDBFields0(12) = "Retype" arFormValues0(12) = Request("Retype") arFormFields0(13) = "Country" arFormDBFields0(13) = "Country" arFormValues0(13) = Request("Country") arFormFields0(14) = "Address" arFormDBFields0(14) = "Address" arFormValues0(14) = Request("Address") arFormFields0(15) = "State" arFormDBFields0(15) = "State" arFormValues0(15) = Request("State") arFormFields0(16) = "Dysautonomia" arFormDBFields0(16) = "Dysautonomia" arFormValues0(16) = Request("Dysautonomia") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type" End If If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name" End If FP_SaveFieldToDB fp_rs, Now, "Timestamp" If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name" End If fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close Session("FP_SavedFields")=arFormFields0 Session("FP_SavedValues")=arFormValues0 Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.Redirect "http://www.potsplace.com/confirmjoin.htm" End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> join
POTS Place
NCS
PAF
MSA
Support
Resources
Help Us
Dysautonomia Information Network
 


Join Us!

Medical disclaimer

Donate

Become a member now, it's free! By joining the Dysautonomia Information Network you will receive pertinent information, email notification when the latest newsletters are published* and become eligible to be a member of the Meet Others Program, a network that puts both patients and caregivers in touch with others in their region. Simply fill out the below form and join today!

This form must be filled out in its entirety for your membership to be processed. A valid email address is required to join the Meet Others Program.

<% Function FP_SaveFormFields(rs, rgFormFields, rgDBFields) On Error Resume Next Err.Clear Dim i For i = 0 To UBound(rgFormFields) FP_SaveFormField rs, rgFormFields(i), rgDBFields(i) Next Err.Clear End Function Function FP_SaveFormField(rs, strField, strDBField) On Error Resume Next Err.Clear If (Request.Form(strField)) = "" And rs(strDBField).Type <> adBoolean Then Exit Function End If FP_SaveFieldToDB rs, Request.Form(strField), strDBField Err.Clear End Function Function FP_SaveFieldToDB(rs, strField, strDBField) On Error Resume Next Err.Clear Select Case rs(strDBField).Type Case adInteger Or adBigInt Or adUnsignedTinyInt Or adUnsignedSmallInt Or adUnsignedInt Or adUnsignedBigInt rs(strDBField) = CInt(strField) Case adSingle Or adDecimal Or adNumeric rs(strDBField) = CSng(strField) Case adDouble rs(strDBField) = CDbl(strField) Case adCurrency rs(strDBField) = CCur(strField) Case adBoolean rs(strDBField) = CBool(strField) Case adDate Or adDBDate Or adDBTime or adDBTimeStamp rs(strDBField) = CDate(strField) Case Else rs(strDBField) = CStr(strField) End Select strError = "Cannot save value """ & strField & """ to database field """ & strDBField & """" FP_DumpError strErrorUrl, strError Err.Clear End Function Function FP_EncodeOutput(str) FP_EncodeOutput = str FP_EncodeOutput = Replace(FP_EncodeOutput,"&","^^@^^") FP_EncodeOutput = Server.HTMLEncode(FP_EncodeOutput) FP_EncodeOutput = Replace(FP_EncodeOutput,"^^@^^","&") End Function Function FP_FormConfirmation(szCharset, szTitle, szmsg1, szUrl, szMsg2) On Error Resume Next Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & szTitle & "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "

" & szTitle & "

" & vbCrLf Response.Write "

" & szMsg1 &"

" & vbCrLf Response.Write "

" & vbCrLf For Each item in Request.Form If item <> "VTI-GROUP" Then Response.Write "" & item & "" & ": " & FP_EncodeOutput(Request.Form(item)) & "
" & vbCrLf End If Next Response.Write "

" & vbCrLf Response.Write "

" & szMsg2 & "

" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.End End Function Function FP_FormConfirmationFromArrays(szCharset, szTitle, szmsg1, szUrl, szMsg2, rgDBFields, rgDBValues) On Error Resume Next Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & szTitle & "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "

" & szTitle & "

" & vbCrLf Response.Write "

" & szMsg1 &"

" & vbCrLf Response.Write "

" & vbCrLf For j = 0 To UBound(rgDBFields) - 1 Response.Write "" & rgDBFields(j) & "" & ": " & FP_EncodeOutput(rgDBValues(j)) & "
" & vbCrLf Next Response.Write "

" & vbCrLf Response.Write "

" & szMsg2 & "

" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.End End Function Function FP_DumpError(strErrorUrl, strMsg) On Error Resume Next If Err.Number <> 0 Then fp_conn.Close Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") If strErrorUrl <> "" Then Response.Redirect strErrorUrl Else Response.Write " " & strMsg & "

" Response.Write "Error Description: " & Err.Description & "

" Response.Write "Error Number: " & Err.Number & "

" Response.Write "Error Source: " & Err.Source & "

" Response.End End If End if End Function %>

Name:

Street Address:

City:

State/Province:

Zip Code:

Country:

Email Address:

Retype Email Address:

How did you hear about us?


Are you a dysautonomia patient?
Yes    No

Are you a caregiver?
Yes     No

What type of dysautonomia do you have or care for? (Type "unknown" if you do not know)

Would you like to meet others in your area with dysautonomia? The "Meet Others" program is designed to put you in touch with people in your vicinity who have dysautonomia. You will receive contact information for people in your area that have also requested to meet others if you choose to be in this program.

You must agree to the following contract to participate in the Meet Others program:

Contract:

I certify that I am a dysautonomia patient or caregiver, and that the information I have provided is accurate. I agree that I will not transmit any defamatory, obscene, offensive, violent, racist, illegal or soliciting material to members of the Meet Others Program. I agree that I will not hold the Dysautonomia Information Network or its affiliates liable for the words or actions of any and all members of the Meet Others Program.

Would you like to join the Meet Others Program? By becoming a member of the Meet Others Program you are agreeing to the above contract.
Yes    No

Type the name you would like to use for the Meet Others Program (if different than above):

Thank you for becoming a member and welcome to the Dysautonomia Information Network!

*Dysautonomia News is currently an online newsletter. You will receive email notification when new editions are published. We hope to make a printed version of Dysautonomia News available through your support of our organization.   


Back to Top