Expand|Select|Wrap|Line Numbers
- <%
- Dim name, phone,city, email, mail
- name=Request.Form("name")
- phone=Request.Form("phone")
- city=Request.Form("city")
- email=Request.Form("email")
- Response.Write("Name: " & name & "<br />")
- Response.Write("Phone: " & phone & "<br />")
- Response.Write("City: " & city & "<br />")
- Response.Write("Email: " & email & "<br />")
- Set myMail=CreateObject("CDO.Message")
- myMail.Subject="IIT paper"
- mail.To = "prabodhan17@gmail.com"
- mail.From = Request.Form("name")
- myMail.Send
- set myMail=nothing
- Response.Write("Mail Sent!")
- %>