<%
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") &" "
%>
|
|