<%
if Request.QueryString("mail") = "yes" then
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromAddress = request( "email" )
strMailHost = "mail.vedant-host.com"
Mailer.RemoteHost = strMailHost
Mailer.Subject = "Enquery from WebSite!"
Mailer.AddRecipient "Anand", "hid@pritigroup.com"
message= "From," & vbcrlf & request("name") & " - " & request("email")
message= message & "Designation :" & request("designation") & "Organisation" & request("org_name") & vbcrlf
message= message & "Address :" & request("add") & vbcrlf & "Telephone :" & request("tel") & vbcrlf
message= message & "Fax :" & request("fax") & vbcrlf & "Email :" & request("email")& vbcrlf
message= message & "Comments :" & request("comments") & vbcrlf
message= message & "Interested in " & request("reprocessed") & vbcrlf & request("garbage_bag") & vbcrlf & request("bin liners") & vbcrlf & request("refuse sacks") & vbcrlf & request("shopping_bags") & vbcrlf & request("construction_film") & vbcrlf & request("carrier_bags") & vbcrlf & request("moulded_art") & vbcrlf & request("other") & vbcrlf & request("specify")
Mailer.BodyText = message
if Mailer.SendMail then
Response.Write "Mail sent sucessfully"
else
Response.Write "Mail send Failure. Error was" & Mailer.Response
end if
end if
%>