Untitled

<html>
<head>
<title> ASP DATABASE</title>
</head>
<body bgcolor="white" text="black">
<%
Dim adoCon
Dim rsG
Dim strSQL

Set adoCon=Server.CreateObject("ADODB.Connection")

strProvider="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\") + "\Mark.mdb"

Set rsG = Server.CreateObject("ADODB.recordset")
rsG.Open "SELECT * FROM TenthStateBoard",strProvider
flag=0
Response.Write("<table>")
Do While not rsG.EOF


if (trim(Request.Form("RegNo"))=rsG("RegNo")) then
flag=1
Response.Write("<tr><td>")
Response.Write("Reg No <td>")
Response.Write(rsG("RegNo"))

Response.Write("<tr><td>")
Response.Write("Name <td>")
Response.Write(rsG("Name"))

Response.Write("<tr><td>")
Response.Write("Tamil<td>")
Response.Write(rsG("Tamil"))

Response.Write("<tr><td>")
Response.Write("English<td>")
Response.Write(rsG("English"))


Response.Write("<tr><td>")
Response.Write("Maths<td>")
Response.Write(rsG("Maths"))

Response.Write("<tr><td>")
Response.Write("Science<td>")
Response.Write(rsG("Science"))

Response.Write("<tr><td>")
Response.Write("Social<td>")
Response.Write(rsG("Social"))

Response.Write("<tr><td>")
Response.Write("Result<td>")

if ( (rsG("Tamil") < 35) or (rsG("English") < 35) or (rsG("Maths") < 35) or (rsG("Science") < 35) or (rsG("Social") < 35) ) then
Response.Write("Fail")
else
Response.Write("Pass")
end if
end if
rsG.MoveNext
LOOP
Response.Write("</table>")
if flag=0 then
Response.Write("Reg. No Not Appeared for Exam")
end if
rsG.Close
Set rsG=Nothing
Set adoCon=Nothing
%>
</body>
</html>