<%@ Language="VBScript" %> <% Option Explicit 'Define some variables to be used on page dim pubkey, privkey, challenge, form_response, show_form, form_feedback, message, email_from, email_to, subject, test_captcha, myserver, mydestination, url, body, jmail, sURL, sPath sURL = Request.ServerVariables("HTTP_HOST") sPath = Request.ServerVariables("PATH_INFO") If sURL = "www.bus.umich.edu" Then Response.Redirect "http://www.yaffecenter.org" & sPath End If 'Customize your public and private keys and other variables If sURL = "bus-webdev.bus.umich.edu" Then pubkey = "6LfXVwMAAAAAAJqjYY4tGdzUBHEmzVYbGRPY5nw2" privkey = "6LfXVwMAAAAAAJqQH9CQLYAtH_a6MV5Q44lZUE5q" Else pubkey = "6LfDVwMAAAAAAF1qwfPujWo-aLR7A_LpqhpXFOIK" privkey = "6LfDVwMAAAAAAAOZTjKgZ7SWb2pnrBtnRSidl_1c" End If url = "index.html" %> Submit Working Papers
Michigan Ross School of Business
Yaffe Center for Persuasive Communication
<% '''''''''''''''''''''' BEGIN FUNCTIONS '''''''''''''''''''''''' 'Function to Test Captcha Field challenge = Request.Form("recaptcha_challenge_field") form_response = Request.Form("recaptcha_response_field") function recaptcha_confirm(privkey,rechallenge,reresponse) Dim VarString VarString = _ "privatekey=" & privkey & _ "&remoteip=" & Request.ServerVariables("REMOTE_ADDR") & _ "&challenge=" & rechallenge & _ "&response=" & reresponse Dim objXmlHttp Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP") objXmlHttp.open "POST", "http://api-verify.recaptcha.net/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 'Example Function to Send Email Using CDOSYS function sendEmail( subject, body ) 'send email subject = "Links Form" body = "" _ & "

This Information was submitted from the Yaffe Center Links Form

" _ & "

" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "
Website:" & Server.HtmlEncode(Request.Form("websitename")) & "
Website URL:" & Server.HtmlEncode(Request.Form("websiteurl")) & "
Brief Description:" & Server.HtmlEncode(Request.Form("briefdes")) & "
Submitted By:" & Server.HtmlEncode(Request.Form("submittedby")) & "
Email:" & Server.HtmlEncode(Request.Form("email")) & "
Advertising,Branding and Business:" & Server.HtmlEncode(Request.Form("advertising")) & "
American Culture Studies:" & Server.HtmlEncode(Request.Form("american")) & "
Art and Design:" & Server.HtmlEncode(Request.Form("art")) & "
Communication and Persuasion:" & Server.HtmlEncode(Request.Form("communication")) & "
Film:" & Server.HtmlEncode(Request.Form("film")) & "
Marketing:" & Server.HtmlEncode(Request.Form("marketing")) & "
Media Studies:" & Server.HtmlEncode(Request.Form("media")) & "
Photography:" & Server.HtmlEncode(Request.Form("photo")) & "
Political Communications:" & Server.HtmlEncode(Request.Form("politicial")) & "
Religion:" & Server.HtmlEncode(Request.Form("religion")) & "

" Dim jmail : Set jmail = CreateJMailObject() With jmail .Subject = subject .Body = body '.Sender = "michigan-impact@umich.edu" '.SenderName = "Links Form" .AddRecipient "seyram@umich.edu" .AddRecipient "timoday@bus.umich.edu" .AddRecipient "rajeevba@umich.edu" .AddRecipient "gorlitzl@umich.edu" .AddRecipient "haneya@umich.edu" .ContentType = "text/html" .Execute End With end function '''''''''''''''''''''' END FUNCTIONS '''''''''''''''''''''''' %>

Submit A Link

Submit Your Links, Working Papers And Events

The Yaffe Center links area connects you to web-accessible resources in the area of persuasive communications. We invite you to submit your own links for possible consideration in our expanding list. You may also submit your working papers directly to the site--you can attach the working paper directly to our form. If you come across events that would be of interest to site visitors, please submit them for review.

<% '''''''''' FORM REQUEST, PROCESSED ON POSTBACK '''''''''''''' 'Form posts back to this page form_feedback = "" show_form = true if Request.Form("submit") <> "" AND Request.Form("submit") = "Submit!" then show_form = false 'Required - Correct Captcha Value test_captcha = recaptcha_confirm(privkey, challenge, form_response) 'response.write(test_captcha) if test_captcha <> "" then form_feedback = form_feedback & "

  • The entered CAPTCHA text below does not match, please try again.
  • " show_form = true end if 'No Errors on Page, Send E-mail if show_form = false then call sendEmail( subject, body ) %>

    Your Link was submitted successfully!

    <% end if end if %> <% ''''''''''''''''' END DISPLAY INITIAL FORM ''''''''''''''''''''' end if %>

    I Love New York Logo

    The iconic "I love NY" design became one of the most recognizable and ubiquitous logos of any city in the world.

    I love (heart) NY 1977