<% id=Request.QueryString("send") if id <>"" then yourname=replace(trim(Request.Form("yourname")),"'","") login=replace(trim(Request.Form("login")),"'","") youremail=replace(trim(Request.Form("youremail")),"'","") yourphone=replace(trim(Request.Form("yourphone")),"'","") 'txtEmailTo=replace(trim(Request.Form("txtEmailTo")),"'","") Questions=replace(trim(Request.Form("Questions")),"'","") Set objNewMail = Server.CreateObject("CDO.Message") Set objConfig = Server.CreateObject("CDO.Configuration") Set Confi = objConfig.Fields Confi("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 Confi("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\inetpub\mailroot\pickup" Confi.Update Set objNewMail.Configuration = objConfig 'objNewMail.To = txtEmailTo objNewMail.To = "sales@talkshawk.us" objNewMail.From ="sales@talkshawk.us" objNewMail.Subject = "FeedBack From" & " " & yourname MsgBody = ("") MsgBody = MsgBody & (" ") MsgBody = MsgBody & (" ") MsgBody = MsgBody & (" ") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") 'MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") 'MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") 'MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") 'MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") 'MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("
Feed Back 
Name : "& yourname &" 
Login : "& login & "  
Email :" & youremail &" 
Phone : "& yourphone &" 
Questions : " & Questions & " 
") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") objNewMail.HTMLBody=MsgBody objNewMail.Send set objMail = Nothing Response.Redirect("thankyou.htm") end if %>
 
 
 
News   Alpha and Omega is one of the leading organizations in Pune engaged in sales & service of DESKTOPS/LAPTOPS & NETWORKING PRODUCTS.  
 
 
 
CONTACT US
Alpha & Omega Group
Office No. 13, Prasad Naga, Vadgaonsheri, pune - 14
Mobile : 9371022625
Tel : 020-27035366 / 27035356
E-mail : alfaomega@vsnl.net
 
FeedBack Form
Name
Login
Email
Phone Number
Questions