| ||||||||||||||
|
|
|||||||||||||||
On-line DEMO<% If (Request.ServerVariables("CONTENT_LENGTH") = 0) Then %>To use the Career Pathways System On-line Demo, simply fill out the form below. When you are finished, click on the "Sign In" button. Please make note of our Privacy Policy and Terms and Conditions. Terms and Conditions - The movies are copyrighted by Technimedia Studios™ and are for demonstration purposes only, any other use is strictly prohibited. If you would like to learn more about our product, contact us. Privacy Policy - Technimedia Studios™ agrees to use your information only for internal purposes. We will not share your information with any third parties for any reason. In addition, we will not contact you without your permission. <% Else Dim objNewRecord Set objNewRecord = Server.CreateObject("ADODB.Recordset") objNewRecord.ActiveConnection = "Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\Websites\WEBDATA\CPSDemo.mdb" objNewRecord.CursorType = 1 objNewRecord.LockType = 3 objNewRecord.Source = "Users" objNewRecord.Open objNewRecord.AddNew objNewRecord.Fields("UserFirstName") = Replace(Trim(Request.Form("UserFirstName")), """", "'") objNewRecord.Fields("UserLastName") = Replace(Trim(Request.Form("UserLastName")), """", "'") objNewRecord.Fields("UserTitle") = Replace(Trim(Request.Form("UserTitle")), """", "'") objNewRecord.Fields("UserSchool") = Replace(Trim(Request.Form("UserSchool")), """", "'") objNewRecord.Fields("UserAddress1") = Replace(Trim(Request.Form("UserAddress1")), """", "'") objNewRecord.Fields("UserAddress2") = NULL objNewRecord.Fields("UserCity") = Replace(Trim(Request.Form("UserCity")), """", "'") objNewRecord.Fields("UserState") = UCase(Request.Form("UserState")) objNewRecord.Fields("UserZip") = Request.Form("UserZip") objNewRecord.Fields("UserPhone") = Request.Form("UserPhone") objNewRecord.Fields("UserEmail") = Trim(Request.Form("UserEmail")) If (Request.Form("UserSendUpdates") = "on") Then objNewRecord.Fields("UserSendUpdates") = -1 Else objNewRecord.Fields("UserSendUpdates") = 0 End If If (Request.Form("UserAddress2") <> "") Then objNewRecord.Fields("UserAddress2") = Request.Form("UserAddress2") objNewRecord.Update objNewRecord.Close Set objNewRecord = Nothing Dim objMessage Set objMessage = Server.CreateObject("JMail.SMTPMail") objMessage.ServerAddress = "mail.ridgefieldgroup.com" objMessage.Sender = "CPSDemoLogin@technimediastudios.com" objMessage.SenderName = "CPS Demo Login" objMessage.Subject = Trim(Request.Form("UserFirstName")) & " " & Trim(Request.Form("UserLastName")) & " Has Logged In" objMessage.AddRecipient "products@technimediastudios.com" 'objMessage.AddRecipient "mstark@ridgefieldgroup.com" objMessage.Body = "The following person has logged into the Career Pathways System Demo" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _ Trim(Request.Form("UserFirstName")) & " " & Trim(Request.Form("UserLastName")) & Chr(13) & Chr(10) & _ Trim(Request.Form("UserTitle")) & Chr(13) & Chr(10) & _ Trim(Request.Form("UserSchool")) & Chr(13) & Chr(10) & _ Trim(Request.Form("UserAddress1")) & Chr(13) & Chr(10) If (Request.Form("UserAddress2") <> "") Then objMessage.Body = objMessage.Body & Trim(Request.Form("UserAddress2")) & Chr(13) & Chr(10) objMessage.Body = objMessage.Body & Trim(Request.Form("UserCity")) & ", " & UCase(Request.Form("UserState")) & " " & Request.Form("UserZip") & Chr(13) & Chr(10) & _ Trim(Request.Form("UserPhone")) & Chr(13) & Chr(10) & _ Trim(Request.Form("UserEmail")) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _ "The Date and Time are " & Now() objMessage.Execute objMessage.Close Set objMessage = Nothing Session("CPSDemoUser") = Trim(Request.Form("UserFirstName")) & " " & Trim(Request.Form("UserLastName")) %>Login SuccessfulYou have successfully logged in to Career Pathways System Demo. Use the link below to start using the demo... Quality Note: This demo is best viewed at 800 by 600 screen resolution or higher. The images and movies included in this demo are high quality. We recommend at least a cable modem. If your internet connection isn't fast enough the videos may stutter the first time you click on them to play. If so, pause the video on your media player to allow ample time for the download. Once they are in your video cache they will play smoothly every time. This product is brought to you by:
Technimedia Studios |