<%option explicit%> <% dim db dim sql Set db = Server.CreateObject ("ADODB.Connection") db.ConnectionString="PROVIDER=Microsoft.Jet.OLEDB.4.0;" & "DATA SOURCE=C:\db3.mdb" db.open Dim RS Set RS = Server.CreateObject ("ADODB.Recordset") 'FIRST TABLE mca1 if Request.Form("radio1")="v6" then RS.Open "SELECT * FROM MCAI", db end if 'FIRST TABLE mca2 if Request.Form("radio1")="v8" then RS.Open "SELECT * FROM MCAII", db end if 'FIRST TABLE CS1 if Request.Form("radio1")="v1" then RS.Open "SELECT * FROM CSEI", db end if 'FIRST TABLE CS2 if Request.Form("radio1")="v3" then RS.Open "SELECT * FROM CSEII", db end if 'FIRST TABLE IT1 if Request.Form("radio1")="v7" then RS.Open "SELECT * FROM ITI", db end if 'FIRST TABLE IT2 if Request.Form("radio1")="v4" then RS.Open "SELECT * FROM ITII", db end if 'FIRST TABLE ECE1 if Request.Form("radio1")="v2" then RS.Open "SELECT * FROM ECEI", db end if 'FIRST TABLE ECE2 if Request.Form("radio1")="v5" then RS.Open "SELECT * FROM ECEII", db end if if Request.Form("text1")<>""then if isnumeric(Request.Form("text1"))then sql = "A=" & Request.Form("text1") RS.MoveFirst RS.Find sql,1,1 If RS.eof = True Then Response.Write("NOY AVAIL") Else 'MCA I YEAR------------------------------------- if Request.Form("radio1")="v6" then Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

En.No	" Response.Write (RS.Fields ("A")) Response.Write"	Name	" Response.Write (RS.Fields ("B")) Response.Write "	Class	MCA I SEM
CA 501	CA 503	CA 505	CA 521	MA 501	MA 503	MT 501	MT 503
" Response.Write (RS.Fields ("C")) Response.Write"	" Response.Write (RS.Fields ("D")) Response.Write"	" Response.Write (RS.Fields ("E")) Response.Write"	" Response.Write (RS.Fields ("F")) Response.Write"	" Response.Write (RS.Fields ("G")) Response.Write"	" Response.Write (RS.Fields ("H")) Response.Write"	" Response.Write (RS.Fields ("I")) Response.Write"	" Response.Write (RS.Fields ("J")) Response.Write"

" Response.Write"

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

SGP	CRSGP	SGPA	CGP	CRCGP	CGPA
" Response.Write (RS.Fields ("K")) Response.Write"	" Response.Write (RS.Fields ("L")) Response.Write"	" Response.Write (RS.Fields ("M")) Response.Write"	" Response.Write (RS.Fields ("N")) Response.Write"	" Response.Write (RS.Fields ("O")) Response.Write"	" Response.Write (RS.Fields ("P")) Response.Write"

" END IF 'MCA II YEAR------------------------------------- if Request.Form("radio1")="v8" then Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

En.No	" Response.Write (RS.Fields ("A")) Response.Write"	Name	" Response.Write (RS.Fields ("B")) Response.Write "	Class	MCA III SEM
CA 504	CA 601	CA 603	CA 605	CA 621	CA 623	MA 605
" Response.Write (RS.Fields ("C")) Response.Write"	" Response.Write (RS.Fields ("D")) Response.Write"	" Response.Write (RS.Fields ("E")) Response.Write"	" Response.Write (RS.Fields ("F")) Response.Write"	" Response.Write (RS.Fields ("G")) Response.Write"	" Response.Write (RS.Fields ("H")) Response.Write"	" Response.Write (RS.Fields ("I")) Response.Write"

" Response.Write"

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

SGP	CRSGP	SGPA	CGP	CRCGP	CGPA
" Response.Write (RS.Fields ("J")) Response.Write"	" Response.Write (RS.Fields ("K")) Response.Write"	" Response.Write (RS.Fields ("L")) Response.Write"	" Response.Write (RS.Fields ("M")) Response.Write"	" Response.Write (RS.Fields ("N")) Response.Write"	" Response.Write (RS.Fields ("O")) Response.Write"

" END IF '------------------------------------------------- 'B.Tech I YEAR CSE------------------------------------- '-------------------------------------------------- if Request.Form("radio1")="v1" then Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

En.No

" Response.Write (RS.Fields ("A")) Response.Write"

Name

" Response.Write (RS.Fields ("B")) Response.Write "

Class

B.Tech.CSE I SEM

CS 101

CS 121

CY 101

CY 121

EC 102

GE 101

GE 103

HS 101

MA 101

ME 101

ME 121

PY 101

PY 121

" Response.Write (RS.Fields ("C")) Response.Write"

" Response.Write (RS.Fields ("D")) Response.Write"

" Response.Write (RS.Fields ("E")) Response.Write"

" Response.Write (RS.Fields ("F")) Response.Write"

" Response.Write (RS.Fields ("G")) Response.Write"

" Response.Write (RS.Fields ("H")) Response.Write"

" Response.Write (RS.Fields ("I")) Response.Write"

" Response.Write (RS.Fields ("J")) Response.Write"

" Response.Write (RS.Fields ("K")) Response.Write"

" Response.Write (RS.Fields ("L")) Response.Write"

" Response.Write (RS.Fields ("M")) Response.Write"

" Response.Write (RS.Fields ("N")) Response.Write"

" Response.Write (RS.Fields ("O")) Response.Write"

" Response.Write"

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

SGP	CRSGP	SGPA	CGP	CRCGP	CGPA
" Response.Write (RS.Fields ("P")) Response.Write"	" Response.Write (RS.Fields ("Q")) Response.Write"	" Response.Write (RS.Fields ("R")) Response.Write"	" Response.Write (RS.Fields ("S")) Response.Write"	" Response.Write (RS.Fields ("T")) Response.Write"	" Response.Write (RS.Fields ("U")) Response.Write"

" END IF '------------------------------------------------- 'B.Tech I YEAR ECE------------------------------------- '-------------------------------------------------- if Request.Form("radio1")="v2" then Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

En.No

" Response.Write (RS.Fields ("A")) Response.Write"

Name

" Response.Write (RS.Fields ("B")) Response.Write "

Class

B.Tech.ECE I SEM

ME 103

ME 123

CY 101

CY 121

EE 101

GE 101

GE 103

HS 101

MA 101

ME 101

ME 121

PY 101

PY 121

" Response.Write (RS.Fields ("C")) Response.Write"

" Response.Write (RS.Fields ("D")) Response.Write"

" Response.Write (RS.Fields ("E")) Response.Write"

" Response.Write (RS.Fields ("F")) Response.Write"

" Response.Write (RS.Fields ("G")) Response.Write"

" Response.Write (RS.Fields ("H")) Response.Write"

" Response.Write (RS.Fields ("I")) Response.Write"

" Response.Write (RS.Fields ("J")) Response.Write"

" Response.Write (RS.Fields ("K")) Response.Write"

" Response.Write (RS.Fields ("L")) Response.Write"

" Response.Write (RS.Fields ("M")) Response.Write"

" Response.Write (RS.Fields ("N")) Response.Write"

" Response.Write (RS.Fields ("O")) Response.Write"

" Response.Write"

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

SGP	CRSGP	SGPA	CGP	CRCGP	CGPA
" Response.Write (RS.Fields ("P")) Response.Write"	" Response.Write (RS.Fields ("Q")) Response.Write"	" Response.Write (RS.Fields ("R")) Response.Write"	" Response.Write (RS.Fields ("S")) Response.Write"	" Response.Write (RS.Fields ("T")) Response.Write"	" Response.Write (RS.Fields ("U")) Response.Write"

" END IF '------------------------------------------------- 'B.Tech I YEAR IT------------------------------------- '-------------------------------------------------- if Request.Form("radio1")="v7" then Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

En.No

" Response.Write (RS.Fields ("A")) Response.Write"

Name

" Response.Write (RS.Fields ("B")) Response.Write "

Class

B.Tech.IT I SEM

CS 101

CS 121

CY 101

CY 121

EC 102

GE 101

GE 103

HS 101

MA 101

ME 101

ME 121

PY 101

PY 121

" Response.Write (RS.Fields ("C")) Response.Write"

" Response.Write (RS.Fields ("D")) Response.Write"

" Response.Write (RS.Fields ("E")) Response.Write"

" Response.Write (RS.Fields ("F")) Response.Write"

" Response.Write (RS.Fields ("G")) Response.Write"

" Response.Write (RS.Fields ("H")) Response.Write"

" Response.Write (RS.Fields ("I")) Response.Write"

" Response.Write (RS.Fields ("J")) Response.Write"

" Response.Write (RS.Fields ("K")) Response.Write"

" Response.Write (RS.Fields ("L")) Response.Write"

" Response.Write (RS.Fields ("M")) Response.Write"

" Response.Write (RS.Fields ("N")) Response.Write"

" Response.Write (RS.Fields ("O")) Response.Write"

" Response.Write"

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

SGP	CRSGP	SGPA	CGP	CRCGP	CGPA
" Response.Write (RS.Fields ("P")) Response.Write"	" Response.Write (RS.Fields ("Q")) Response.Write"	" Response.Write (RS.Fields ("R")) Response.Write"	" Response.Write (RS.Fields ("S")) Response.Write"	" Response.Write (RS.Fields ("T")) Response.Write"	" Response.Write (RS.Fields ("U")) Response.Write"

" END IF '------------------------------------------------- 'B.Tech II YEAR CSE------------------------------------- '-------------------------------------------------- if Request.Form("radio1")="v3" then Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

En.No	" Response.Write (RS.Fields ("A")) Response.Write"	Name	" Response.Write (RS.Fields ("B")) Response.Write "	Class	B.Tech.CSE III SEM
CS 201	CS 203	CS 205	CS 221	CS 223	EC 211	EC 221	EC 223	GE 201	GE 203	MA 201	MT 202
" Response.Write (RS.Fields ("C")) Response.Write"	" Response.Write (RS.Fields ("D")) Response.Write"	" Response.Write (RS.Fields ("E")) Response.Write"	" Response.Write (RS.Fields ("F")) Response.Write"	" Response.Write (RS.Fields ("G")) Response.Write"	" Response.Write (RS.Fields ("H")) Response.Write"	" Response.Write (RS.Fields ("I")) Response.Write"	" Response.Write (RS.Fields ("J")) Response.Write"	" Response.Write (RS.Fields ("K")) Response.Write"	" Response.Write (RS.Fields ("L")) Response.Write"	" Response.Write (RS.Fields ("M")) Response.Write"	" Response.Write (RS.Fields ("N")) Response.Write"

" Response.Write"

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

SGP	CRSGP	SGPA	CGP	CRCGP	CGPA
" Response.Write (RS.Fields ("O")) Response.Write"	" Response.Write (RS.Fields ("P")) Response.Write"	" Response.Write (RS.Fields ("Q")) Response.Write"	" Response.Write (RS.Fields ("R")) Response.Write"	" Response.Write (RS.Fields ("S")) Response.Write"	" Response.Write (RS.Fields ("T")) Response.Write"

" END IF '------------------------------------------------- 'B.Tech II YEAR ECE------------------------------------- '-------------------------------------------------- if Request.Form("radio1")="v5" then Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

En.No	" Response.Write (RS.Fields ("A")) Response.Write"	Name	" Response.Write (RS.Fields ("B")) Response.Write "	Class	B.Tech.ECE III SEM
EC 201	EC 203	EC 205	EC 221	EC 223	EC 225	EE 201	EE 221	GE 201	GE 203	MA 201	MT 201
" Response.Write (RS.Fields ("C")) Response.Write"	" Response.Write (RS.Fields ("D")) Response.Write"	" Response.Write (RS.Fields ("E")) Response.Write"	" Response.Write (RS.Fields ("F")) Response.Write"	" Response.Write (RS.Fields ("G")) Response.Write"	" Response.Write (RS.Fields ("H")) Response.Write"	" Response.Write (RS.Fields ("I")) Response.Write"	" Response.Write (RS.Fields ("J")) Response.Write"	" Response.Write (RS.Fields ("K")) Response.Write"	" Response.Write (RS.Fields ("L")) Response.Write"	" Response.Write (RS.Fields ("M")) Response.Write"	" Response.Write (RS.Fields ("N")) Response.Write"

" Response.Write"

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

SGP	CRSGP	SGPA	CGP	CRCGP	CGPA
" Response.Write (RS.Fields ("O")) Response.Write"	" Response.Write (RS.Fields ("P")) Response.Write"	" Response.Write (RS.Fields ("Q")) Response.Write"	" Response.Write (RS.Fields ("R")) Response.Write"	" Response.Write (RS.Fields ("S")) Response.Write"	" Response.Write (RS.Fields ("T")) Response.Write"

" END IF '------------------------------------------------- 'B.Tech II YEAR IT------------------------------------- '-------------------------------------------------- if Request.Form("radio1")="v4" then Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

En.No	" Response.Write (RS.Fields ("A")) Response.Write"	Name	" Response.Write (RS.Fields ("B")) Response.Write "	Class	B.Tech.IT III SEM
CS 201	CS 203	CS 207	CS 221	EC 211	EC 221	EC 223	GE 201	GE 203	MA 201	MT 202
" Response.Write (RS.Fields ("C")) Response.Write"	" Response.Write (RS.Fields ("D")) Response.Write"	" Response.Write (RS.Fields ("E")) Response.Write"	" Response.Write (RS.Fields ("F")) Response.Write"	" Response.Write (RS.Fields ("G")) Response.Write"	" Response.Write (RS.Fields ("H")) Response.Write"	" Response.Write (RS.Fields ("I")) Response.Write"	" Response.Write (RS.Fields ("J")) Response.Write"	" Response.Write (RS.Fields ("K")) Response.Write"	" Response.Write (RS.Fields ("L")) Response.Write"	" Response.Write (RS.Fields ("M")) Response.Write"

" Response.Write"

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

SGP	CRSGP	SGPA	CGP	CRCGP	CGPA
" Response.Write (RS.Fields ("N")) Response.Write"	" Response.Write (RS.Fields ("O")) Response.Write"	" Response.Write (RS.Fields ("P")) Response.Write"	" Response.Write (RS.Fields ("Q")) Response.Write"	" Response.Write (RS.Fields ("R")) Response.Write"	" Response.Write (RS.Fields ("S")) Response.Write"

" END IF 'Response.Write RS.Fields ("author") 'Response.Write RS.Fields ("au_id") 'Response.Write "

---

" end if else Response.Write("VALUEis non numeric ") end if else Response.Write("TEXT BOX is empty PLZ WRITE some thing") end if %>