% Dim dbc Dim strConn Dim strpath strConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.mappath("parkland.mdb") Set dbc = Server.CreateObject("ADODB.Connection") dbc.open strConn Set rsprod = Server.CreateObject("ADODB.Recordset") rsprod.Open "news", dbc, adOpenForwardOnly, adLockReadOnly, adCmdTable %>
<%= rsprod("newstext") %> |
![]() |
![]() |