HOME  |   RECOMMEND  |  BOOKMARK  |  SITEMAP  |  CONTACT
 
  Content & Media
  Knowledge Management
  Outsourcing
  Regional Strategies
  Software Solutions
  Wireless
  Others
  About us
  Contact Us

HOME  |   RECOMMEND  |  BOOKMARK  |  SITEMAP  |  CONTACT
COPYRIGHTS 2010 TECHSPARKS www.techsparks.com
<% Dim objvmail,strtxtname,strtxtfromemail,strtxtphone,strtxtmessage,strflag,strcompany function getformvalues() strtxtname=Request.Form("name") strcompany=Request.Form("company") strtxtfromemail=Request.Form("email") 'strtxtphone=Request.Form("txtphone") strtxtmessage=Request.Form("message") strtxtmessage= "From : "&strtxtname&"
Email : "&strtxtfromemail&"
Company : "&strcompany&"

"&strtxtmessage end function getformvalues() if LCase(Request.Form("btnSubmit")) = "send" then SendtheMail strtxtname,strtxtfromemail,strcompany,strtxtmessage strflag = 1 end if Function SendtheMail(name,email,company,message) Set objvmail = Server.CreateObject("CDONTS.Newmail") objvmail.Subject = "Contact Us - Techsparks" objvmail.From = email objvmail.To = "omer@v-offshore.com" objvmail.Cc = "rao@v-offshore.com" objvmail.BodyFormat = 0 objvmail.MailFormat = 0 objvmail.Body = message objvmail.Send Set objvmail = Nothing End Function %> <% If strflag <> "" Then Response.Redirect "contactsend.asp" end if %>