Contact Us

HOME | RECOMMEND | BOOKMARK | SITEMAP | CONTACT


	Content & Media
	Knowledge Management
	Outsourcing
	Regional Strategies
	Software Solutions
	Wireless
	Others
	About us
	Contact Us

Contact Us:

More Information
Explosion In E-Commerce
A Decade of KM
Nuts and Bolts of KM
KM Down Under
The 8 Cs of KM success
Rewarding Evolution
Keys to a Successful KM practice
KM industry Success Factor
KM Troughs and Slopes
Knowledge Retention
Pharma Industry
Tata Steel
Executive's Role in KM
KM Perspective
Communities Thrive
Creating Cultures of Learning
KMs Generation Gap
Managing Intelligence
Conversations to Work
Deliberate Approach To KM<

HOME | RECOMMEND | BOOKMARK | SITEMAP | CONTACT

COPYRIGHTS 2003 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 %>