<%@ LANGUAGE="VBSCRIPT" %> <% option explicit %> <% Response.Buffer = True %> <% 'Declaring Variables Dim smtpserver,youremail,yourpassword,SEGPS_Name,SEGPS_Email,SEGPS_Address,SEGPS_City,SEGPS_State,SEGPS_Zip,SEGPS_Phone Dim SEGPS_Student,SEGPS_Region,SEGPS_model,Action,IsError ' Edit these 3 values accordingly smtpserver = "mail.senderogroup.com" youremail = "kim@senderogroup.com" yourpassword = "$bmcSG!02$" ' Grabbing variables from the form post SEGPS_Name = Request("SEGPS_Name") SEGPS_Address = Request("SEGPS_Address") SEGPS_City = Request("SEGPS_City") SEGPS_State = Request("SEGPS_State") SEGPS_Zip = Request("SEGPS_Zip") SEGPS_Email = Request("SEGPS_Email") SEGPS_Phone = Request("SEGPS_Phone") SEGPS_Student = Request("SEGPS_Student") SEGPS_Region = Request("SEGPS_Region") SEGPS_model = Request("SEGPS_model") Action = Request("Action") ' Used to check that the email entered is in a valid format Function IsValidEmail(Email) Dim ValidFlag,BadFlag,atCount,atLoop,SpecialFlag,UserName,DomainName,atChr,tAry1 ValidFlag = False If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then atCount = 0 SpecialFlag = False For atLoop = 1 To Len(Email) atChr = Mid(Email, atLoop, 1) If atChr = "@" Then atCount = atCount + 1 If (atChr >= Chr(32)) And (atChr <= Chr(44)) Then SpecialFlag = True If (atChr = Chr(47)) Or (atChr = Chr(96)) Or (atChr >= Chr(123)) Then SpecialFlag = True If (atChr >= Chr(58)) And (atChr <= Chr(63)) Then SpecialFlag = True If (atChr >= Chr(91)) And (atChr <= Chr(94)) Then SpecialFlag = True Next If (atCount = 1) And (SpecialFlag = False) Then BadFlag = False tAry1 = Split(Email, "@") UserName = tAry1(0) DomainName = tAry1(1) If (UserName = "") Or (DomainName = "") Then BadFlag = True If Mid(DomainName, 1, 1) = "." then BadFlag = True If Mid(DomainName, Len(DomainName), 1) = "." then BadFlag = True ValidFlag = True End If End If If BadFlag = True Then ValidFlag = False IsValidEmail = ValidFlag End Function %> Seeing Eye GPS Application for Adaptive Technology Trainers

Seeing Eye GPS XT free code Application Form

Seeing Eye GPS screen shot

Sendero has a limited number of free codes available for Seeing Eye GPS XT with our current release. These are intended for O&M instructors or adaptive technology trainers who would be actively training users on the app.

To qualify for this grant, the person must be a certified Orientation and Mobility Specialist or qualified adaptive technology trainer and he or she must have or have access to a iDevice with a data plan. To apply for a free code, please fill out the form below.

<% If Action = "SendEmail" Then ' Here we quickly check/validate the information entered ' These checks could easily be improved to look for more things If IsValidEmail(SEGPS_Email) = "False" Then IsError = "Yes" Response.Write("You did not enter a valid email address.
") End If If SEGPS_Name = "" Then IsError = "Yes" Response.Write("You did not enter Name.
") End If If SEGPS_Phone = "" Then IsError = "Yes" Response.Write("You did not enter a Phone Number.
") End If If SEGPS_Address = "" Then IsError = "Yes" Response.Write("You did not enter an Address.
") End If If SEGPS_City = "" Then IsError = "Yes" Response.Write("You did not enter a City.
") End If If SEGPS_State = "" Then IsError = "Yes" Response.Write("You did not enter a State.
") End If If SEGPS_Zip = "" Then IsError = "Yes" Response.Write("You did not enter a Zip Code.
") End If If SEGPS_Student = "" Then IsError = "Yes" Response.Write("You did not enter Number of Students.
") End If If SEGPS_Region = "" Then IsError = "Yes" Response.Write("You did not enter geographic region and primary employer.
") End If If SEGPS_model = "" Then IsError = "Yes" Response.Write("You did not enter iDevice to be used.
") End If End If ' If there were no input errors and the action of the form is "SendEMail" we send the email off If Action = "SendEmail" And IsError <> "Yes" Then Dim strBody ' Here we create a nice looking html body for the email strBody = strBody & "SEGPS Form submitted at " & Now() & vbCrLf & "

" strBody = strBody & "From http://" & Request.ServerVariables("HTTP_HOST") & vbCrLf & "
" strBody = strBody & "IP " & Request.ServerVariables("REMOTE_ADDR") & vbCrLf & "
" strBody = strBody & "Name" & " : " & " " & Replace(SEGPS_Name,vbCr,"
") & "
" strBody = strBody & "Email" & " : " & " " & Replace(SEGPS_Email,vbCr,"
") & "
" strBody = strBody & "Phone" & " : " & " " & Replace(SEGPS_Phone,vbCr,"
") & "
" strBody = strBody & "Address" & " : " & " " & Replace(SEGPS_Address,vbCr,"
") & "
" strBody = strBody & "City" & " : " & " " & Replace(SEGPS_City,vbCr,"
") & "
" strBody = strBody & "State" & " : " & " " & Replace(SEGPS_State,vbCr,"
") & "
" strBody = strBody & "Zip" & " : " & " " & Replace(SEGPS_Zip,vbCr,"
") & "
" strBody = strBody & "Student" & " : " & " " & Replace(SEGPS_Student,vbCr,"
") & "
" strBody = strBody & "Region" & " : " & " " & Replace(SEGPS_Region,vbCr,"
") & "
" strBody = strBody & "model" & " : " & " " & Replace(SEGPS_model,vbCr,"
") & "
" strBody = strBody & "" Dim ObjSendMail Set ObjSendMail = CreateObject("CDO.Message") 'This section provides the configuration information for the remote SMTP server. ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False) ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = youremail ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourpassword ObjSendMail.Configuration.Fields.Update 'End remote SMTP server configuration section== ObjSendMail.To = youremail ObjSendMail.From = SEGPS_Email ' we are sending a html email.. simply switch the comments around to send a text email instead ObjSendMail.HTMLBody = strBody 'ObjSendMail.TextBody = strBody ObjSendMail.Send Set ObjSendMail = Nothing ' change the success messages below to say or do whatever you like ' you could do a response.redirect or offer a hyperlink somewhere.. etc etc %> Thanks for your Submission. Once we have processed your application, you will be contacted via email. <% Else %>
* Name:
* Email Address:
* Phone Number:
* Street Address:
* City:
* State:
* Zip Code:
* How many students/clients do you work with per month?:
* Who is your primary employer and what is the geographic region you teach in?:
* What iDevice will you be using? :
By Clicking Submit, you acknowledge that this application is being provided to you with the understanding that it is for my professional teaching purposes and will not be resold or given to another individual.

<% End If %>
Sendero Group
Rancho Cordova, CA 95741
Phone: 888-757-6810
Fax: 888-757-6807