Cadastro com foto

[WEBIER]

Meu codigo:

<%
Dim ADOCnn
Dim objUpload
Dim strErro
Dim strURLFOTO
Dim strExtensao

strErro = ""
strURLFOTO = ""

On error resume next

Set objUpload = Server.CreateObject("Dundas.Upload.2") 
objUpload.UseVirtualDir = true
objUpload.UseUniqueNames = True 
objUpload.Save "\Classificados\imagens\"

if objUpload.Form("txtNome") = "" then
strErro = strErro & " - NOME<br>"
end if

if objUpload.Form("txtTelefone") = "" then
strErro = strErro & " - TELEFONE<br>" 
end if

if objUpload.Form("txtEmail") = "" then
strErro = strErro & " - E-MAIL<br>" 
end if

if objUpload.Form("txtTitulo") = "" then
strErro = strErro & " - TITULO<br>" 
end if

if objUpload.Form("cboTipo") = "" then
strErro = strErro & " - TIPO<br>" 
end if

if objUpload.Form("txtDescricao") = "" then
strErro = strErro & " - DESCRIÇÃO<br>"
end if

if objUpload.Files.Count > 0 then
    strURLFOTO = "\Classificados\imagens\" & objUpload.GetFileName(objUpload.Files(0).Path)
    strExtensao = objUpload.GetFileExt(objUpload.Files(0).Path) 
else
    strURLFOTO = "\Classificados\imagens\semfoto.jpg"
end if

If Err <> 0 or strExtensao <> "jpg" and strExtensao <> "gif" and strExtensao <> "bmp" Then
    %>    
    <span class="texto">
    <p style="margin-top: 0; margin-bottom: 0"><br>
      <font color="#CC0000"><b><font size="3">HOUVE UM ERRO NA HORA DE CARREGAR O ARQUIVO !!</font></b></font></p>
    <p style="margin-top: 0; margin-bottom: 0"><br>
    2 - VERIFIQUE A EXTENS&Atilde;O DO ARQUIVO , SOMENTE IMAGENS S&Atilde;O PERMITIDAS (*.JPG , *.GIF , *.BMP )<br>
    3 - SE NENHUM DESSES PASSOS RESOLVERAM , ENTRE EM CONTATO COM O SITE <BR>
      &nbsp;</p>
    <p style="margin-top: 0; margin-bottom: 0"><b>
    <a href=java script:history.back(-1)>VOLTAR</a></b></font>
    <%
    objUpload.FileDelete "\Classificados\Imagens\" & objUpload.GetFileName(objUpload.Files(0).Path)
    Set objUpload = Nothing
    Response.End()
else
    Set ADOCnn = Server.CreateObject("ADODB.Connection")
    ADOCnn.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("\Classificados\CLASSIFICADOS.MDB"))
    
    ADOCnn.Execute("INSERT INTO TAB_CLAS(CLAS_NOM,CLAS_TEL,CLAS_MAIL,CLAS_TIT,CLAS_TIPO,CLAS_FOTO,CLAS_DESC,CLAS_DATA) VALUES ('" & ucase(objUpload.Form("txtNome")) & "','" & objUpload.Form("txtTelefone") & "','" & objUpload.Form("txtEmail") & "','" & ucase(objUpload.Form("txtTitulo")) & "','" & objUpload.Form("cboTipo") & "','" & strURLFOTO & "','" & objUpload.Form("txtDescricao") & "',#" & Date() & "#)")
    Set ADOCnn = Nothing
    Set objUpload = Nothing
    Response.Redirect("classificado.asp")
end if
%>

já conferir o banco de dados, a tabela, os campos, os objetos do form e a validação dos objetos e todos estao perfeitos.. os dados estão preenchidos corretamente nos objetos no form. mas sempre ele usa o primeiro IF (If Err <> 0 or strExtensao <> "jpg" and strExtensao <> "gif" and strExtensao <> "bmp" Then).... uma hora para testar deixei o primeiro IF somente assim (If Err <> 0 then) e continua somente no primeiro IF, ou seja, sempre a mesma msg: HOUVE UM ERRO NA HORA DE CARREGAR O ARQUIVO !! 2 - VERIFIQUE A EXTENSÃO DO ARQUIVO , SOMENTE IMAGENS SÃO PERMITIDAS (*.JPG , *.GIF , *.BMP ) 3 - SE NENHUM DESSES PASSOS RESOLVERAM , ENTRE EM CONTATO COM O SITE VOLTAR uma hora tire esse primeiro IF todo... deixei somente:

Set ADOCnn = Server.CreateObject("ADODB.Connection")
    ADOCnn.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("\Classificados\CLASSIFICADOS.MDB"))
    
    ADOCnn.Execute("INSERT INTO TAB_CLAS(CLAS_NOM,CLAS_TEL,CLAS_MAIL,CLAS_TIT,CLAS_TIPO,CLAS_FOTO,CLAS_DESC,CLAS_DATA) VALUES ('" & ucase(objUpload.Form("txtNome")) & "','" & objUpload.Form("txtTelefone") & "','" & objUpload.Form("txtEmail") & "','" & ucase(objUpload.Form("txtTitulo")) & "','" & objUpload.Form("cboTipo") & "','" & strURLFOTO & "','" & objUpload.Form("txtDescricao") & "',#" & Date() & "#)")
    Set ADOCnn = Nothing
    Set objUpload = Nothing
    Response.Redirect("classificado.asp")

simplesmente não aconteceu nada... não armazenou e nem deu msg de erro.

Onde estou errando?

Editado Fevereiro 16, 2010 por Jonathan Queiroz
Remover caixa alta do título (Jonathan)

[Rafael Spilki]

Delete ou "desabilite" a linha on error resume next que uma msg de erro deve aparecer. Caso continue não conseguindo resolver, poste a msg de erro aqui...

[]'s

[WEBIER]

eu tire o "On error resume next" e deu o seguinte erro:

Script error detected at line 14.

Source line: objUpload.UseVirtualDir = true

Description: Objeto necessário

[kuroi]

o dundas esta instalado no servidor??

[WEBIER]

hospedei na internet e não deu erro não!

O problema era local mesmo, no servidor local de teste!

Obrigado a todos!

como marco esse tópico como resolvido?