server.createobject failed

Hello,
I am fairly new to ASP and am trying to use the following code to send an appointment to a users outlook exchange calendar (hosted on another server) but i keep getting a server.createobject failed. Can anyone help me with this? I found the code online and am trying to get it to suit my needs but keep getting errors...

Thank you so much!
~B

<%
Set CDOSession = Server.CreateObject("MAPI.Session")
CDOSession.Logon "", "", False, True, 0, True, "server address goes here"

Set ApptItem = CDOSession.GetDefaultFolder(CdoDefaultFolderCalendar).Messages.Add

ApptItem.StartTime = "01/10/2010 9:00:00 AM"
ApptItem.EndTime = "01/10/2010 11:00:00 AM"
ApptItem.AllDayEvent = False
ApptItem.ReminderMinutesBeforeStart = 30
ApptItem.ReminderSet = True
ApptItem.Location = "Meeting Room 5"
ApptItem.Text = "Description text goes here"
ApptItem.Subject = "Meeting subject goes here"
ApptItem.Recipients.Add "address goes here"
ApptItem.Recipients.Resolve
ApptItem.MeetingStatus = 1

ApptItem.Update True, True

'ApptItem.Send

Set ApptItem = Nothing
CDOSession.Logoff
%>