Ir para conteúdo
Fórum Script Brasil
  • 0

Cadastro com foto


WEBIER

Pergunta

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 por Jonathan Queiroz
Remover caixa alta do título (Jonathan)
Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...