I'm assuming that the function is not defined thus causing the type mismatch error. I'm also assuming from your code that you intend for this to execute on the server (due to the Response.Write command). The script block you defined with the function does not have the {runat="server"} attribute so it is being sent to the client browser instead. Try changing it to:
<SCRIPT LANGUAGE="vbscript" runat="server">
Function MyTest(cTable)
Dim lReturnValue
lReturnValue = TRUE
MyTest = lReturnValue
End Function
</SCRIPT>
>I was wondering if anyone could help me resolve this error message.
>
>Error Type:
>Microsoft VBScript runtime (0x800A000D)
>Type mismatch: 'MyTest'
>/rick/omnia_act_initializations.inc, line 60
>
>here's the section of /rick/omnia_act_initializations.inc
>
><%
>IF (myCurrent_Record = Session("Unique_ID")) THEN
> response.write("about to call MyTest")
> IF MyTest("CONTACTS") THEN
> ELSE
> END IF
>ELSE
>END IF
>
>
>Line 60 is, of course,
>IF MyTest("CONTACTS") THEN
>
>
>
>The MyTest function is defined as
>
><SCRIPT LANGUAGE="vbscript">
> Function MyTest(cTable)
> Dim lReturnValue
> lReturnValue = TRUE
>
> MyTest = lReturnValue
> End Function
></SCRIPT>
>
>
>Can anyone could help me resolve this error message?
>
>TIA,
>Rick
Michael McLain