<%@ Language="VBScript"%> <% subject = Request.Form("subject") sendto = Request.Form("recipient") confirm = Request.Form("redirect") name = Request.Form("name") date1 = Request.Form("date1") month1 = Request.Form("month1") year1 = Request.Form("year") sex = Request.Form("sex") marital = Request.Form("marital") res_address = Request.Form("res_address") phone = Request.Form("phone") cell = Request.Form("cell") email = Request.Form("email") qualification = Request.Form("qualification") city = Request.Form("city") state1 = Request.Form("state") district = Request.Form("district") reason = Request.Form("reason") prvs = Request.Form("prvs") govts = Request.Form("govts") prvc = Request.Form("prvc") govtc = Request.Form("govtc") add = Request.Form("address") activity = Request.Form("activity") other_business = Request.Form("other_business") brief = Request.Form("brief") ref1 = Request.Form("reference1") ref2 = Request.Form("reference2") promotionplan = Request.Form("promotionplan") other_promotion = Request.Form("other_promotion") infra = Request.Form("infra") sqfeet = Request.Form("sqfeet") location = Request.Form("location") your_views = Request.Form("your_views") know_about = Request.Form("know_about") franchise = Request.Form("franchise") text="" text = text + vbcrlf + subject text = text + vbcrlf + "Name : " + name text = text + vbcrlf + "Date Of Birth : " + month1 + ", " + date1 + " " + year1 text = text + vbcrlf + "Sex : " + sex text = text + vbcrlf + "Marital Status : " + marital text = text + vbcrlf + "Residential Address : " + res_address text = text + vbcrlf + "Phone No : " + phone text = text + vbcrlf + "Cell : " + cell text = text + vbcrlf + "E-Mail : " + email text = text + vbcrlf + "Qualification : " + qualification text = text + vbcrlf + "Place Where You Wish to" text = text + vbcrlf + " City : " + city text = text + vbcrlf + " State : " + state1 text = text + vbcrlf + " District : " + district text = text + vbcrlf + "Reason For Selecting Location : " + reason text = text + vbcrlf + "Potentiality Of The Place : " text = text + vbcrlf + " No Of Schools - Private : " + prvs text = text + vbcrlf + " Government : " + govts text = text + vbcrlf + " No of Colleges - Private : " + prvc text = text + vbcrlf + " Government : " + govtc text = text + vbcrlf + "Address : " + add text = text + vbcrlf + "Present Business Activity : " + activity text = text + vbcrlf + "if other specify : " + other_business text = text + vbcrlf + "Brief details : " + brief text = text + vbcrlf + "References 1 : " + ref1 text = text + vbcrlf + "References 2 : " + ref2 text = text + vbcrlf + "Promotion Planned : " + promotionplan text = text + vbcrlf + "Any other specify : " + other_promotion text = text + vbcrlf + "Infrastructure : " + infra text = text + vbcrlf + "Square Feet : " + sqfeet text = text + vbcrlf + "Location : " + location text = text + vbcrlf + "Your Views About UCMAS : " + your_views text = text + vbcrlf + "How Did You Come To Know UCMAS : " + know_about text = text + vbcrlf + "Are You An UCMAS Franchise/CI if yes givedetais : " + franchise Set objMail = Server.CreateObject("CDONTS.Newmail") objMail.To = sendto objMail.cc = sendto objMail.From = email objMail.Subject = subject objMail.Body = text objMail.Send Set objMail = Nothing Response.Redirect confirm %>