% Option Explicit %> <% Dim stage Dim msg Dim Name Dim Street Dim City Dim State Dim Post Dim Country Dim Telephone Dim Fax Dim email Dim Queries Dim fromWho Dim toWho Dim Subject Dim Body Dim strhtml Dim CdoMailFormatMIME Dim CdoBodyFormatHTML Dim myMail stage=Trim(Request.QueryString("stage")) msg=Trim(Request.QueryString("msg")) Name=Trim(Request.Form("Name")) Street=Trim(Request.Form("Street")) City=Trim(Request.Form("City")) State=Trim(Request.Form("State")) Post=Trim(Request.Form("Post")) Country=Trim(Request.Form("Country")) Telephone=Trim(Request.Form("Telephone")) Fax=Trim(Request.Form("Fax")) email=Trim(Request.Form("email")) Queries=Trim(Request.Form("Queries")) If stage="1" Then 'Send mail function SUB sendMail( fromWho, toWho, Subject, Body ) SET myMail = Server.CreateObject("CDONTS.Newmail") myMail.From = fromWho myMail.To = toWho myMail.Subject = Subject myMail.MailFormat=CdoMailFormatMIME myMail.BodyFormat=CdoBodyFormatHTML myMail.Body = strhtml myMail.Send SET myMail = Nothing END SUB fromWho = email toWho = "babumather@yahoo.com" Subject = "Contact Details form www" Body = strhtml 'Message body strhtml = "" strhtml = strhtml & "
" strhtml = strhtml & "Contact Details
" strhtml = strhtml & "Name : "&Name&"
" strhtml = strhtml & "Street : "&Street&"
" strhtml = strhtml & "City : "&City&"
" strhtml = strhtml & "State : "&State&"
" strhtml = strhtml & "Post : "&Post&"
" strhtml = strhtml & "Country : "&Country&"
" strhtml = strhtml & "Telephone : "&Telephone&"
" strhtml = strhtml & "Fax : "&Fax&"
" strhtml = strhtml & "email : "&email&"
" strhtml = strhtml & "Queries : "&Queries&"
" strhtml = strhtml & "![]() |
![]() |
||||
![]() |
![]() |
||||
![]() |
|||||
|
|||||
Home | Origin | Potential | Objective | Facilities | Governing Boady |Achivements | Major Tournaments | Statistics | Fixture | Profile | Stadium Profile | Media | Album | Fans Club | Contact Us | National Football League-India | Destination Kerala |
|||||