LED

 

 

<% If Request.Form="" Then %>
 
First Name* :  
Last Name*
Company Name* :  
Email* :  
Telephone* :  
How can we contact you ?* :   Email Phone
Comment* :  
 
 
Please fill in all fields marked with *

<% Else 'receive the form values Dim sfirstName, slastname, scompanyName, sEmail, stelephone, showtocontact, scomment sfirstName=Request.Form("firstName") slastName=Request.Form("lastName") scompanyName=Request.Form("companyName") sEmail=Request.Form("email") stelephone=Request.Form("telephone") showtocontact=Request.Form("howtocontact") scomment=Request.Form("comment") ' create the HTML formatted email text Dim sEmailText sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "HTML Email" sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "Email Inquiry from: " & sfirstName & " " & slastname & "
" sEmailText = sEmailText & "Email: " & sEmail & "
" sEmailText = sEmailText & "Telehpone: " & stelephone & "
" sEmailText = sEmailText & "How can we contact you:" & showtocontact & "
" sEmailText = sEmailText & "Comment:" & scomment & "
" sEmailText = sEmailText & "Date & Time:" & Now() & "
" sEmailText = sEmailText & "IP :" & Request.ServerVariables("REMOTE_ADDR") sEmailText = sEmailText & "
" sEmailText = sEmailText & "" sEmailText = sEmailText & "" 'create the mail object 'Set NewMailObj=Server.CreateObject("CDONTS.NewMail") 'NewMailObj.From=sEmail 'This is the email of the feedback sender 'NewMailObj.To = "magnetikmind@gmail.com" 'change to your address 'NewMailObj.Subject = "Feedback" 'NewMailObj.Body = sEmailText 'you need to add these 2 lines for the mail to be sent in HTML format 'remove them and the email will be sent in Text format 'NewMailObj.BodyFormat = 0 'NewMailObj.MailFormat = 0 'NewMailObj.Send 'Set NewMailObj=Nothing Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = Sfirstname & " " & slastname Mailer.FromAddress= SEmail Mailer.RemoteHost = "localhost" Mailer.AddRecipient "TechTeam", "sales@techteam.in" Mailer.Subject = "Email Inquiry" Mailer.ContentType = "text/html" Mailer.BodyText = sEmailText if Mailer.SendMail then 'Response.write "
Thank you for sending your feedback.
" 'Response.write "We will get back to you if necessary.
" Response.Redirect "http://www.techteam.in/thankyou.html" else Response.Write "Mail send failure. Error was " & Mailer.Response end if Set Mailer = Nothing End If %>