<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% dim phoneNumber phoneNumber = request.form("txtPhone") htmlEmail "signups@groovetouch.com","GrooveTouch ","","","GrooveTouch Mobile Updates",phoneNumber Function htmlEmail(eTo,eFrom,eCc,eBcc,eSubject,eBody) 'v3.0 05.07.04 ' ASP on Windows ONLY, requires CDOSYS dim ObjMail Set ObjMail = Server.CreateObject("CDO.Message") ObjMail.From = eFrom ObjMail.ReplyTo = eFrom ObjMail.To = eTo ObjMail.CC = eCc if eBcc<>"" then ObjMail.BCC = eBcc end if ObjMail.Subject = eSubject ObjMail.HTMLBody = eBody ObjMail.Send Set ObjMail= Nothing End Function %>