<% recaptcha_challenge_field = Request("recaptcha_challenge_field") recaptcha_response_field = Request("recaptcha_response_field") recaptcha_public_key = "6LeGcbwSAAAAAJUgFCD9KejrRVQC66lFyPppMD7T" ' your public key recaptcha_private_key = "6LeGcbwSAAAAAB8jQkMMaoRtgs8qRk0pTMVGSwzY" ' your private key ' returns the HTML for the widget function recaptcha_challenge_writer() recaptcha_challenge_writer = "" & _ "" & _ "" end function ' returns "" if correct, otherwise it returns the error response function recaptcha_confirm(rechallenge,reresponse) Dim VarString VarString = _ "privatekey=" & recaptcha_private_key & _ "&remoteip=" & Request.ServerVariables("REMOTE_ADDR") & _ "&challenge=" & rechallenge & _ "&response=" & reresponse Dim objXmlHttp Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP") objXmlHttp.open "POST", "http://www.google.com/recaptcha/api/verify", False objXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" objXmlHttp.send VarString Dim ResponseString ResponseString = split(objXmlHttp.responseText, vblf) Set objXmlHttp = Nothing if ResponseString(0) = "true" then 'They answered correctly recaptcha_confirm = "" else 'They answered incorrectly recaptcha_confirm = ResponseString(1) end if end function server_response = "" newCaptcha = True if (recaptcha_challenge_field <> "" or recaptcha_response_field <> "") then server_response = recaptcha_confirm(recaptcha_challenge_field, recaptcha_response_field) newCaptcha = False end if %> LMU: Information Services >> Help Desk >> Pathway Site Request Form
Admissions

Information Services >> Help Desk




<% if server_response <> "" or newCaptcha then %> <% if newCaptcha = False then %> <% response.write("

Captcha response invalid. Please resubmit the form.

") %> <% end if %>

Pathway Site Request






Please select whether this is a team or information sites. Information sites live within the top navigation, while Team sites will be within the team sites web part on your landing page.

Please provide a site description for the defined business purpose:





For example if the site you wanted was for Human Resources, a good site URL
would be http://pathway.lmunet.edu/teams/human-resources. If you are not sure, just leave it blank.

List all users (include yourself) that you wish to assign Full Control management of the site.

List all users (include yourself) that you wish to assign Contributor management of the site.

Please list any additional information that you wish to request for your site.


Requestor Information:


Please fill out the following below so you can be contacted with any additional questions.




* The Captcha is required, this is to reduce bot form submissions. <%=recaptcha_challenge_writer()%>




<% else %> <% 'Using CDOsys with Basic authentication in Classic ASP 'assumes form includes at least: 'form_name - senders name 'form_mail - senders email 'form_subject 'form_body 'Because this code uses authentication, it requires access to a mailbox on your account. 'reports 'mailFailed' - true or false 'and 'strErr' - Mail server error response 'and 'strErrCode' - Mail server numerical error response (as string) 'dimension all variables (essential if 'option expicit' used) dim strHost, strErr, mailFailed dim strBody, strName, strMail dim strSubject, strFrom, strTo, strCC, strBCC, strReplyTo dim strAutoMailbox, strEmPass 'modify for yourDomain ********************************************* 'your mail server strHost = "10.10.1.11" 'address of your outgoing mailbox 'this will appear in the headers as the originating mailbox 'strAutoMailbox = "formmail@ourarea.com" 'password for your AutoMailbox 'strEmPass = "1234" 'the name and email that appears in the "From:" line (can be different to above) 'strFrom = strName & "<" & strMail & ">" 'where to send the mail strTo = "regina.burns@lmunet.edu" 'where to send copies (optional) strCC = "" strBCC = "" '************************************************* ********************* 'collect details from the form *************************** strName = Request.Form("Username") strMail = Request.Form("UserEmail") 'create the "Reply To:" i.e. the name and email of the form user strFrom = strName & "<" & strMail & ">" strReplyTo = strName & "<" & strMail & ">" 'create subject string strSubject = Request.Form("form_subject") 'create Body string strBody = strBody & "***************************************************" & vbCrLf strBody = strBody & "Message Type: " & Request.Form("MessageType") & vbcrLf & vbcrLf strBody = strBody & "Site Type: " & Request.Form("SiteType") & vbcrLf & vbcrLf strBody = strBody & "Site Description: " & Request.Form("SiteDescription") & vbcrLf& vbcrLf strBody = strBody & "Site URL: " & Request.Form("SiteURL") & vbcrLf & vbcrLf strBody = strBody & "Site Owners: " & Request.Form("SiteOwners") & vbcrLf & vbcrLf strBody = strBody & "Site Contributors: " & Request.Form("SiteContributors") & vbcrLf & vbcrLf strBody = strBody & "Additional Information: " & Request.Form("AdditionalInformation") & vbcrLf & vbcrLf strBody = strBody & "User: " & Request.Form("Username") & vbcrLf & vbcrLf StrBody = strBody & "Email: " & Request.Form("UserEmail") & vbcrLf & vbcrLf strBody = strBody & "Telephone: " & Request.Form("UserTel") & vbcrLf & vbcrLf strBody = strBody & "Classification: " & Request.Form("Classification") & vbcrLf & vbcrLf strBody = strBody & "Remote Name: " & Request.ServerVariables("REMOTE_ADDR") & vbcrLf & vbcrLf strBody = strBody & "Date: " & Date & " " & vbcrLf & vbcrLf strBody = strBody & "Time: " & time & " " & vbcrLf & vbcrLf 'Adds the referring page and the IP details of sender to the mail body (optional) 'strBody = strBody & "Requested from " & Request.ServerVariables("http_referer") & vbCrLf 'strBody = strBody & "Requested by " & Request.ServerVariables("REMOTE_ADDR") _ '& " at " & Request.ServerVariables("REMOTE_HOST") _ '& ". Server time: " & time & " " & Date & " " & vbcrlf 'note the '_' continuation character, if spreading code to the next line for readability 'send the mail ************************************************** ******* 'initialise the error response string strErr = "" 'Const cdoBasic = 1 'Use basic (clear-text) authentication. Const cdoSendUsingPort = 2 Dim iMsg Dim iConf Dim Flds Dim sMsg On Error Resume Next set iMsg = CreateObject("CDO.Message") set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields With Flds '.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic '.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = strAutoMailbox '.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strEmPass .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strHost .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 100 .Update End With With iMsg Set .Configuration = iConf .To = strTo 'To .From = strFrom 'From: if strReplyTo <> "" then .ReplyTo = strReplyTo 'add ReplyTo: if exists end if if strCC <> "" then .CC = strCC 'add CC if exists end if if strBCC <> "" then .BCC = strBCC 'add BCC if exists end if .Subject = strSubject 'add the subject .TextBody = strBody 'add the body (this is plain text) .Send 'send the mail strErr = Err.description 'response (empty if no problems) 'note: Err.number was not available when tested live End With 'clean up Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing 'prepare report flag and string if strErr = "" then mailFailed = false strErr = "Your mail has been sent." else mailFailed = true end if %> <% 'report result 'response.write (strErr) Response.Redirect "http://www.lmunet.edu/is/thanks.asp" %> <%end if%>