<%Response.Buffer=true%> <% str= str & "" str= str & "" str= str & "" str= str & "" str= str & "" str= str & "" str= str & "" str= str & "" str= str & "" str= str & "" str= str & "" str= str & "" str= str & "" str= str & "" str= str & "" str= str & "" str= str & "" str= str & "" str= str & "" str= str & "" str= str & "" str= str & "" str= str & "" str= str & "" str= str & "" str= str & "" str= str & "" str= str & "" str= str & "" str= str & "" str= str & "" str= str & "
Name" str= str & Request.Form("fname") str= str & "
Company" str= str & Request.Form("company") str= str & "
Title" str= str & Request.Form("designation") str= str & "
E-mail" str= str & Request.Form("txtemail") str= str & "
Phone " str= str & " No. " str= str & Request.Form("contact") str= str & "
State/Province" str= str & Request.Form("state") str= str & "
Country" str= str & Request.Form("country") str= str & "
" //Response.Write str '----- following mail code to send the information of the person who has downloaded the file dim myFileSystem Dim myMail dim a,b Set myMail = CreateObject("CDONTS.NewMail") file_str =request.form("filename") a=len(file_str) b=a-4 file_str=left(file_str,b) 'set myRecipeint = Request.Form("txtRecipeint") myRecipeint = "cmstslhq@cms.co.in" mySender = "cmstslhq@cms.co.in" ' Subject for the mail ------------------- strsubject = Request.Form("fname")&" has downloaded Technical Specification of "&file_str&"." 'message body at the top of the mail myMail.From=mySender myMail.To=myRecipeint myMail.Subject=strsubject myMail.BodyFormat=0 myMail.MailFormat=0 myMail.Body=str myMail.Send set mymail=nothing '---------------- end of first mail ------------------------------------------- '--------------- following code is to send mail to the downloader Set myMail = CreateObject("CDONTS.NewMail") ' email id of downloader ----------------------------- myRecipeint = trim(Request.Form("txtemail")) mySender = "cmstslhq@cms.co.in" ' Subject for the mail ------------------- strsubject = "Thank you for downloading Technical Specification of "&file_str&"." 'message body of the mail strmsg = strmsg &"" strmsg = strmsg &"" strmsg = strmsg &"

" strmsg = strmsg &"

" strmsg = strmsg &" Thank You for visiting CMS Traffic Systems Ltd.

" strmsg = strmsg &"

" strmsg = strmsg &" This mail has been sent to you with reference to your download requested from cmstraffic.com.
" strmsg = strmsg &" For more information, email us at " strmsg = strmsg &"cmstslhq@cms.co.in

" strmsg = strmsg &"
" ' to add more line fill the text in following "" you can use HTML TAGS WITH ' also like strmsg = strmsg &"" myMail.From=mySender myMail.To=myRecipeint myMail.Subject=strsubject myMail.BodyFormat=0 myMail.MailFormat=0 myMail.Body=strmsg myMail.Send set mymail=nothing '--------------- end of email code --------------------------------------------- %>