I have a remote object that must be used by multi ple client possibly at the same time for across the net.My object only has 5 functions .The finally step(function does a sql process that is ran by an exe that I call from my remote object on the server.For some reason when one client is doing this process and the next client tries to just get connect to my object they get a remoting error and can not connect.
Remote object
<code>
Imports System
Imports System.IO
Imports System.Data.SqlClient
Imports Microsoft.ApplicationBlocks.Data
Imports Microsoft.VisualBasic
Imports System.Data.Odbc
Public Class ServiceClass
Inherits MarshalByRefObject
Private m_starttime As DateTime
Private connString As String = "Server=myserever;database=DNuke;uid=;password="
Public Sub New()
Console.WriteLine("ServiceClass created without constructor. Instance hash is " & Me.GetHashCode().ToString())
m_starttime = DateTime.Now
End Sub
Protected Overrides Sub Finalize()
Console.WriteLine("I'm being collected after " & (New TimeSpan(DateTime.Now.Ticks - m_starttime.Ticks)).ToString() & " seconds.")
MyBase.Finalize()
End Sub
Public Function GetServerTime() As DateTime
Console.WriteLine("Time requested by a client.")
Return DateTime.Now
End Function
Public Function CheckFile(ByVal theFile As String) As Boolean
Console.WriteLine("File requested by a client was: " & theFile)
Dim str As String = "C:\Working\"
str = str & theFile
If File.Exists(str) Then
Console.WriteLine("File requested by a client.")
Return True
Else
Return False
End If
End Function
Public Function UnzipFile(ByVal aFile As String) As Boolean
Console.WriteLine("File Unzip requested by a client was: " & aFile)
Dim dataPath As String
dataPath = "C:\Working\pkzipc -extract -over=all C:\Working\" & aFile & ".zip C:\Working\"
Try
Shell(dataPath, AppWinStyle.NormalFocus, True)
Catch ex As Exception
End Try
End Function
Public Function DeleteSql(ByVal DealerID As String) As Boolean
Console.WriteLine("Delete Sql requested by a client was: " & DealerID)
Try
SqlHelper.ExecuteNonQuery(connString, "Autostar_RemoveData", DealerID)
Catch ex As Exception
End Try
End Function
Public Function ConvertDBFtoSql(ByVal fName As String) as String
Console.WriteLine("Converting DBF To Sql requested by a client was: ")
Dim arParms() As SqlParameter = New SqlParameter(20) {}
Dim oConn As New OdbcConnection
'Execute Statement
Dim f1 As String = "C:\Working\" & fName & ".dbf"
Dim f2 As String = "C:\Working\" & fName & ".fpt"
Dim sConnString As String = "Driver={Microsoft Visual FoxPro Driver};UID=;PWD=;SourceDB=C:\Working\;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"
Dim strSQL As String = "Select * From " & fName
Dim cmd As OdbcCommand = New OdbcCommand(strSQL)
Dim oODBCConnection As New OdbcConnection(sConnString)
Try
oODBCConnection.Open()
cmd.Connection = oODBCConnection 'Just add this line
Dim Reader As OdbcDataReader
Reader = cmd.ExecuteReader()
While Reader.Read
arParms(0) = New SqlParameter("@dealer", System.Data.SqlDbType.Char, 8)
arParms(0).Value = Trim(Reader(0))
' @FileName Input Parameter
arParms(1) = New SqlParameter("@stock", System.Data.SqlDbType.Char, 8)
arParms(1).Value = Trim(Reader(1))
' @WebID Input Parameter
arParms(2) = New SqlParameter("@vin", System.Data.SqlDbType.Char, 17)
arParms(2).Value = Trim(Reader(2))
arParms(3) = New SqlParameter("@make", System.Data.SqlDbType.Char, 20)
arParms(3).Value = Reader(3)
arParms(4) = New SqlParameter("@model", System.Data.SqlDbType.Char, 20)
arParms(4).Value = Trim(Reader(4))
arParms(5) = New SqlParameter("@color", System.Data.SqlDbType.Char, 12)
arParms(5).Value = Trim(Reader(5))
arParms(6) = New SqlParameter("@body", System.Data.SqlDbType.Char, 4)
arParms(6).Value = Trim(Reader(6))
arParms(7) = New SqlParameter("@status", System.Data.SqlDbType.Char, 10)
arParms(7).Value = Trim(Reader(7))
arParms(8) = New SqlParameter("@inv", System.Data.SqlDbType.Bit)
arParms(8).Value = Reader(8)
arParms(9) = New SqlParameter("@compcode", System.Data.SqlDbType.Char, 2)
arParms(9).Value = Reader(9)
arParms(10) = New SqlParameter("@year", System.Data.SqlDbType.Char, 4)
arParms(10).Value = Reader(10)
arParms(11) = New SqlParameter("@selling", System.Data.SqlDbType.Decimal, 9)
arParms(11).Value = Reader(11)
arParms(12) = New SqlParameter("@new", System.Data.SqlDbType.Bit)
arParms(12).Value = Reader(12)
arParms(13) = New SqlParameter("@mileage", System.Data.SqlDbType.Int)
arParms(13).Value = Reader(13)
arParms(14) = New SqlParameter("@downpay", System.Data.SqlDbType.Decimal, 9)
arParms(14).Value = Reader(14)
arParms(15) = New SqlParameter("@createdate", System.Data.SqlDbType.DateTime)
arParms(15).Value = Reader(15)
arParms(16) = New SqlParameter("@createtime", System.Data.SqlDbType.DateTime)
arParms(16).Value = Reader(16)
arParms(17) = New SqlParameter("@engine", System.Data.SqlDbType.Char, 15)
arParms(17).Value = Reader(17)
arParms(18) = New SqlParameter("@fuel", System.Data.SqlDbType.Char, 15)
arParms(18).Value = Reader(18)
arParms(19) = New SqlParameter("@trans", System.Data.SqlDbType.Char, 15)
arParms(19).Value = Reader(19)
arParms(20) = New SqlParameter("@features", System.Data.SqlDbType.Char, 15)
arParms(20).Value = Reader(20)
Try
SqlHelper.ExecuteNonQuery(connString, System.Data.CommandType.StoredProcedure, "Autostar_InsertInventory", arParms)
Catch ex As Exception
return "fail"
End Try
End While
Reader.Close()
Catch ex As Exception
return "fail"
Finally
oODBCConnection.Close()
End Try
File.Delete(f1)
File.Delete(f2)
return "pass"
End Function
Public Function RunUpdateSQL(ByVal p1 as String,ByVal p2 as String,ByVal p3 as String) As Boolean
Console.WriteLine("Update Sql was requested by a client")
Dim dataPath As String
dataPath = "C:\InvUpdates\WebInventoryUpdate.exe " & p1 & " " & p2
Try
Shell(dataPath, AppWinStyle.NormalFocus, True)
Catch ex As Exception
return false
End Try
return true
End Function
Public ReadOnly Property InstanceHash() As Integer
Get
Return Me.GetHashCode()
End Get
End Property
End Class
</code>

Server code(exe)
<code>
Imports System
Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.Http

Public Class ServerProcess
<MTAThread()> _
Public Shared Sub Main()
Dim channel As New HttpChannel(13000)
ChannelServices.RegisterChannel(channel)
Dim object1 As New ServiceClass()
' Creates the single instance of ServiceClass. All clients
' will use this instance.
Dim ref1 As ObjRef = RemotingServices.Marshal(object1, "object1uri")
Console.WriteLine("ObjRef.URI: " & ref1.URI)
Console.WriteLine("Running. Press Enter to end publication.")
Console.ReadLine()
' This unregisters the object from publication, but leaves
' the channel listening.
RemotingServices.Disconnect(object1)
Console.WriteLine()
Console.WriteLine("Disconnected the object. Client now receives a RemotingException.")
Console.WriteLine("Press Enter to unregister the channel.")
Console.ReadLine()
' At this point, the ServerClass object still exists. The server
' could republish it.
' This unregisters the channel, but leaves the application
' domain running.
ChannelServices.UnregisterChannel(channel)
Console.WriteLine("Unregistered the channel. Client now receives a WebException.")
' The ServerClass object still exists. The server could
' reregister the channel and republish the object.
Console.WriteLine("The host application domain is still running. Press Enter to stop the process.")
Console.ReadLine()
' The ServiceClass object's Finalize method writes a message to
' the console. A single object will almost always succeed in
' running its Finalize method before the Console is finalized;
' in a larger application, you could ensure that all objects
' finalize before the application ends by calling the garbage
' collector and waiting.
GC.Collect()
GC.WaitForPendingFinalizers()
End Sub

End Class
</code>
Any Ideas as to how to accomplish what I need or Why the app does not run when multiple clients are trying to run at the same time?