Insert grava dois registros no BD

+.jr_Designer.+ · Abril 18, 2009

Olá pessoal,

Já estou com a cabeça doendo de raiva... :angry:

Tenho que fazer um cadastro no Banco de dados MySQL e fazer também um Upload de um arquivo pdf. o problema é que o Insert tá gravando dois egistros na tabela, um com os dados coretos e outro em branco.

Form:

<!--#include file="../config.asp"-->
<!-- #INCLUDE file="fckeditor/fckeditor.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="content-type" content="application/xhtml+xml;charset=iso-8859-1">
<!--<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />-->
<title>Untitled Document</title>


<style type="text/css">
<!--
body,td,th {
    font-family: Arial, Helvetica, sans-serif;
    font-size: 11px;
    color: #958D78;
}
body {
    margin-left: 0px;
    margin-top: 0px;
    margin-right: 0px;
    margin-bottom: 0px;
}
-->
</style>
<link href="../css/edit_busca_login.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
.style2 {
    font-size: 14px;
    font-weight: bold;
}
.style3 {color: #CC0000}
.style4 {font-size: 9px}
-->
</style>
&lt;script type="text/javascript">
function retiraAcento(sem_acento)
{
    var f = document.forms[0];
            if(f.elements[1].type == 'textarea' || f.elements[1].type == 'text')
                {
                    f.elements[2].value = f.elements[1].value.toLowerCase();
                    var valor = f.elements[1].value.toLowerCase();
                    valor = valor.replace(/á/g, "a");
                    valor = valor.replace(/à/g, "a");
                    valor = valor.replace(/â/g, "a");
                    valor = valor.replace(/ã/g, "a");
                    valor = valor.replace(/é/g, "e");
                    valor = valor.replace(/è/g, "e");
                    valor = valor.replace(/ê/g, "e");
                    valor = valor.replace(/í/g, "i");
                    valor = valor.replace(/ì/g, "i");
                    valor = valor.replace(/ó/g, "o");
                    valor = valor.replace(/ò/g, "o");
                    valor = valor.replace(/ô/g, "o");
                    valor = valor.replace(/õ/g, "o");
                    valor = valor.replace(/ú/g, "u");
                    valor = valor.replace(/ù/g, "u");
                    valor = valor.replace(/ü/g, "u");
                    valor = valor.replace(/ç/g, "c");
                    valor = valor.replace(/ /g, "_");
                    //alert(valor)
                    f.elements[2].value = valor;
                }

}

</script>

</head>

<body>
<form id="form" name="form" ENCTYPE="multipart/form-data" method="post" action="uploadMonografia.asp">
<table width="100%" border="0" cellpadding="0" cellspacing="2">
  <tr>
    <td height="28" align="left"> </td>
    <td height="28" colspan="3" align="left"><span class="style2">C A D A S T R A R    M O N O G R A F I A</span></td>
    </tr>
    <tr>
    <td width="11%" align="right">Autor</td>
    <td align="left"><label>
    <input name="autor" type="text" class="edit" id="autor" size="45" />
    </label>
            <label></label>    <label></label></td>
    </tr>
    <tr>
    <td width="11%" align="right">Título</td>
    <td align="left"><label></label>      <label></label>    <label>
    <input name="titulo" type="text" class="edit" id="titulo" size="60" onblur="retiraAcento()" maxlength="43" />
    <input type="text" name="semAcento" id="semAcento" />
    </label></td>
    </tr>
  <tr>
    <td align="right"><p>Edital</p>      </td>
    <td colspan="3" align="left"><span class="style4">
      <input name="monografia" id="monografia" type="file" class="edit" size="50" />
    </span></td>
    </tr>
    <tr>
    <td height="21" align="right"> </td>
    <td colspan="3" align="left"><label>
      <input name="atualizar" type="image" src="imagens/btn_atualizar.jpg" />
    </label></td>
  </tr>
</table>
</form>

</body>
</html>

Upload:

<!-- #include file = "../config.asp" -->
<%Response.CodePage = 1252%>
<html>
<head>
<Title></Title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<!--<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />-->
<style type="text/css">

body {
    font-family: Verdana, Arial, serif;
    font-size: 11px;
    background: white;
    padding: 0em;
    margin: 0;
    background-image: url();
    background-color: #FFFFFF;
}

a {
    text-decoration: none;
}

a:link {
    color: #333333;
    text-decoration: none;
}

a:visited {
    color: #333333;
    text-decoration: none;
}

a:active {
    color: #333333;
    text-decoration: none;
}

a:hover {
    text-decoration: none;
    color: #006666;
}
body,td,th {
    color: #323232;
}
.style1 {font-size: 10px}
.style3 {font-size: 10px; font-weight: bold; }
</style>

</head>
<BODY>
<%
    Set FSO = Server.CreateObject("Scripting.FileSystemObject")
    Set Upload = Server.CreateObject("Persits.Upload.1")
    Upload.OverwriteFiles = False
    On Error Resume Next

    Upload.SetMaxSize 70088979
    pasta = Server.MapPath("monografia/")
    Count = Upload.Save
    titulo = Upload.Form("titulo")
    autor = Upload.Form("autor")
    nome = Upload.Form("semAcento")    
    data = Date()    
            

                For Each File in Upload.Files                    
                    File.SaveAs (pasta&"/"&nome&".pdf")
                    arquivo = File.FileName                        
                Next
                Set File = Upload.Files(1)
                    ' Conecta-se ao Banco de Dados'
                    Set Inserir = Server.CreateObject("Adodb.Recordset")
                    Inserir.CursorLocation = 3
                    Inserir.CursorType = 2                            
                    Inserir.open "INSERT INTO monografia (data,titulo,autor,monografia) VALUES('"&data&"','"&titulo&"','"&autor&"','"&arquivo&"')",conexao
                    'Response.Write(pasta&"/"&nome&".pdf")            
                    

%>
<div align="center">
Monografia cadastrada com sucesso.
</div>
<div align="center">
<br> 
<a href="cadMonografia.asp" target="main">Voltar</a></div>

</BODY>
</HTML>

bareta · Abril 22, 2009

substitui

Set Inserir = Server.CreateObject("Adodb.Recordset")
                    Inserir.CursorLocation = 3
                    Inserir.CursorType = 2                            
                    Inserir.open "INSERT INTO monografia (data,titulo,autor,monografia) VALUES('"&data&"','"&titulo&"','"&autor&"','"&arquivo&"')",conexao

por

sql="INSERT INTO monografia (data,titulo,autor,monografia) VALUES('"&data&"','"&titulo&"','"&autor&"','"&arquivo&"')"
conexao.execute(sql)

e testa

Entrar

Insert grava dois registros no BD

Pergunta

+.jr_Designer.+

Link para o comentário

Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

bareta

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades