Classe que está dando erro !

[mestre fyoda 1]

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 ClassClass InfoPedido	Public Subtotal	Public TotalEnd Class%>

no index.asp quando eu preciso chamar o Total eu uso assim Total_Info.Total, mas esta dando esse errom pq ?

[Ted k' 126]

como é o erro??

[mestre fyoda 1]

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

[Ted k' 126]

Qual é a sua linha 3?

[mestre fyoda 1]

A linha 3 é aonde está escrito em vermelho

<%

 

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

 

%>

Soh uma pergunta, como eu deixo o meu codigo aqui no forum com a tag asp ?

[Ted k' 126]

Tente trocar a class por SUB:

 

e você colocar com o BBCode assim:

 

[ asp ] [ / asp ]

[mestre fyoda 1]

Esta dando esse erro agora :

 

Erro de sintaxe

/modulos/class_pedido.asp, line 5

Function TotalPedido(ByVal num_ped, ByVal frete_pedido)

 

Linha 5: Function TotalPedido(ByVal num_ped, ByVal frete_pedido)

 

ASP

<%

 

Sub Pedido

 

        Function TotalPedido(ByVal num_ped, ByVal frete_pedido)

 

                Set TotalPedido = New Total_Info

                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 Sub