Syntax error

Fabu
26 de Marzo del 2004
Alguien me pude ayudar, tengo el siguiente codigo
***************************************************************************************
<%
'Dim Conn1,rsPromo,sqlText1,clv_cte,tpo_cte,clv_tpo_cte,precio
function precio_especial(p_product)

' Conexion a Promociones para buscar el articulo con el tipo de cliente
clv_cte =FormatNumber(Session("clv_cliente"))
tpo_cte =FormatNumber(Session("tipo_cliente"),0)
clv_tpo_cte =Session("clv_tpo_cli")

Set Conn1 = Server.CreateObject("ADODB.Connection")
Conn1.Open ConString

sqltext1="SELECT * FROM PROMOCIONES WHERE (tipo_vtcte="&tpo_cte&" and NUMERO_ART='"&rsProdInfo("productID")&"' and Fec_ini_pro<=date() and Fec_fin_pro>=date())"

set rsPromo = Conn1.Execute(sqltext1)

if rsPromo.EOF then
precio_especial=0.00
else
precio_especial=rspromo("pre_uni_pr")
end if

set rsPromo = Nothing
Conn1.Close
set Conn1 = Nothing

end function
<%
pre1=precio_especial(rsProdInfo("productID"))%>
<%=pre1%>
*********************************************************************************
Me marca este error

Microsoft VBScript compilation error '800a03ea'

Syntax error

/pcs/productsByCategory4.asp, line 501

function precio_especial(p_product)
^
*******************************************************
Alguien me puede ayudar

Gracias!!!!!!!!!