Ecco "in breve" di cosa si tratta ...

una scritta - 5 record estratti - una scritta ...
5 record estratti ... una scritta ! ecc...

Vorrei ottenere questo semplice risultato ma ...
sto impazzendo a forza di fare tentativi a vuoto

Preciso che sto parlando di creazione file di tipo .txt attraverso asp.

IL MEGLIO CHE SON RIUSCITO A FARE ...
... E' ottenere questo risultato .. la creazione di un file valoriprint5.txt contentente il seguente scritto:

valori 1
11 - 34 - 54 - 67 - 77 - 80
valori 2
11 - 06 - 19 - 24 - 26 - 66
valori 3
02 - 71 - 59 - 38 - 33 - 68
valori 4
07 - 32 - 53 - 64 - 26 - 78
valori 5
29 - 68 - 45 - 81 - 66 - 33
valori 6
25 - 36 - 29 - 32 - 27 - 60
valori 7
14 - 27 - 21 - 29 - 37 - 62
valori 8
49 - 33 - 24 - 74 - 32 - 80
valori 9
49 - 61 - 73 - 82 - 86 - 56
valori 10
49 - 34 - 46 - 65 - 53 - 32

Quando io invece vorrei una cosa di questo tipo :

valori 1
11 - 34 - 54 - 67 - 77 - 80
11 - 06 - 19 - 24 - 26 - 66
02 - 71 - 59 - 38 - 33 - 68
07 - 32 - 53 - 64 - 26 - 78
29 - 68 - 45 - 81 - 66 - 33
valori 2
25 - 36 - 29 - 32 - 27 - 60
14 - 27 - 21 - 29 - 37 - 62
49 - 33 - 24 - 74 - 32 - 80
49 - 61 - 73 - 82 - 86 - 56
49 - 34 - 46 - 65 - 53 - 32

Il codice finora impostato e' il seguente ...

-------------------------------------------------------------------
set objConn = server.CreateObject("ADODB.Connection")
objConn.ConnectionString="DRIVER={MySQL (*.sql)};"&_
"DBQ=Server.MapPath(miodb.sql)"

objConn.ConnectionString = "DSN=miodsn"
objConn.Open

Set objRS = Server.CreateObject("ADODB.Recordset")

SQL= "SELECT * FROM valori "

objRS.Open SQL, objConn

Do while not objRS.EOF

primo = objRS("primo")
secondo = objRS("secondo")
terzo = objRS("terzo")
quarto = objRS("quarto")
quinto = objRS("quinto")
sesto = objRS("sesto")

numero=objRS("numero")

ForAppending = 8

strPath = Server.MapPath("valoriprint5.txt")

Set objFSO = _
Server.CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists(strPath) then
set objOpenFile = _
objFSO.OpenTextFile(strPath, ForAppending)

Else

Set objOpenFile = _
objFSO.CreateTextFile(strPath)

end if


objOpenFile.WriteLine
objOpenFile.WriteLine "valori"&" "& numero
objOpenFile.WriteLine


objOpenFile.WriteLine primo & " - " & secondo & " - " & terzo & " - " & quarto & " - " & quinto & " - " & sesto


objOpenFile.Close
Set objOpenFile = Nothing
set objFSO = Nothing



objRS.MoveNext
loop


objRS.Close
set objRS=nothing


------------------------------------------------------------------

GRAZIE INFINITE se mi dite con esempio di codice (meglio se si tratta di una modifica sul mio ) Come posso ottenere il mio attuale obiettivo sopraesposto.


THANKS 1 thousand

tom