OpenSRS API Integration for XML
OpenSRS API Integration for XML
OpenSRS API Integration for XML
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
'' Else ' let's wait <strong>for</strong> a while<br />
'' PauseSeconds 3<br />
'' If xmlHttp.readyState = 4 Then ' check again<br />
''<br />
If xmlHttp.Status = 200 Then<br />
''<br />
cTmp = xmlHttp.response<strong>XML</strong>.xml<br />
''<br />
SendRequest<strong>XML</strong> = True<br />
''<br />
End If<br />
'' End If<br />
'' End If<br />
Exit Function<br />
err_SendRequest<strong>XML</strong>:<br />
If IsObject(xmlHttp) Then Set xmlHttp = Nothing<br />
ErrNumber = Err.Number<br />
ErrDescription = "Run-time ERROR in SendRequest<strong>XML</strong>. " &<br />
Err.Description<br />
Err.Clear<br />
End Function<br />
Private Function Read<strong>XML</strong>Document(ByVal pDocName As String, ByRef<br />
p<strong>XML</strong>Doc As MS<strong>XML</strong>2.DOMDocument) As Boolean<br />
On Error GoTo err_Read<strong>XML</strong>Document<br />
Read<strong>XML</strong>Document = False<br />
p<strong>XML</strong>Doc.async = False<br />
p<strong>XML</strong>Doc.resolveExternals = False<br />
refered DTD<br />
' otherwise you must have a