<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% If (CStr(Request("XYzy")) = "goaway") Then %> <% Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit Dim MM_abortEdit MM_abortEdit = false %> <% If (CStr(Request("MM_insert")) = "form1") Then If (Not MM_abortEdit) Then ' execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_connWorkshops_STRING MM_editCmd.CommandText = "INSERT INTO tblWorkshops (FirstName, LastName, Address, City, [State], Zip, Phone, Fax, Email, ShareEmail, Employer, Workshop, Comments) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 250, Request.Form("FirstName")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 250, Request.Form("LastName")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 250, Request.Form("Address")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 50, Request.Form("City")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 50, Request.Form("State")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 50, Request.Form("Zip")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 50, Request.Form("Phone")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 202, 1, 50, Request.Form("Fax")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 202, 1, 250, Request.Form("Email")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 202, 1, 5, Request.Form("ShareEmail")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 202, 1, 250, Request.Form("Employer")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 202, 1, 250, Request.Form("Workshop")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param13", 203, 1, 536870910, Request.Form("Comments")) ' adLongVarWChar MM_editCmd.Execute MM_editCmd.ActiveConnection.Close End If End If %> <% dim eadd Const cdoSendUsingPickup = 1 Const cdoSendUsingPort = 2 Const cdoAnonymous = 0 Const cdoBasic = 1 Const cdoNTLM = 2 Set oMail = CreateObject("CDO.Message") oMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 oMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "72.18.132.196" oMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic oMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "webmaster@ncbegin.org" oMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mario1" oMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 oMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False oMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 oMail.Configuration.Fields.Update eadd = request.form("Email") oMail.Sender = "webmaster@ncbegin.org" oMail.To = eadd oMail.Cc = "lfonville@ncbegin.org" oMail.Bcc = "webwizard@carolina.rr.com" 'oMail.To = "jeff@jeffpblues.com" oMail.Subject = "AV Workshop Registration Fall 2009" oMail.HTMLBody = "" oMail.HTMLBody = oMail.HTMLBody + "You have been registered with the following information:

" oMail.HTMLBody = oMail.HTMLBody + "First Name: "& request.form("FirstName")&"
" oMail.HTMLBody = oMail.HTMLBody + "Last Name: "& request.form("LastName")&"
" oMail.HTMLBody = oMail.HTMLBody + "Address: "& request.form("Address")&"
" oMail.HTMLBody = oMail.HTMLBody + "City: "& request.form("City")&"
" oMail.HTMLBody = oMail.HTMLBody + "State: "& request.form("State")&"
" oMail.HTMLBody = oMail.HTMLBody + "Zip Code: "& request.form("Zip")&"
" oMail.HTMLBody = oMail.HTMLBody + "Phone: "& request.form("Phone")&"
" oMail.HTMLBody = oMail.HTMLBody + "FAX: "& request.form("Fax")&"
" oMail.HTMLBody = oMail.HTMLBody + "Email: "& request.form("Email")&"
" oMail.HTMLBody = oMail.HTMLBody + "Share Email?: "& request.form("ShareEmail")&"
" oMail.HTMLBody = oMail.HTMLBody + "Employer: "& request.form("Employer")&"
" oMail.HTMLBody = oMail.HTMLBody + "Workshop: "& request.form("Workshop")&"
" oMail.HTMLBody = oMail.HTMLBody + "Comments: "& request.form("Comments")&"
" oMail.HTMLBody = oMail.HTMLBody + "" oMail.Send Set oMail = Nothing Set oMailConfig = Nothing if NOT request.form("State") = "NC" then response.redirect("WorkshopPaypal.asp?class=" & request.form("Workshop") & "") end if %> <% end if %> BEGINNINGS For Parents of Children Who Are Deaf or Hard of Hearing

Donor Form

Your contribution of any size will be greatly appreciated!
Please fill out the form below.  When you are finished, you can either click on the submit button to proceed with your secure on-line credit card contribution, or you may print out the form and mail it along with your donation to:

BEGINNINGS for Parents of Children Who are Deaf/HOH, Inc.
3714-A Benson Drive
Raleigh, NC  27609-7321

Please provide the following contact information:
Name:
Address:
City:
State:
Zip Code:
Country:
Phone:     Area Code Number
E-mail:

Gift Designation:

Amount I am giving:  $

Is this gift in honor of anyone? 

Is this gift in memory of anyone? 

My employer, , will match my gift.  I will mail you a matching gift form.

THANK YOU FOR YOUR SUPPORT!