Imports AXMMCFGLib Partial Class _Default Inherits System.Web.UI.Page Protected objMessageDB As XMessageDB Protected objMessage As XMessage Protected objConstants As XConstants Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load objMessageDB = New XMessageDB objConstants = New XConstants objMessageDB.Open() Dim output As New output.InnerHtml += "Open: ERROR #" & objMessageDB.LastError & _ " (" & objMessageDB.GetErrorDescription(objMessageDB.LastError) & ")" output.InnerHtml += "<BR><BR>" If (objMessageDB.LastError = 0) Then objMessage = objMessageDB.Create() output.InnerHtml += "Create: ERROR #" & objMessageDB.LastError & _ " (" & objMessageDB.GetErrorDescription(objMessageDB.LastError) & ")" output.InnerHtml += "<BR><BR>" & vbCrLf If (objMessageDB.LastError = 0) Then output.InnerHtml += "Message Created with ID: " & objMessage.ID output.InnerHtml += "<BR><BR>" & vbCrLf objMessage.Direction = objConstants.MESSAGEDIRECTION_OUT objMessage.Recipient = "+31647134225" objMessage.Status = objConstants.MESSAGESTATUS_PENDING objMessage.Type = objConstants.MESSAGETYPE_SMS objMessage.Body = "Message Created with ASP.NET(VB)" objMessageDB.Save(objMessage) output.InnerHtml += "Save: ERROR #" & objMessageDB.LastError & _ " (" & objMessageDB.GetErrorDescription(objMessageDB.LastError) & ")" output.InnerHtml += "<BR><BR>" & vbCrLf End If objMessageDB.Close() End If End Sub End Class
Dim output As New
output
new
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)