Ir para conteúdo
Fórum CódigoFonte.net
Entre para seguir isso  
luciano2002

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
RS.open "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") )
textStreamObject.Close
%>
<%
if not rs.eof then
while not rs.eof


Set textStreamObject = Nothing
Set fso = Nothing


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

<%
rs.Movenext
wend
end if
%>

Obrigado

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.

Visitante
Responder

×   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.

Processando...
Entre para seguir isso  

×
×
  • Criar Novo...