% dim from from = "UCMAS@yahoo.com" dim receipt '"rrshah_g@gear.elecon.com" receipt = "ucmasusa@yahoo.com" dim rs_Rec,Str set mail = server.CreateObject("softartisans.smtpmail") ' mail.FromAddress = from mail.FromName = "UCMAS-USA" ' mail.ContentType = 1 mail.AddRecipient receipt '"exp_order@gear.elecon.com" 'mail.AddBCC "exp_order@gear.elecon.com" mail.Subject = "Student Application" if request.Form("name") <> "" then mail.BodyText = "Name :" & request.form("name") & vbCrLf &_ "Date Of Birth :" & request.form("date1") & " " & request.form("month1") & " " & request.form("year") & vbCrLf &_ "SEX :" & request.form ("sex") & vbCrLf &_ "Mother Tongue :" & request.form("mother_tongue")& vbCrLf &_ "Name Of The Father :" & request.form("name_father") & vbCrLf &_ "Occupation :" & request.form("occ_father") & vbCrLf &_ "Name Of The Mother :" & request.form("name_mother") & vbCrLf &_ "Residential Address :" & request.form("res_address") & vbCrLf &_ "Telephone Number Office :" & request.form("off_phone") & vbCrLf &_ "Telephone Residence :" & request.form("res_phone") & vbCrLf &_ "EMail :" & request.form("email") & vbCrLf &_ "Name Of the school :" & request.form("name_school") & vbCrLf & vbCrLf &_ "Standard :" & request.form("standard") & vbCrLf &_ "Monthly Family Income :" & request.form("inclome") & vbCrLf & vbCrLf &_ "Details Of Brothers & Sisters " & vbCrLf &_ "Name 1 :" & request.form("name1") & vbCrLf &_ "AGE :" & request.form("age1") & vbCrLf &_ "Name 2 :" & request.form("name2") & vbCrLf &_ "AGE :" & request.form("age2") & vbCrLf &_ "Name 3 :" & request.form("name3") & vbCrLf &_ "AGE :" & request.form("age3") mail.RemoteHost = "172.16.144.250" if mail.SendMail then Response.Write "Mail has been sent" else Response.Write "Error in sending mail" end if response.Redirect("studentapplication.asp") end if %>
| |
|
||||||||||
|
|||||||||||