<%@ Language=VBScript %> <%Response.Buffer=True Response.ExpiresAbsolute = Now()-1%> <% If Request.Form("submit") = " ADD TO ORDER " Then If isObject(Session("objOrder")) Then '-- Use the Object from the Session Set objOrder = session("objOrder") Else '-- Create one if we can't find it Set objOrder = Server.CreateObject("NCNAMI.NAMIOrder") End If If Len(Request.Form("selAmount")) > 0 or Not isnull(Request.Form("member")) Then Dim varID Dim varIP 'Use the IP address as part of the ID 'varIP = CINT( Randomize(Cbyte(Left(Right(Time(),5),2))) varID = (Int(Rnd * 10000 + 1)) If Request("member") = 35 Then varProd = 100 varDesc = "Individual/Family Membership" varQty = 1 varAMT = 35 varTot = 35 objOrder.AddRecord CINT(varID), CDate(Trim(now())), CInt(varProd), CSTR(varDesc), CInt(varQty), CCur(varAMT), CCur(varTot) ELSEIF Request("member") = 3 Then varProd = 101 varDesc = "Open Door Membership" varQty = 1 varAMT = 3 varTot = 3 objOrder.AddRecord CINT(varID), CDate(Trim(now())), CInt(varProd), CSTR(varDesc), CInt(varQty), CCur(varAMT), CCur(varTot) END IF If Request("selAmount") > 0 Then varProd = 102 varDesc = "Donation - Thank You" varQty = 1 varAMT = CCur(Request("selAmount")) varTot = CCur(Request("selAmount")) objOrder.AddRecord CINT(varID), CDate(Trim(now())), CInt(varProd), CSTR(varDesc), CInt(varQty), CCur(varAMT), CCur(varTot) End IF 'set the records to the Recordset object set RS = objOrder.GetRecords intrecordsadded = rs.RecordCount 'Response.Redirect "orderview.asp" Response.Write "You have ordered " & intrecordsadded & " item(s)." %> Click OR to complete your order. You may also add other items to your order. <%End IF ENd IF%>

NAMI NC Membership and Donation Form

You can use this form to join NAMI NC as a state member. Simply check either the Individual/Family Membership box, or the Open Door Membership box. 

You can also use this form just to make a donation to NAMI NC.

Enter your selection(s), and click ADD TO ORDER to continue.  Payment can be made by secure credit card transaction, or you can print the final page of the form and mail it to NAMI NC along with a check.

Individual/Family Membership
 For one or more family members in a household, or for mental health care providers.

 $35
                                    OR

Open Door Membership 
  For consumers, individuals, and families with limited incomes.

 $3
  I want to help NAMI NC with a donation.      Select $Amount  
             


<% 'DO NOT FORGET THIS or you only get 1 record in rs If Request.Form("submit") = " ADD TO ORDER " _ or Request.Form("submit") = " CHECK OUT " Then Set session("objOrder") = objOrder End IF %>