Another Type Mismatch when calling Sub
Posted on 2007-12-04
Sorry!.. I have tried looking through solutions that have the keywords Type Mismatch but cannot see anything wrong with my code...
I have the following Subroutine within a seperate file that I include within my page...
Dim strSQL, objRS
Dim NotifyDate, StoredDate, RichDate
NotifyDate = Date()
'Chef Menu notification is ID 1 within Nofication_Dates table
strSQL = "GetNotificationDate " & NotifyItem
Set objRS = GetRecordset(strSQL)
Do While Not objRS.EOF
StoredDate = objRS("NextNotifyDate")
If NotifyDate >= StoredDate Then
Call SendNotificationMail("firstname.lastname@example.org","email@example.com","firstname.lastname@example.org","Menu Update Notification","This is a reminder that the Online Menu needs updating.")
NewDate = StoredDate + 7
ExecuteQuery("UpdateNotificationDate " & NotifyItem & ",'" & NewDate & "'")
Set objRS = Nothing
And then within my Page I call the Sub as follows...
<% Call ChefMenusNotify(1)%>
The error I get is as follows:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'ChefMenusNotify'
the funny thing is, is if I have the sub within the same page as what I am calling it from and not reference into the page via an include, it seems to work fine??
Does anyone have any ideas?
.. There are a few other Functions/Subs that this Subsroutine uses which I haven't included within this posting as I haven't actually made any changes to these and know they are in good working order.