SQL Mobile Fails To Send Data To IIS - Merge Replication

This is just too simple. I must be doing something wrong. I have tried everything, redoing the SQLMobile merge publication, setting permissions, and need help ASAP.

The basic test with the http://localhost/sqlmobile/sqlcesa30.dll returns the message:

SQL Server Mobile Server Agent 3.0

I have tried the merge replication with both my local SQL Server 2005 installation and a remote development box. Both instances return the same error.

I am able create and replicate a database using the sample application:

http://msdn2.microsoft.com/en-us/library/ms171908.aspx

However, another simple applications fails to synchronize when simply using the following code block:

Dim repl As New SqlCeReplication()
repl.InternetUrl = "http://xens/sqlmobile/sqlcesa30.dll"
repl.Publisher = "xena"
repl.PublisherDatabase = "SQLMobile"
repl.PublisherSecurityMode = SecurityType.NTAuthentication
repl.Publication = "SQLMobile"
repl.Subscriber = "sqlmobile"
repl.SubscriberConnectionString = _
"Data Source='" + filename + "';Password='';" _
& "Max Database Size='128';Default Lock Escalation ='100';"

repl.AddSubscription(AddOption.CreateDatabase)
repl.Synchronize()


Here is the error message:

Error Code: 80072EE7

Message: A request to send data to the computer running IIS has failed. For more information, see HRESULT.

Minor Err. 28037

Source Microsoft SQL Server 2005 Mobile Edition

--------------------------------------------------------------------------------------

Here is the full code sample:

Imports System.Data.SqlServerCe

Imports System.Text



Public Class Form1

Private engine As SqlCeEngine

Private repl As New SqlCeReplication()

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

engine = New SqlCeEngine()

engine.LocalConnectionString = "Data Source=""sqlmobile.sdf"";Max Database Size=128;Default Lock Escalation =100;"

engine.CreateDatabase() <- First method creates database

engine.Dispose()

engine = Nothing



repl.InternetUrl = "http://xena/sqlmobile/sqlcesa30.dll"

repl.Publisher = "xenaSQL2005"

repl.PublisherDatabase = "SQLMobile"

repl.PublisherSecurityMode = SecurityType.NTAuthentication

repl.Publication = "SQLMobile"

repl.Subscriber = "SQLMobile"

repl.SubscriberConnectionString = "Data Source=""sqlmobile.sdf"";Max Database Size=128;Default Lock Escalation =100;"

Try

'repl.AddSubscription(AddOption.CreateDatabase) <- this method fails also

repl.AddSubscription(AddOption.ExistingDatabase)

repl.Synchronize() <-- Code fails here with the error message shown.

Catch err As SqlCeException

ShowErrors(err)

'MessageBox.Show(err.ToString)

End Try

End Sub

Public Sub ShowErrors(ByVal e As SqlCeException)

Dim errorCollection As SqlCeErrorCollection = e.Errors

Dim bld As New StringBuilder

Dim inner As Exception = e.InnerException

Dim err As SqlCeError

If Not inner Is Nothing Then

MessageBox.Show(("Inner exception: " & inner.ToString()))

End If

' Enumerate each error to a message box.

For Each err In errorCollection

bld.Append((ControlChars.Cr & " Error Code: " & err.HResult.ToString("X")))

bld.Append((ControlChars.Cr & " Message : " & err.Message))

bld.Append((ControlChars.Cr & " Minor Err.: " & err.NativeError))

bld.Append((ControlChars.Cr & " Source : " & err.Source))

' Retrieve the error parameter numbers for each error.

Dim numPar As Integer

For Each numPar In err.NumericErrorParameters

If 0 <> numPar Then

bld.Append((ControlChars.Cr & " Num. Par. : " & numPar))

End If

Next numPar

' Retrieve the error parameters for each error.

Dim errPar As String

For Each errPar In err.ErrorParameters

If [String].Empty <> errPar Then

bld.Append((ControlChars.Cr & " Err. Par. : " & errPar))

End If

Next errPar

MessageBox.Show(bld.ToString())

bld.Remove(0, bld.Length)

Next err

End Sub

End Class

Thanks in advance....