<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% if Request.QueryString("posted")<>"" then realname=Request.Form("name") email=Request.Form("email") company=Request.Form("company") designation=Request.Form("designation") tel=Request.Form("tel") address=Request.Form("address") city=Request.Form("city") state=Request.Form("state") country=Request.Form("country") services=Request.Form("services") brief=Request.Form("brief") Dim msg msg= "" msg=msg & "" msg = msg & "" msg = msg & " " msg = msg & "" msg = msg & "" msg = msg & " " msg = msg & "

" msg=msg &" Name: "&realname&" " msg=msg &" Email: "&email&" " msg=msg &" Company: "&company&" " msg=msg &" Designation: "&designation&" " msg=msg &" Telephone No: "&tel&" " msg=msg &" Address: "&Address&" " msg=msg &" City: "&city&" " msg=msg &" State: "&state&" " msg=msg &" Country: "&Country&" " msg=msg &" Product: "&services&" " msg=msg &" Requirement: "&brief&" " msg=msg &" Sincerely,"&" " msg=msg &realname&" " msg = msg & "

" Subject="Feedback from "& realname from=email 'Response.Write(msg) ' Response.End() Set Mail = Server.CreateObject("SMTPsvg.Mailer") Mail.RemoteHost = "localhost" Mail.Port = 25 Mail.ContentType = "Text/Html" Mail.FromAddress =email'"llim@llim.edu" '"llim@vsnl.com" Mail.ReplyTo = email Mail.FromName = realname 'alumni@llim.edu Mail.AddRecipient "Moorthys","info@moorthys.com" Mail.Subject = Subject Mail.BodyText = msg if not Mail.SendMail then Response.Write "An error occurred: " & Err.Description else 'response.Write("Thanks for showing interest. We will revert to you in short span of time.") mesg="Thanks for showing interest. We will revert to you in short span of time." End If mes="Your feedback has been sent successfully" %> <% end if %>