Erro No Script Utilizando Classe

[mestre fyoda]

index.asp

<%
    Dim Total_Pedido, Total_Info

    Set Total_Pedido = New Pedido
    Set Total_Info = New InfoPedido

    Set Total_Info = Total_Pedido.TotalPedido( Session("num_ped"), Session("frete_pedido"))
%>

class_pedido.asp

<%

Class Pedido

Function TotalPedido(ByVal num_ped, ByVal frete_pedido)

Dim Subtotal, Total

Set Pedido = con.Execute(" Select * from Pedido where COD_Pedido = '" & num_ped & "' ")

while not Pedido.Eof

Set Produto = con.Execute(" Select * from Produtos where COD_Produto = '" & Pedido("COD_Produto") &

"' ")

Subtotal = CDbl(Subtotal) + CDbl(Produto("VLR_Unitario")) * Cint(Pedido("QTD_Produto"))

Pedido.MoveNext

WEND

Total = CDbl(Subtotal) + CDbl(frete_pedido)

End Function

End Class

Class InfoPedido

Public Subtotal

Public Total

End Class

%>

[.Andreia.]

Nossa, ASP com classes é doído!!!

mas qual o erro?

[mestre fyoda]

Tipo de erro:
Erro de compilação do Microsoft VBScript (0x800A03EA)
Erro de sintaxe
/modulos/class_pedido.asp, line 2
Class Pedido

A linha 2 é Class Pedido