<% id = Request.QueryString("id") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("base/dados.mdb") sqlstmt = "SELECT * FROM informacoes WHERE ID = "& Request.QueryString("ID") &"" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, DSNtemp TotalRecs = rs.recordcount x = 0 y = 1000 For x = 1 to y If rs.eof then Exit For Else %>
<%=rs("conteudo")%> |