%@ 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
%>
originally: http://www.oclc.org/research/contact/default.asp