>>cURL = ALLTRIM(THIS.caddress) + "/" + ALLTRIM(THIS.casppage) + "?ID=" + ALLTRIM(THIS.cID) + ; >>"&To=" + ALLTRIM(THIS.cto) + ; >>"&From=" + ALLTRIM(THIS.cFrom) + ; >>"&Subject=" + ALLTRIM(THIS.cSubject) + ; >>"&Body=" + ALLTRIM(THIS.cBody) >>this.olecontrol1.openURL(cURL) >>>>
>>cURL = "http://www.MailDomain.com/MailThis.asp?ID=ABC123" + ; >>"&To=Reciever@there.com" + ; >>"&From=Sender@Here.com" + ; >>"&Subject=What the mail is about" + ; >>"&Body=Blah, Blah, Blah" >> >>this.olecontrol1.openURL(cURL) >>>>
>>if ValidateClient( request.QueryString("ID") ) >> dim objCDO >> Set objCDO = Server.CreateObject("CDONTS.NewMail") >> >> objCDO.From = request.QueryString("From") >> objCDO.To = request.QueryString("To") >> objCDO.Subject = request.QueryString("Subject") >> >> objCDO.BodyFormat = 1 ' 0 = HTML, 1 = Plain >> objCDO.MailFormat = 1 ' 0 = MIME, 1 = Text >> objCDO.importance = 0 ' 0 = High, 1 = Medium, 2 = Low >> >> cBody = replace(request.QueryString("Body"), "/r", chr(13)+chr(10)) >> objCDO.Body = cBody >> >> objCDO.Send >> >> Set objCDO = Nothing >>end if >>>>