%@LANGUAGE="VBSCRIPT"%> <% if (cStr(Request("Submit")) <> "") Then Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = Request.Form("email") objCDO.To = "rhigman@renaissant.com" objCDO.CC = "" objCDO.Subject = "Lars Website Message" objCDO.Body = Request.Form("comments") objCDO.Send() Set objCDO = Nothing Response.Redirect("events.asp") End If %>
|
|||||||||||||||||||||||||||||