|
File
Library - Search Result
<%
news=request.form("txtnome")
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.recordset")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("../mdb-database/last.mdb")
sql="SELECT * FROM LAST WHERE ucase(news) LIKE '%" & ucase(news) & "%' ORDER BY newsid desc "
rs.Open sql, conn, 3,3
%>
<%
while not rs.EOF
%>
<%
rs.MoveNext
wend
rs.Close
set rs = nothing
%>
|
