WELCOME TO USAIESERVICES <% if trim(request.form("submit")) = "Submit" then dim flag : flag = false dim name : name = request.form("txtName") dim emailId : emailId = request.form("txtEmailId") dim message : message = request.form("txtMessage") dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = name & " <"&emailId &">" objCDO.To = "info@mybimapolicy.com" objCDO.Cc = "satyanaresh@yahoo.com" objCDO.Subject = ""&date objCDO.Body = message objCDO.BodyFormat = 0 ' CdoBodyFormatHTML objCDO.MailFormat = 0 ' CdoMailFormatMime ' Send the message! objCDO.Send flag = true end if %>
Welcome To USASIA IE SERVICES

Your Name        

*

Your E-Mail Id    

*
 

Enter your message

*