A
ashish
Dim oCon
Err.Clear
Set oCon = Server.CreateObject("ADODB.Connection")
If Err.Number = 0 Then
'//
'// Open an ADODB.Connection to the folder URL
'//
oCon.Provider = "ExOLEDB.DataSource"
Err.Clear
oCon.Open strFolderURL
If Err.Number = 0 Then
'//
'// Create CDO.Message object
'//
Dim oMsg
Err.Clear
Response.Write "<br> Open Success =" & strMsgURL & "<br>"
Set oMsg = Server.CreateObject("CDO.Message")
Err.Clear
Set oCon = Server.CreateObject("ADODB.Connection")
If Err.Number = 0 Then
'//
'// Open an ADODB.Connection to the folder URL
'//
oCon.Provider = "ExOLEDB.DataSource"
Err.Clear
oCon.Open strFolderURL
If Err.Number = 0 Then
'//
'// Create CDO.Message object
'//
Dim oMsg
Err.Clear
Response.Write "<br> Open Success =" & strMsgURL & "<br>"
Set oMsg = Server.CreateObject("CDO.Message")