G
Guest
i got this far
Sub getvin(ByVal sender As Object, ByVal e As System.EventArgs)
Dim item As DataGridItem = CarGrid.Items(CarGrid.EditItemIndex)
If (Not item Is Nothing) Then
Dim txtVin As TextBox = CType(item.FindControl("VinNumber"),
TextBox)
Dim Vin As String = txtVin.Text
Dim m_url As String
m_url =
"http://harnessone.dataonesoftware.c...?clientName=best-auto-network.com&vinNumbers="
& Vin &
"&bodyStyles=&accessCode=tiskhrtjwebsbgbjyvhezwzukvcctgvmgmxqcqzrvshnqbpenw"
Dim xmldoc As New System.Xml.XmlDocument
Try
xmldoc.Load(m_url)
Dim dstvim As DataSet
dstvim = New DataSet
?????????
Catch Ex As System.Xml.XmlException
RichTextBox1.Text = Ex.Message
End Try
End If
End Sub
Sub getvin(ByVal sender As Object, ByVal e As System.EventArgs)
Dim item As DataGridItem = CarGrid.Items(CarGrid.EditItemIndex)
If (Not item Is Nothing) Then
Dim txtVin As TextBox = CType(item.FindControl("VinNumber"),
TextBox)
Dim Vin As String = txtVin.Text
Dim m_url As String
m_url =
"http://harnessone.dataonesoftware.c...?clientName=best-auto-network.com&vinNumbers="
& Vin &
"&bodyStyles=&accessCode=tiskhrtjwebsbgbjyvhezwzukvcctgvmgmxqcqzrvshnqbpenw"
Dim xmldoc As New System.Xml.XmlDocument
Try
xmldoc.Load(m_url)
Dim dstvim As DataSet
dstvim = New DataSet
?????????
Catch Ex As System.Xml.XmlException
RichTextBox1.Text = Ex.Message
End Try
End If
End Sub