<% Option Explicit Dim Cnn,Rs set Cnn=server.CreateObject("Adodb.Connection") set Rs=server.CreateObject("Adodb.Recordset") Cnn.Open ("Driver={Microsoft Access Driver (*.mdb)};Dbq=" & server.MapPath ("..\dbhilal\dbhilalwj.mdb")) Rs.open"Select * from Tbl_Quiz" Response.Write "
"& Rs("Str_Nmae") &"
" %>