<%@ Language=VBScript %> <% 'tscalise@pittsburgharts.org 'tscalise@pittsburgharts.org 'tscalise@pittsburgharts.org 'tscalise@pittsburgharts.org 'tscalise@pittsburgharts.org 'tscalise@pittsburgharts.org 'tscalise@pittsburgharts.org 'tscalise@pittsburgharts.org if Request.Form.Count > 0 then if not ( (trim(Request.Form("email")) & "t" = "t") or (trim(Request.Form("message")) & "t" = "t") or (trim(Request.Form("subject")) & "t" = "t") ) then strError="" dim objMail set objMail = Server.CreateObject ("CDONTS.NewMail") objMail.From = "lkaras@pittsburgharts.org" 'modified on 7/26/2004 objMail.To = "lkaras@pittsburgharts.org" 'modified on 7/26/2004 objMail.Subject = "Comments: " & Request.Form("subject") message = Request.Form("message") if Request.Form("respreq") = "on" then message = message & vbcrlf & "Response requested." & vbcrlf end if message = message & vbcrlf & "From:" & Request.Form("name") message = message & vbcrlf & "Email:" & Request.Form("email") objMail.Body = message objMail.Send 'Un REM when ready to send email!!!!!!!!!!!!! Set objMail = Nothing Response.Redirect "centerthanksupdates.asp" else if trim(Request.Form("subject") & "t") = "t" then strError="" elseif trim(Request.Form("message") & "t") = "t" then strError="" else strError="" end if end if end if %> <%=strError%>