mudança de componente não funciona

[grocha43 0]

Olá Galera

 

 

preciso de uma grande ajuda, eles mudaram de provedor e no servidor não tem o componente w3.upload para upload de arquivos ele só tem o aspupload, mudei o código e não está funcionando preciso de ajuda olha o código abaixo aparece a seguinte mensagem:

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis: '[string: ""]'

/admvoice/cliente/grt_inserir_dados.asp, line 27

 

 

<%Option ExplicitResponse.Expires = 0Dim objConn, objRs, strQuery, strConnection, rsff, conff, vusa, vusax, vusayDim nImg_img, fsys, nome, varUpload,  rsffx, conffx, vcli, vdia, vmes, vanoDim vnome, vcnpj, vsocial, vdata, vend, vnumero, vcomp, vbairro, vcidade, vuf, vcep, vddd, vtelefoneDim vdddfax, vfax, vresponsavel, vativo, vsite, vonline, vemail, vimg, vtexto, vsenha, vconfirmadim vdata01_in, vdata02_insession.LCID = 1046Set fsys = CreateObject("Scripting.FileSystemObject")set varUpload = Server.CreateObject("Persits.Upload")set vsenha = varUpload.form("senha")set vconfirma = varUpload.form("confirma")if vsenha <> vconfirma thenresponse.redirect "erro_dados_senha.asp" end ifset vnome = varUpload.form("nome")set vcnpj = varUpload.form("cnpj")set vsocial = varUpload.form("social")set vdata = varUpload.form("data")vdia= day(vdata)vmes= month(vdata)vano= year(vdata)vdata = vano&"/"&vmes&"/"&vdiaif isdate(vdata) = false thenresponse.redirect "erro_data.asp"end ifset vend = varUpload.form("end")set vnumero = varUpload.form("numero")if isnumeric(vnumero) = false thenresponse.redirect "erro_numero.asp"end ifset vcomp = varUpload.form("comp")set vbairro = varUpload.form("bairro")set vcidade = varUpload.form("cidade")set vuf = varUpload.form("uf")set vcep = varUpload.form("cep")set vddd = varUpload.form("ddd")if isnumeric(vddd) = false thenresponse.redirect "erro_numero.asp"end ifset vtelefone = varUpload.form("telefone")if isnumeric(vtelefone) = false thenresponse.redirect "erro_numero.asp"end ifset vdddfax = varUpload.form("dddfax")if isnumeric(vdddfax) = false thenresponse.redirect "erro_numero.asp"end ifset vfax = varUpload.form("fax")if isnumeric(vfax) = false thenresponse.redirect "erro_numero.asp"end ifset vresponsavel = varUpload.form("responsavel")set vativo = varUpload.form("ativo")On error Resume Nextif err = 0 Thenelsevativo = "False"end ifif vativo = "" thenvativo = "False"end ifset vsite = varUpload.form("site")set vonline = varUpload.form("online")On error Resume Nextif err = 0 Thenelsevonline = "False"end ifif vonline = "" thenvonline = "False"end ifset vemail = varUpload.form("email")set vimg = varUpload.Form("img")nImg_img = vimg.FileNamenome = nImg_imgset vtexto = varUpload.form("texto")%><!--#include file="../conexao/z_conexao.asp"--><%rsff.open "SELECT * FROM cliente", conff%><%while not rsff.eof%><% If (vemail = rsff.fields ("email")) Then %><%response.redirect "erro_dados_ex.asp" %><%end if%><%rsff.movenextwend%><!--#include file="../conexao/z_conexao_close.asp"--><!--#include file="../conexao/z_conexao.asp"--><%rsff.open "SELECT * FROM administradores where cod="&cint(session("vcod")), conff%><% If (cint(session("vok")) = 1) and cbool(rsff.fields ("cli") = "True") = True Then %><!--#include file="up_load.asp"--><!--#include file="../conexao/z_conexao_obj.asp"--><%strQuery = "INSERT INTO cliente (nome,social,cnpj,data,end,numero,comp,bairro,cep,cidade,uf,ddd,telefone,dddfax,fax,responsavel,email,site,texto,img,ativo,online,senha) VALUES ('"&vnome&"','"&vsocial&"','"&vcnpj&"','"&vdata&"','"&vend&"','"&vnumero&"','"&vcomp&"','"&vbairro&"','"&vcep&"','"&vcidade&"','"&vuf&"','"&vddd&"','"&vtelefone&"','"&vdddfax&"','"&vfax&"','"&vresponsavel&"','"&vemail&"','"&vsite&"','"&vtexto&"','"&nome&"','"&vativo&"','"&vonline&"',Encode('"&vsenha&"','"&Application("decript")&"'))"On error Resume NextSet ObjRs = objConn.Execute(strQuery)objConn.closeSet objRs = NothingSet objConn = Nothingif err = 0 Then%> <!--#include file="../conexao/z_conexao_x.asp"-->          <%rsffx.open "SELECT cliente.data FROM cliente order by data", conffx%>          <%vdata01_in = cdate(rsffx.fields("data"))%><!--#include file="../conexao/z_conexao_close_x.asp"-->          <!--#include file="../conexao/z_conexao_x.asp"-->          <%rsffx.open "SELECT cliente.data FROM cliente order by data desc", conffx%>          <%vdata02_in = cdate(rsffx.fields("data"))%><!--#include file="../conexao/z_conexao_close_x.asp"--><!--#include file="../conexao/z_conexao_x.asp"--><%rsffx.open "SELECT cliente.cod FROM cliente order by cod desc", conffx%><%vcli = rsffx.fields ("cod")%><!--#include file="../conexao/z_conexao_close_x.asp"--><%response.Redirect("ok_dados.asp?cli="&vcli&"&data01="&vdata01_in&"&data02="&vdata02_in)%><%else%><%response.Redirect("erro_dados.asp")%><%end if%><%else%><%response.Redirect("erro_log_adm.asp")%><%end if%><!--#include file="../conexao/z_conexao_close.asp"-->

[Mário Monteiro 179]

qual é a linha 27??

[grocha43 0]

oi A linha é vdia= day(vdata)Brigadinha

[Mário Monteiro 179]

veja se a variavel vdata possui uma data valida...teste assimIf IsDate(vdata) Then vdia= day(vdata)End Ifso vai retornar o dia se tiver uma data mesmo, senão você pode colocar uma contição padrão, exemploIf IsDate(vdata) Then vdia = day(vdata)Else vdia = 1End Ifalgo assim...

[grocha43 0]

OiMas já não está fazendo isso logo abaixo onde redireciona para uma outra página???????Não entendi muito bem!!!!Brigadinho

[Deividy 0]

você verifico para ver se esse dado esta vindo mesmo?

[Mário Monteiro 179]

olha este valor vem de um form do upload, se o upload não estiver sendo feito não vira dado nemhum, dai o porque do erro...

[grocha43 0]

oiCaramba, você pode me ajudar a resolver isto please.Estou totalmente perdida.Brigadinha