Subversion Repositories DevTools

Rev

Rev 3899 | Rev 3917 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3899 Rev 3900
Line 64... Line 64...
64 
   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
 64 
   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
65 
      outPkgInfo.Item("pv_id") = rsTemp.Fields("pv_id")
 65 
      outPkgInfo.Item("pv_id") = rsTemp.Fields("pv_id")
66 
      outPkgInfo.Item("pkg_id") = rsTemp.Fields("pkg_id")
 66 
      outPkgInfo.Item("pkg_id") = rsTemp.Fields("pkg_id")
67 
      outPkgInfo.Item("pkg_name") = rsTemp.Fields("pkg_name")
 67 
      outPkgInfo.Item("pkg_name") = rsTemp.Fields("pkg_name")
68 
      outPkgInfo.Item("pkg_version") = rsTemp.Fields("pkg_version")
 68 
      outPkgInfo.Item("pkg_version") = rsTemp.Fields("pkg_version")
- 
 
 69 
      if rsTemp.Fields("v_ext") <> "" Then
69 
      outPkgInfo.Item("v_ext") = rsTemp.Fields("v_ext")
 70 
        outPkgInfo.Item("v_ext") = rsTemp.Fields("v_ext")
- 
 
 71 
      Else
- 
 
 72 
        outPkgInfo.Item("v_ext") = ""
- 
 
 73 
      End If
70 
   End If
 74 
   End If
71 
 
 75 
 
72 
   rsTemp.Close
 76 
   rsTemp.Close
73 
   Set rsTemp = nothing
 77 
   Set rsTemp = nothing
74 
End Sub
 78 
End Sub