WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/common/common_subs.asp

   If pkgName <> "" Then
       testUrl = testUrl & pkgName & "/" & pkgVersion
   End If
   Set oXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.3.0")
+  ' Use error handling in case dpkg_archive is not available
   ' Use HEAD to test existence
+  Err.Clear
+  On Error Resume Next
   oXMLHTTP.Open "HEAD", testUrl, False
   oXMLHTTP.Send
+  ' Do not combine the next two If statments - it will not work
+  If Err.Number = 0  Then
-  If oXMLHTTP.Status = 200 Then
+    If oXMLHTTP.Status = 200 Then
-    testArchiveAccessPkg = True
+        testArchiveAccessPkg = True
+    End If
   End If
+  On Error Goto 0
 End Function
 %>

Subversion Repositories DevTools