<%@ 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 = "Working Papers" body = "" _ & "

This Information was submitted from the Yaffe Center Submit Working Papers Form

" _ & "

" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "
Date:" & Server.HtmlEncode(Request.Form("Date")) & "
Paper Title:" & Server.HtmlEncode(Request.Form("paperstitle")) & "
Author:" & Server.HtmlEncode(Request.Form("author")) & "
Attach Paper:" & Server.HtmlEncode(Request.Form("attachpaper")) & "
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 = "Working Papers Form" .AddRecipient "seyram@bus.umich.edu" .AddRecipient "timoday@bus.umich.edu" .AddRecipient "rajeevba@bus.umich.edu" .AddRecipient "gorlitzl@umich.edu" .AddRecipient "haneya@umich.edu" .ContentType = "text/html" .Execute End With end function '''''''''''''''''''''' END FUNCTIONS '''''''''''''''''''''''' %>

Submit Working Papers

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 Working Paper was submitted successfully!

    <% end if end if %>
    <% if show_form = true then 'Display errors to user if form_feedback <> "" then %>
      <%=form_feedback%>
    <% end if %> Submit Working Papers
    * = required
    Date: "> (mm/dd/yyyy)
    Title: *
    Author(s): *
    :
    /> /> /> /> /> /> /> /> /> />
    Attach Paper: *

    Copy and paste text into 'Title' box above as a precautionary measure in case your file does not upload properly.

    Email: * ">
     
    <% ' returns string the can be written where you would like the reCAPTCHA function recaptcha_challenge_writer(publickey) recaptcha_challenge_writer = "" & _ "" & _ "" end function dim myCaptcha myCaptcha = recaptcha_challenge_writer(pubkey) response.write(myCaptcha) %>
     
    <% ''''''''''''''''' END DISPLAY INITIAL FORM ''''''''''''''''''''' end if %>

    Ikea Shopping Experience

    Capitalizing on Sweden’s reputation for beautiful furniture design, IKEA presented consumers with a new shopping experience.