<% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/db/content.mdb") & ";pwd=px32026;" Set RecSet = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM nyheter WHERE id = " & Request.QueryString("id") & " " RecSet.Open SQL, Connect count = 0 Do Until RecSet.EOF OR count = 1 %> <%=Replace(RecSet("text"),vbCrlf,"
")%> <% count = count + 1 RecSet.movenext Loop RecSet.Close Connect.Close Set RecSet=Nothing Set Connect=Nothing %>