<%
starttime=timer()
StrSQL="DBQ="+server.mapPath("student.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
'connstr="driver={SQL Server};server=(local);database=master;uid=sa;pwd=;"'
set conn=server.createobject("ADODB.CONNECTION")
'Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
' "Data Source=" & Server.MapPath("student.mdb")
conn.open StrSQL
%>
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from s ,c where s.student_no=c.student_no"
rs.open sql,Conn,1
while not rs.EOF
sno=rs("student_No")
sname=rs("student_Name")
ssex=rs("student_Sex")
sdep=rs("student_department")
cno=rs("c_no")
cname=rs("c_name")
Response.Write (sno+" ")
Response.Write(sname+" ")
Response.Write(ssex+" ")
Response.Write(sdep+" ")
Response.Write(cno+" ")
Response.Write(cname+" &n")
Response.Write("<br>")
rs.MoveNext
wend
rs.close
set rs=nothing
%>