IExplorer Problem, posting

Hi

I have the following code:
Private Sub IE_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
    If InStr(LCase(IE.Document.activeElement.innerHTML), "<input") Then
        modMain.LoadingForm = True
        Dim x As String
        x = vbCrLf & "=== save_form," & IE.Document.activeElement.Form.Action
           
        Loginfo.addCurrentCheck x
        Dim count As Integer
        For count = 1 To IE.Document.activeElement.Form.elements.length
            Loginfo.addSetInput Y & "_form", IE.Document.activeElement.Form.Item(count).Name, IE.Document.activeElement.Form.Item(count).Value
        Next count
    End If
End Sub

If the active element is an input, then a form is being posted. In which case, i want to get the url being posted to and send it to as an arguement  addcurrentcheck.

Its not working but i dont know why.


Thanks,

Todd.
toddismynameAsked:
Who is Participating?
 
gimmeadrinkCommented:
I can see two problems

a)     If InStr(LCase(IE.Document.activeElement.innerHTML), "<input") Then

you wouldnt find "<input xxxx />" in side an element that can be active... that is, i assume that an active element that can cause a navigate are form elements, in which case <input> can not be inside the HTML for that element. I suggest changing it to .outerHTML

b)        For count = 1 To IE.Document.activeElement.Form.elements.length

Id suggest "For count = 0 To ....."

HTH
0
 
toddismynameAuthor Commented:
Thanks a lot for that.... ur a champ... u have no idea how long i wasted on this problem ;p
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.