<body>
<form>
<label>
<input>
</label>
<label>
<input>
</label>
</form>
<% dim rs,conn
set conn = server.createObject("ADODB.connection")
stringconn = "provider = microsoft.jet.oledb.4.0; data source ="&server.MapPath("DataKTHT.mdb")& ";"
conn.open stringconn
set rs = server.CreateObject("ADODB.recordset")
ma = request.Form("txttim")
sql = "select * from Mon_Hoc where MaMon LIKE '%"&ma&"%' "
rs.open sql,conn
%>
<table>
<tr>
<td>Mã Môn </td>
<td>Tên Môn </td>
<td>Số ĐVHT </td>
</tr>
<% do while not rs.eof%>
<tr>
<td><%=rs("MaMon")%></td>
<td><%=rs("TenMon")%></td>
<td><%=rs("SoDVHT")%></td>
</tr>
<%
rs.movenext
loop
rs.close
%>
</table>
</body>
Bạn đang đọc truyện trên: Truyen2U.Pro