[Perl e HTML]

Boa tarde pessoal,

Quando eu crio um pagina html contendo o codigo perl e salvo esse arquivo como .html ele simplismente me mostra todo o codigo perl e não executa nada.

como se não tivesse encontrando o interpretador perl.

Quem poder me ajudar eu agradeceria.

[Ajuda com VBScript]

Aqui esta o link ...

http://www.mediafire.com/?0r35hvdix0o83fl

beleza baixei aqui vou conferir.

qual a linha do erro??

não seria essa??

if    p1 > 7 Then

você tem certeza q p1 é numerico nesse momento?? se tiver, tente assim:

if    CInt(p1) > 7 Then

Bom tentei do jeito q você me falou.,porem deu o mesmo erro só que com um diferencial (tipos imcopativeis:'CInt')

esse script é somente um menuzinho.

[Ajuda com VBScript]

Boa noite a todos ,sou novato na area de programação e estou tentando desenvolver umas ferramentas pra trabalhar SAP no caso usando vbscript.

O problema é o seguinte quando rodo meu codigo aparece o seguinte erro:

Tipos incompativeis:'p1'

o codigo:

function Submenu ()
b1 = InputBox ("Escolha uma opção"& vbCrLf &_
"1-----------------Saldo Dap-Doa" & vbcrlf &_
"2-----------------Saldo Ship for repair" & vbCrLf &_
"3-----------------Saldo J-process"& vbCrLf &_
"4-----------------Voltar ao menu anterior","                            Sub-Menu")
If IsNumeric (b1) Then
Select Case b1

Case 1

Case 2

Case 3

Case 4
Call Menuprincipal
End Select
Else
msgbox "Inseira somente numeros"
End If
If b1 > 4 Then
MsgBox "Opção invalida"
End if

End function

function Menuprincipal ()
p1 = InputBox ("Escolha o que ira fazer"& vbCrLf &_
"1----------------Canibalização de pci" & vbCrLf &_
"2----------------Canibalização de Kit para Dap-Doa" & vbCrLf &_
"3----------------Canibalização de Kit para Dapdoa pci" & vbCrLf &_
"4----------------Subcontratar  de Dap-doa pra Dap-doa" & vbCrLf &_
"5----------------Transferencia de Bin" & vbCrLf &_
"6----------------Confirmação de T.os em lista" & vbCrLf &_
"7----------------Proximo Menu","                        Escolha uma opção")

If IsNumeric (p1) Then

Select Case p1

Case 1

Case 2

Case 3

Case 4

Case 5

Case 6

Case 7
    Call Submenu
End Select
Else 
MsgBox"Insira Somente numeros"
End If
if    p1 > 7 Then
MsgBox "Opção invalida"
End if
End function

Call Menuprincipal

agradeço muito pela ajuda =D , abraços a todos.