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 %>