%@ LANGUAGE=VBScript %> <% frmName=request.form("Name") %> <% frmEmail=request.form("Email") %> <% frmService=request.form("Hotel") %> <% frmComments=request.form("Comments") %> <% if not session("flag") = 10 then session("flag") =10 Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = request.form("Email") objCDO.To = "info@sriniwas.net" ' change this to your address objCDO.Cc = request.form("Email") objCDO.Bcc = "manisha@uwsols.com" ' change this to another address for a bcc if needed or delete if not needed objCDO.Subject = "SriNiwas.net website form data" ' change this to the required e-mail subject. For each Item in Request.Form ' Loop through each Form item if Item <> "B1" then ' this removes the button value form the message strMsgInfo = strMsgInfo & Item & ": " & Request.Form(Item) & vbCrLf end if next strMsgHeader = "Feedback Form information follows..." & vbCrLf & "*************" & vbCrLF strMsgFooter = vbCrLf & "*************" objCDO.Body = strMsgHeader & strMsgInfo & strMsgFooter objCDO.BodyFormat = 1 objCDO.MailFormat = 1 objCDO.Send set objCDO=nothing end if %>
|