Set objMail = Server.CreateObject(CDO.Message)
objMail.From = Request.QueryString(from)
objMail.To = Request.QueryString(to)
objMail.Subject = Request.QueryString(subject)
objMail.HTMLBody = Request.QueryString(message)
should be Set objMail = Server.CreateObject("CDO.Message")
objMail.From = Request.QueryString("from")
objMail.To = Request.QueryString("to")
objMail.Subject = Request.QueryString("subject")
objMail.HTMLBody = Request.QueryString("message")