Simple Loop problem

[tarctor]

Private Sub cmdret_Click()
Dim n As Integer
n = "1"
myurl = "http://www.site.com/cgi-bin/locate.pl?id=" & n

Do While n < 1000
n = n + 1


WebBrowser1.Navigate2 (myurl)
Inet1.Protocol = icHTTP
Inet1.Execute CStr(txturl), "GET /"

While Inet1.StillExecuting
DoEvents

Wend
call command1
Loop
'MsgBox "Done"
End Sub


What I am trying to do is loop through and change "n" each time until "n" reaches 1000. Must call command 1 each time "n" changes. Any help is appreciated.

[blindlizard]

Private Sub cmdret_Click()
Dim n As Integer

For n = 1 to 1000
n = n + 1
myurl = "http://www.site.com/cgi-bin/locate.pl?id=" & n

WebBrowser1.Navigate2 (myurl)
Inet1.Protocol = icHTTP
Inet1.Execute CStr(txturl), "GET /"

While Inet1.StillExecuting
DoEvents
Wend

Call command1
Next n
'MsgBox "Done"
End Sub

[tarctor]

For some rreason When I use this "n" is changing from 1 to 3 to 5 and so on. What am I missing?

[WorkHorse]

"Next n" automatically increments the value of n in a For..Next loop, so you don't need n=n+1 inside the loop. That just adds an extra increment causing the For...Next loop to increment by Step 2. :)

[blindlizard]

Crap, I can't believe I missed that. Here try this:Private Sub cmdret_Click()
Dim n As Integer

For n = 1 to 1000
myurl = "http://www.site.com/cgi-bin/locate.pl?id=" & n

WebBrowser1.Navigate2 (myurl)
Inet1.Protocol = icHTTP
Inet1.Execute CStr(txturl), "GET /"

While Inet1.StillExecuting
DoEvents
Wend

Call command1
Next n
'MsgBox "Done"
End Sub