%
Dim sql,rs,msg,aa,id
id=request.querystring("id")
'submit=request.form("Check")
if id <> "" then
sql="select * from student where regno='" & Trim(id) & "'"
set rs1= Server.CreateObject("ADODB.Recordset")
rs1.Open sql,con,2,3
if rs1.eof = true then
regno=""
name=""
branch=""
year1=""
msg="Please Enter Valid Registration/Roll No"
else
regno=rs1("regno")
name=rs1("name")
branch=rs1("branch")
year1=rs1("syear")
'response.Redirect("alumni_mail.php")
end if
end if
%>