<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% 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
 

Registration Form for 2009 Fall Language & Literacy Workshops
There is NO COST for NC Professionals; $50 for out-of-state attendees

<% if NOT request.form("qmcheck") = "true" then %>

Please provide the following information:

First Name
Last Name
Address
City
State
Zip Code
Phone
FAX
E-mail
*Share your email address?
Employer
Workshop
Comments

*Please mark here if it’s okay for us to share your email address ONLY with fellow participants whose applications are accepted for this event.  This will facilitate your communication with others prior to the event.

All workshops are collaboratively presented by:

<% else %> Thank you! <% end if %>