显示 函数未定义 0x80040E14 错误

我 的代码运行到：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="public/appsetting.asp"-->
<!--#include file="public/ado.asp"-->
<!--#include file="public/components.asp"-->
<!--#include file="public/customers.asp"-->

<%
   dim  id,sql,uid
   id=request.QueryString("pid")
   uid="GetCustomerID()"
   
   sql="delete * from t_shopcar where c_code="& uid &" and p_code='"& id &"'"
   datasource.ExecuteCommand(sql)
   
   Set datasource=Nothing
   response.Redirect("shopcar.asp")
%>

就出错了，显示
Microsoft JET Database Engine
错 误 码：0x80040E14

错误代码：cmd.Execute
错误描述：表达式中 'GetCustomerID' 函数未定义。

可是我的GetCustomerID'是写在
<!--#include file="public/customers.asp"-->
里的<%
   function GetCustomerName()
     Dim infos,arr
     infos =Request.Cookies("LoginInfo")
     
     if infos <> "" then
        arr=split(infos,",")
        GetCustomerName=arr(1)
     else
        GetCustomerName=""
     end if
   end function
   
   function GetCustomerID()
      Dim infos,arr
      infos=Request.Cookies("LoginInfo")
      
      if infos<>"" then
         arr=split(infos,",")
         GetCustomerID=arr(0)
      else
         GetCustomerID=-1
      end if
   end function
%>

请帮忙看看啊