<%@ Language=VBScript %> CMS Traffic Systems Ltd. - Traffic Solutions <% Dim myReferer Dim myRefererArr Dim mailSub ' This is the subject line for mail.... if Request.Form("txtRecipeint") = "" then myReferer = Request.QueryString("referer") %>
<% if Request.QueryString("sub")<>null then subline="" else subline=Request.QueryString("sub") end if %>
CMS TRAFFIC SYSTEMS LIMITED
 Integrating Advance Information Technology to Road Traffic Management
[Use comma as a separator while emailing information to multiple recipients.]
Recipients Email ID :
Senders Email ID :
                      
<% else %> <% Dim myNewsFile myNewsFile = Request.form("hidNewsFile") Dim myNewsFileArr if instr(1,myNewsFile,"/") > 0 then myNewsFileArr = split(myNewsFile,"/") myNewsFile = myNewsFileArr(ubound(myNewsFileArr)) end if dim myFileSystem Dim myMail Dim HTML Set myMail = CreateObject("CDONTS.NewMail") 'set myFileSystem = Server.CreateObject("Scripting.FileSystemObject") 'Set myFile = myFileSystem.GetFile(Server.MapPath(myNewsFile)) 'Set myTextStream = myFile.OpenAsTextStream(1) 'HTML = myTextStream.ReadAll 'myTextStream.Close 'set myTextStream=nothing 'set myFile=nothing 'set myFileSystem=nothing set myRecipeint = Request.Form("txtRecipeint") set mySender = Request.Form("txtSender") if mySender = "" then mySender = "cmstslhq@coms.co.in" end if senderText = senderText & "" senderText = senderText & "" senderText = senderText & "" senderText = senderText & "
" senderText = senderText & "This mail is sent you on behalf of "& Request.Form("txtSender")& "" senderText = senderText & "
" senderText = senderText & "Who wants you to visit the given URL "& Request.Form("TxtMurl") & "
" senderText = senderText & "
" senderText = senderText & "For more information on Traffic Solutions, visit us at http://www.cmstraffic.com or Email us at cmstslhq@cms.co.in
" senderText = senderText & "
" myMail.From=mySender myMail.To=myRecipeint myMail.Subject="CMS Traffic Systems Ltd. - Product Information" myMail.BodyFormat=0 myMail.MailFormat=0 myMail.Body=senderText myMail.Send set mymail=nothing %>
CMS TRAFFIC SYSTEMS LIMITED
 Integrating Advance Information Technology to Road Traffic Management
Message send successfully to - <%=myRecipeint%>
 
Close this window
<% End if %>