left

[julycobain 0]

ola galera beleza?

 

eu tenho uma parte do meu codigo que e a seguinte

 

a linha que esta em vermelho esta dando o seguinte erro

 

Error Type:

Microsoft VBScript runtime (0x800A0005)

Invalid procedure call or argument: 'Left'

/dev/juliana/ADMIN/frmPT_Publicacao.asp, line 17

 

alguem sabe pq da esse erro procurei uma solução hoje varias vezes a ainda nao consegui nenhuma

se alguem puder me ajudar eu agradeço desde ja

 

vou postar tb a função insereform que e chamada nessa linha de codigo q esta dando erro

 

function InsereForm(valor)

insereForm = replace(request.form(valor),"'","''")

end function

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then

'

'Atualiza Base de Dados

'

ano = left(insereform("codigo"),len(insereform("codigo"))-6)

if len(ano) = 2 then ano = "19" & ano

 

If insereForm("id_publicacao") <> "" Then

cnx.execute("UPDATE PT_publicacao set codigo = '" & insereform("codigo") & ", '" &_

"id_assunto = "&insereform("id_assunto")&","&_

"publicacao = '"&insereform("publicacao")&"',"&_

"preco = "&insereform("preco")&","&_

"ano = "& ano & " WHERE id_publicacao = " & insereForm("id_publicacao"))

acao = "Edição de Assunto de Publicações Técnicas: "

else

cnx.execute("INSERT INTO PT_Publicacao (codigo, id_assunto, publicacao, preco, ativo, ano) VALUES " &_

"('"&insereform("codigo")&"',"&_

insereform("id_assunto")&",'" &_

insereform("publicacao")&"',"&_

insereform("preco")& ", 1 ," & ano & ")")

acao = "Cadastro de Assunto de Publicações Técnicas: "

end if

 

acao = acao & insereform("Codigo")

RegistraAcao(acao)

 

Response.Redirect "busca_Publicacao.asp"

elseif insere("id_Publicacao") <> "" then

'carrega as variáveis para exibição do formulário de edição

SET RSDados = cnx.Execute("SELECT codigo, id_assunto, preco, publicacao FROM PT_Publicacao Where id_Publicacao = " & insere("id_Publicacao"))

Codigo = RSDados("Codigo")

id_assunto = RSDados("id_assunto")

preco = RSDados("preco")

publicacao = RSDados("Publicacao")

RSDados.Close

Set RSDados = Nothing

End If

%>

[kenew 0]

Juliana tenho uma dica ... pq você não esperimenta imprimir na tela o valor da variavel "codigo" e o valor q a sua função esta retornando ... exemploResponse.write request.form("codigo")response.write inserteform("codigo")e ai com o resultado você verifica se é uma string mesmo q você esta tentando mardar o left() tratar ... entedeu ?

[julycobain 0]

eu ja fiz isso e ele retorna o valor do codigo para a publicaçãoeu tenho um form q envia para essa pagina e quando eu dou o response.writeele retorna o numero 03 que o o codigo que e enviado da outra paginae ai alguem sabe alguma solução para o meu problemaestou precisando resolver issose alguem souber eu agradeço desde jae agradeço a você tambem que respondeuvaleubjosjuly