Try this ...
iRowCount=1
iFirstColLetter=asc("A")
Do While Not rs.eof
sRowNumber=CStr(iRowCount)
For I=0 to rs.Fields.Count -1
sColLetter=chr(iFirstColLetter+I)
txtData= txtData & sColLetter & sRowNumber & "=" &
rs.Fields(I).Value & ";"
Next
writeln txtData
txtData=""
rs.MoveNext
iRowCount=iRowCount+1
Loop
Greetings and happy new year!!!
To unsubscribe, send an email to:
[EMAIL PROTECTED]
| Yahoo! Groups Sponsor | |
|
|
Yahoo! Groups Links
- To visit your group on the web, go to:
http://groups.yahoo.com/group/PlanetSourceCode/
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
