<%@ Language=VBScript %> <%Option Explicit%> <% Response.Redirect "/research/default.htm" %> <%'******************************************************************************* ' File: default.asp ' ' Purpose: Generates a contact us form for Research. ' ' J. Vu 01/10/2005 - Initial version. '********************************************************************************* Dim strFrom, strTo, strCc, strBcc, strSubject, strBody,lngImportance,lngMsgFormat,lngMsgEncode,lngAttEncode,strFileName %> <% If (Not IsEmpty(Request("Submit"))) Then strTo = "bolander@oclc.org" strBcc = "" strFrom = Request("email") strSubject = "Contact OCLC Research" If (Request("name") <> "") Then strBody = "Name: " & Request("name") & "

" End If strBody = strBody & "Message: " & Request("comments") & _ "

Referring URL: " & "" & Session("strReferrer") & "" lngImportance = CdoNormal lngMsgFormat = CdoBodyFormatHTML ' These must be zero so the URL in email is not truncated. lngMsgEncode = CdoMailFormatMime ' These must be zero so the URL in email is not truncated. lngAttEncode = CdoEncodingBase64 strFileName = "" ' Send email that includes URL to access order information for order processing. Call SendEmail(strFrom,_ strTo,_ strCc,_ strBcc,_ strSubject,_ strBody,_ lngImportance,_ lngMsgFormat,_ lngMsgEncode,_ lngAttEncode,_ strFileName) Response.Redirect("thanks.asp") Response.End Else Session("strReferrer") = Request.ServerVariables("HTTP_REFERER") End If %>

/research/contact/default.asp

originally: http://www.oclc.org/research/contact/default.asp

Contact OCLC Research

Use this web form to send an email directly to OCLC Research. We look forward to receiving your feedback and comments.

Name:
*E-mail address: (required)
*Message: (required)