Creating text files from a db

[weichenxi]

Greetings.

I'm not very proficient in asp- just started last month. Sorry if this has already been answered- didn't know what to search for.

I'm trying to create multiple text files from a database. I have already created an asp file which returns all of the rows from the db. However, I want the asp to generate one file for each row in the db.

Here is what I want to do...

<%

Const fsoForWriting = 2

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

'Open the text file
Dim objTextStream
Set objTextStream = objFSO.OpenTextFile("C:\Inetpub\wwwroot\dynamic file name", fsoForWriting, True)

'Display the contents of the text file
objTextStream.WriteLine "Hello World"

Here is where the qestion is... how do I get this to write asp here instead of static text?

'Close the file and clean up
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing

%>

Does this make any kind of sence, or am I just confused and/or confusing?

Thanks in advance for any help!!

Best regards,

Rich Wertz

[weichenxi]

Just nevermind the previous post- I got it to work, but there is a problem... The info that is being written to each file is off by 1 line in the database.

The asp created a file named c01s01a01i01.txt, (the name comes from info in the database) but the contents of this file is supposed to be from the same line where the name comes from, but it ends up being content from the line right after. So c01s01a01i02.txt actually has the info from the db corresponding to c01s01a01i03.

I remember hearing at some point in life that this happens, but I don't know how to fix it. Is it a simple problem? Also, has anyone else experienced this?

Thanks for any help and please tell me if I'm not being clear enough. It is so hard to explain!!!

Best,
Rich

[shweta123]

Hi,

Do you want to take filename from Database? Are you stuck there?
You can do it this way
<%
Dim Rs
Dim con
Dim Sql
Sql =".........."

set Rs =con.execute(Sql)
If not Rs.eof then
Dim filename
filepath ="c:\...."
filename=filepath & "\" Rs(0)

Dim objTextStream
Set objTextStream = objFSO.OpenTextFile(filename, fsoForWriting, True)
end if
%>

Hope so this is what you want.

Just nevermind the previous post- I got it to work, but there is a problem... The info that is being written to each file is off by 1 line in the database.

The asp created a file named c01s01a01i01.txt, (the name comes from info in the database) but the contents of this file is supposed to be from the same line where the name comes from, but it ends up being content from the line right after. So c01s01a01i02.txt actually has the info from the db corresponding to c01s01a01i03.

I remember hearing at some point in life that this happens, but I don't know how to fix it. Is it a simple problem? Also, has anyone else experienced this?

Thanks for any help and please tell me if I'm not being clear enough. It is so hard to explain!!!

Best,
Rich

[weichenxi]

Hi shweta123...

Thanks so much for that... I'm not sure how I could have overlooked that!!
It's funny that I write the same thing as "Set RS = DB.Execute (SQL)" and you wrote it different in your reply, but in the end, I forgot the "DB." part and just expected the whole thing to execute, I guess!! ;)

Thank you so much for your help and in case you are wondering, I have now generated all 2,411 files I needed- all from a single asp file of about 186 lines.

I got this assignment yesterday morning and told everyone in the meeting that it would take about a week to produce these files- not sure I'm going to let on that they're done... then I can sit back and watch You Tube for the next 13 days!!!

All hail and sing the praises of ASP!!!

Thanks again!!

-Rich