em VBScript

[elogik 0]

Olá...Preciso saber se em VBScript eu posso criar uma função para salvar o resultado de um Recorset do ASP, tipo, eu faço uma conexão com o BD, depois crio um Recordset que me mostra os resultados do BD, aí tem um botao que salva no meu arquivo a imagem que apareceu no resultado do recordset. Alguém aki pode me dar uma luz?[]'Bruno Campos | e-logik

[Valdir Scarin 0]

<%Set Objcn = Server.CreateObject("ADODB.Connection")StrCon = "Provider=Microsoft.jet.oledb.4.0; Data Source=" & Server.MapPath("banco.mdb")Objcn.Open StrConSet Objrs = Server.CreateObject("ADODB.RecordSet")Objrs.ActiveConnection = ObjcnObjrs.CursorLocation = 3Objrs.CursorType = 3Objrs.Open "SELECT * FROM TABELA"strRecord = strRecord & vbNewLine & "<table>"strRecord = strRecord & vbNewLine & "<tr>"For each i in Objrs.Field strRecord = strRecord & vbNewLine & "<td>" & i.name & "</td>"NextstrRecord = strRecord & vbNewLine & "</tr>"Do Until Objrs.eof strRecord = strRecord & vbNewLine & "<tr>" For each i in Objrs.Field strRecord = strRecord & vbNewLine & "<td>" & i.name & "</td>" Next strRecord = strRecord & vbNewLine & "</tr>" Objrs.MoveNextLoopstrRecord = strRecord & vbNewLine & "<table>"Objcn.CloseObjrs.CloseSet Objcn = NothingSet Objrs = Nothing%><script language="vbscript">Set Objfso = CreateObject("Scripting.FileSystemObject")Set ObjArq = Objfso.CreateObject("C:\recordset.txt")ObjArq.WriteLine "<%=strRecord%>"ObjArq.CloseSet ObjArq = NothingSet Objfso = Nothing</script>

[Veber 0]

se for ADOdim x as ADODB.RecordSetx.SAVE "myFile.SQL"