<% headline=Request("headline") a="headline='"& headline &"'" sql = "Select * From newstb" sql = sql & " Where " &"("&a&")" Set conn = Server.CreateObject("ADODB.Connection") conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("news.mdb") Set rs = Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,3 %> Flying Tiger
<% Response.WRITE ""&"( " & rs("date") & " ) "& ""&rs("headline") & "
" %>
Response.WRITE "
" & ""& rs("content") &"
" %>