| ||||||||||||||
|
|
|||||||||||||||
| <% If (Request.ServerVariables("CONTENT_LENGTH") = 0) Then %> Please use this form to request additional product information - or to sign up for a no-obligation FREE 30-day Preview of CAREER Pathways On-LineTM. Please select your choice in the Product Interest box below. We will contact you within 24-hours! <% Else If (Request.Form("Product") = "Career Pathways Online" OR Request.Form("Product") = "30Trial" ) Then Dim objNewRecord Set objNewRecord = Server.CreateObject("ADODB.Recordset") objNewRecord.ActiveConnection = "Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\Websites\WEBDATA\CPS.mdb" objNewRecord.CursorType = 1 objNewRecord.LockType = 3 objNewRecord.Source = "Schools" objNewRecord.Open objNewRecord.AddNew objNewRecord.Fields("SchoolName") = Replace(Trim(Request.Form("SchoolName")), """", "'") objNewRecord.Fields("SchoolAddress1") = Replace(Trim(Request.Form("SchoolAddress1")), """", "'") objNewRecord.Fields("SchoolAddress2") = NULL objNewRecord.Fields("SchoolCity") = Replace(Trim(Request.Form("SchoolCity")), """", "'") objNewRecord.Fields("SchoolState") = UCase(Request.Form("SchoolState")) objNewRecord.Fields("SchoolZip") = Request.Form("SchoolZip") objNewRecord.Fields("SchoolAdminFirstName") = Replace(Trim(Request.Form("SchoolAdminFirstName")), """", "'") objNewRecord.Fields("SchoolAdminLastName") = Replace(Trim(Request.Form("SchoolAdminLastName")), """", "'") objNewRecord.Fields("SchoolAdminPassword") = "963.2548lhfr45" objNewRecord.Fields("SchoolAdminTitle") = Replace(Trim(Request.Form("SchoolAdminTitle")), """", "'") objNewRecord.Fields("SchoolAdminPhone") = Request.Form("SchoolAdminPhone") objNewRecord.Fields("SchoolAdminEmail") = LCase(Trim(Request.Form("SchoolAdminEmail"))) objNewRecord.Fields("SchoolStudentPassword") = "password" objNewRecord.Fields("SchoolAdminIP") = Request.ServerVariables("REMOTE_ADDR") If (Request.Form("SchoolAddress2") <> "") Then objNewRecord.Fields("SchoolAddress2") = Request.Form("SchoolAddress2") objNewRecord.Update objNewRecord.Close Set objNewRecord = Nothing End If Dim objMessage Set objMessage = Server.CreateObject("JMail.SMTPMail") objMessage.ServerAddress = "mail.ridgefieldgroup.com" objMessage.Sender = "CPSSignup@technimediastudios.com" objMessage.SenderName = "CPS On-Line Signup" objMessage.Subject = "School '" & Trim(Request.Form("SchoolName")) & "' On-line Signup" objMessage.AddRecipient "products@technimediastudios.com" objMessage.AddRecipient "mstark@ridgefieldgroup.com" objMessage.Body = "The following School has signed up for Career Pathways System On-line:" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _ Trim(Request.Form("SchoolName")) & Chr(13) & Chr(10) & _ Trim(Request.Form("SchoolAddress1")) & Chr(13) & Chr(10) If (Request.Form("SchoolAddress2") <> "") Then objMessage.Body = objMessage.Body & Trim(Request.Form("SchoolAddress2")) & Chr(13) & Chr(10) objMessage.Body = objMessage.Body & Trim(Request.Form("SchoolCity")) & ", " & UCase(Request.Form("SchoolState")) & " " & Request.Form("SchoolZip") & Chr(13) & Chr(10) & _ Trim(Request.Form("SchoolAdminFirstName")) & " " & Trim(Request.Form("SchoolAdminLastName")) & Chr(13) & Chr(10) & _ Trim(Request.Form("SchoolAdminTitle")) & Chr(13) & Chr(10) & _ Trim(Request.Form("SchoolAdminPhone")) & Chr(13) & Chr(10) & _ Trim(Request.Form("SchoolAdminEmail")) & Chr(13) & Chr(10) & _ "Product Interest: " & Trim(Request.Form("Product")) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _ "The Date and Time are " & Now() objMessage.Execute objMessage.Close Set objMessage = Nothing Session("CPSDemoSchool") = Trim(Request.Form("SchoolFirstName")) & " " & Trim(Request.Form("SchoolLastName")) %>Thank You!We will be contacting you within 24-hours. Thank you for your interest! |