Ir para conteúdo
Fórum Có
Entre para seguir isso  

gravar session

Recommended Posts

Olá algum poderia me dar uma luz

faço uma consulta no access retorna 5 registros, preciso gravar em uma session com fazer ?

estou fazendo assim, só que só grava o primeiro registro

cnpath="DBQ=" & Server.MapPath("dados/banco.mdb")
DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DataSource
Set RS = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = conn "SELECT top 5 * FROM carta order by Rnd(Int(Now()*[id_carta])-Now()*[id_carta]); "

Set fso = CreateObject("Scripting.FileSystemObject")
Set textStreamObject = fso.CreateTextFile(Server.Mappath("log.txt"),true,false)

textStreamObject.WriteLine (rs("titulo") )
if not rs.eof then
while not rs.eof

Set textStreamObject = Nothing
Set fso = Nothing

titulo: <%=rs("titulo")%><br>

end if


Compartilhar este post

Link para o post
Compartilhar em outros sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.


×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Entre para seguir isso  

  • Criar Novo...