<% Function ASPEmailSendMail(sMailServer,sToAddress,sFromAddress,sFromName,sSubject,bHTML,sBody) Dim objAspEmail Set objAspEmail = Server.CreateObject("Persits.MailSender") objAspEmail.Host = sMailServer 'Out going SMTP mail server address objAspEmail.From = sFromAddress 'Who the e-mail is from If sFromName <> "" Then objAspEmail.FromName = sFromName End If objAspEmail.AddAddress sToAddress 'Who the e-mail is sent to objAspEmail.Subject = sSubject 'The subject of the e-mail objAspEmail.IsHTML = bHTML objAspEmail.Body = sBody 'The main body of the e-mail 'Send the e-mail If NOT sMailServer = "" Then objAspEmail.Send Set objAspEmail = Nothing ASPEmailSendMail = True End Function %> <% if request.QueryString("op") = "done" Then Response.write "" Response.write "" end if if request.QueryString("op") = "add" Then Dim sFirstName, sLastName, sTitle, sOrganization, sAddress, sCity, sState, sZipCode, sPhoneNumber Dim sFax, sEmailAddress, sBusinessneed, sAreainfo,sRole,sComents, sUrl Dim sMailBody, sMailServer, sToAdddress,sMailSub sMailServer = "mail.bytetechnology.net" 'sToAddress = "info@bytetechnology.net" 'sToAddress = "harsh@bytetechnology.net" sMailSub = "Feedback from ineedwebsite.com" sFirstName = Trim(Request("fname")) sLastName = Trim(Request("lname")) sOrganization = Trim(Request("companyname")) sEmailAddress = Trim(Request("email")) sPhoneNumber = Trim(Request("phone")) sCountry = Trim(Request("country")) sComments= Trim(Request("comments")) ' Define the mail body sMailBody = sMailBody & "
" sMailBody = sMailBody & "" sMailBody = sMailBody & "" sMailBody = sMailBody & "" sMailBody = sMailBody & "" sMailBody = sMailBody & "" sMailBody = sMailBody & "" sMailBody = sMailBody & "" sMailBody = sMailBody & "" sMailBody = sMailBody & "" sMailBody = sMailBody & "
Feedback From Web Site
First name "& sFirstName &"
Last name "& sLastName &"
Company Name"& sOrganization &"
Email address"& sEmailAddress &"
Phone number"& sPhoneNumber &"
Country"& sCountry &"
Comments"& sComments &"
" sMailBody = sMailBody & "
" 'Response.Write sMailBody 'ASPEmailSendMail sMailServer,"paritosh@bytetechnology.net",sEmailAddress,sFirstName,sMailSub,true,sMailBody ASPEmailSendMail sMailServer,"info@ineedwebsite.com",sEmailAddress,sFirstName,sMailSub,true,sMailBody 'ASPEmailSendMail sMailServer,sToAddress,sEmailAddress,sFirstName,sMailSub,true,sMailBody Response.Redirect("contact.asp?op=done") end if %>
 
First Name
Last Name
Company
Email Address
Phone Number
Country
Comments
 
   
 
 
Testimonials
"You have done a fantastic job and you deserve to show this one off. Seriously, I just love it, the whole site. I am so impressed with your creativity and effort.

Thank you! I am very excited about what you have done. Words alone could not express the gratitude that I found you. Thank you for understanding the needs of this !"
- Amit Badlani
 
Tiffany Australia Pandora UK Pandora Bracelets Sale Louis Vuitton Handbags Louis Vuitton Bags Cheap Nike Air Max Pandora Charms Balenciaga Handbags
cheap Luxury Handbags Louis Vuitton Handbags Wholesale Gucci Messenger Bags GUCCI Coco Cicoon Balenciaga Business Handbags True Religion Jeans