%@language="VBScript"%> <% Response.Buffer = true %> <% msubmit = Request.Form("Submit") success = "N" if ( msubmit = "Submit" ) then set mymail = server.CreateObject("CDONTS.NewMail") mymail.To = "info@mahadhikar.org" mymail.BCC = "webteam@on-lyne.com" if not ( Request.Form("email") = "" ) then mymail.From = Request.Form("email") else mymail.From = request.form("name") end if if not ( Request.Form("name") = "" ) then mymail.Subject = "Feedback from - " & ucase(Request.Form("name")) else mymail.Subject = "Feedback from website" end if mbody = "" mbody="
" mbody=mbody&"
" end if if not ( Request.Form("city") = "" ) then mbody = mbody & "City : " & Request.Form("city") & " " end if if not ( Request.Form("phone") = "" ) then mbody = mbody & "Telephone : " & ucase(Request.Form("phone")) & " " end if if not ( Request.Form("email") = "" ) then mbody = mbody & "E-Mail : " & Request.Form("email") & " " end if if not ( Request.Form("comments") = "" ) then mbody = mbody & "Comments : " & Request.Form("comments") & " " end if mbody=mbody&" |
![]() |
|
| Copyright 2004 - Mahadhikar || Disclaimer Clause | Site
maintained by ON-LYNE
|