<% Response.redirect "https://www.oclc.org/programsandresearch/feedback/form.asp?project=Repository" %>

/research/publications/feedback.asp

originally: http://www.oclc.org/research/publications/feedback.asp

<% Dim strErrMsg strErrMsg = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then ' validate If IsNull(Request("comments")) or IsEmpty(Request("comments")) or Trim(Request("comments")) = "" Then strErrMsg = "Please complete all required fields." End If If IsNull(Request("email")) or IsEmpty(Request("email")) or Trim(Request("email")) = "" Then strErrMsg = "Please complete all required fields." End If ' create message If strErrMsg = "" Then Dim strMessage, strSubject, strName If IsNull(Request("name")) or IsEmpty(Request("name")) or Trim(Request("name")) = "" Then strName = "None given" Else strName = Request("name") End If strSubject = "OCLC Research Publications Repository Feedback" strMessage = "Name: " + strName + vbcrlf + "Email: " + Request("email") + vbcrlf + vbcrlf + "Comments: " + vbcrlf + Request("comments") Set objMsg = Server.CreateObject("CDO.Message") objMsg.From = Request("email") objMsg.To = "hyatts@oclc.org" objMsg.CC = "bolander@oclc.org" objMsg.Subject = strSubject objMsg.TextBody = strMessage objMsg.Send Set objMsg = Nothing Response.Redirect "thanks.htm" Response.end End If End If %>

OCLC Research Publications Repository feedback

We look forward to receiving your feedback and comments.

<% If Not strErrMsg = "" Then %> <% End If %>
<%=strErrMsg%>
 
Name:
" size="35" type="text" name="name" />
 
*E-mail address: (required)
" size="35" type="text" name="email" />
 
*Comments: (required)
 
<% If (Not(IsEmpty(Request("project"))) And (Request("project") <> "" )) Then%> <% End If %> <% If (Not Request.ServerVariables("QUERY_STRING") = "") Or (Not IsEmpty(Request("query"))) Then %> <% End If %> <% Session.Abandon %>