Problem Downloading Docs from the Web

[tmar]

Below is the loop process of the code I wrote that goes through my database and finds items missing documents and then downloads them from a website, copies the files to a public folder and then updates the database.

Each time I run it the code processes one item but then times out on the second pass. The first pass is always successful and the second pass always locks up. I put a note at the code where it locks.

Also, each time the second pass is working on a different item. For instance the first time I run it the program successfully executes item A but fails on item B. The next time it succesfully executes item B but fails on item C (and so on).

Dim conn As New SqlConnection(sqlconn)
Dim command As New SqlCommand(ssql, conn)
conn.Open()
Dim reader As SqlDataReader = command.ExecuteReader
While reader.Read
ikey = reader.GetValue(0)
item = reader.GetValue(1).ToString
fsn = fs & item & ".pdf"
If svalid(fsn) = 0 Then
checkdir("Q:\EDocs\" & item)
fn = "Q:\EDocs\" & item & "\" & item & ".pdf"
If Not File.Exists(fn) Then
filereader.DownloadFile(fsn, fn) 'this is where it times out on the second pass.
runsql("insert into tccsitemdocs values(" & ikey & ",'Document','q:\EDocs\" & item & "\" & item & ".pdf')")
i = i + 1
Else
filereader.DownloadFile(fsn, "q:\EDocs\" & item & "\" & item & "z1.pdf")
runsql("insert into tccsitemdocs values(" & ikey & ",'Document','Spec Sheet','q:\EDocs\" & item & "\" & item & "z1.pdf')")
i = i + 1
End If
Else : End If

End While

 

[tmar]

I should also add that the error I get in Debug is:

WebException was unhandled:
The operation has timed out.

This error occures on the filereader.downloadfile(fsn,fn) line as mentioned above.