<%
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("SAU.mdb")
Set objconn = Server.CreateObject("ADODB.Connection")
objconn.open ConnectString
dim regd
regd=request.Form("regd")
if request.Form("Submit")<>"" then
sql = "select * from BTECGRD2 where FROLL='" & regd & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,objconn,3, 3
if not rs.eof then
'response.Redirect("gradesheet.php
?regd=" & regd )
url = "gradesheet.php
?regd=" & regd &""
response.write("")
else
msg="Wrong Regd. No."
end if
rs.close
set rs=Nothing
end if
%>
Siksha O Anusandhan University
B. Tech. Result 2nd Semester 2009
<%=msg%>
(If there is any pop up problem ,then use control key + Click search Button to get result.)
