:: Yogesh Mishra classes :: Contact Us

<%@ Language=VBScript %> <% Response.Buffer=true %> :: Yogesh Mishra classes :: Contact Us - Route Map <% dim txtname,txtmail,txtphone,gender,txtaddress,city,txtpincode,state,country,txtquery 'on error resume next if Request.ServerVariables("REQUEST_METHOD") = "POST" then txtname = Request.Form("txtname") txtmail = Request.Form("txtmail") txtphone = Request.Form("txtphone") gender= Request.Form("gender") txtaddress = Request.Form("txtaddress") city = Request.Form("city") txtpincode= Request.Form("txtpincode") state = Request.Form("state") country = Request.Form("country") txtquery = Request.Form("txtquery") txtip=request.servervariables("REMOTE_ADDR") txtbody="Full Name : " & txtname & vbcrlf & _ "Gender : " & gender & vbcrlf & _ "Address : " & txtaddress & vbcrlf & _ "City : " & city & vbcrlf & _ "Pin : " & txtpincode & vbcrlf & _ "State : " & state & vbcrlf & _ "Country : " & country & vbcrlf & _ "Email : " & txtmail & vbcrlf & _ "Phone : " & txtphone & vbcrlf & _ "Query : " & txtquery & vbcrlf & _ "IP ADDRESS : " & txtip & vbcrlf & "Get Info from IP: http://www.geobytes.com/IpLocator.htm" 'response.write txtbody sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpserver") = "localhost" cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.From = txtmail cdoMessage.To = "info@yogeshmishraclasses.com" cdoMessage.Subject = "Contact us Submission" cdoMessage.TextBody = txtbody 'ON ERROR RESUME NEXT 'cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing response.redirect "thanks_contact.htm" end if %>

Home

About Us

Programs

Faculty & Jobs

Facility & Rewards

Results

Ymcian

Contact Us