Inserir Dando!

victormartins · Maio 16, 2006

Quando vou inserir um dado no bd ele da esse erro:

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável.

/corisco/submit.asp, line 109

submit.asp

<!--#include file="config.asp"-->
<%
if session("usuario") = "" and session("senha") = "" then
response.redirect "logar.asp"
end if
%>
<html>
<head>
<title><%=TS%></title>
<link rel="stylesheet" type="text/css" href="estilo.css">
<style>
input {border: 2 solid #000000}
</style>
<script language=Javascript>
function preview1(){
if (form.name1.value == ""){
div1.innerHTML = "<p align=center><br><br><br><br><b>É recomendado que você de um titulo a notícia!<br><br><input type='text' name='name1' value='' size='62' onchange=name1change()><br><br>Coloque acima o titulo para continuar!</b></p>"}
else{
div1.innerHTML = "<B>"+ form.name1.value + "--" + form.date1.value + "</b><br><br>" + form.Entry1.value}
}

function name1change(){
form.name1.value = form.name2.value
}
</script>
</head>
<body text="#000000" background="imagens/bg.gif">
<% inputnum = request.querystring("inputnum")
If IsEmpty(inputnum) or inputnum = "" then %>
<form id=form method="POST" action="submit.asp?inputnum=1">
    <center>
      
    <table border="1" cellpadding="3" cellspacing="0" width="450" bordercolor="#000000" bgcolor="#C0C0C0">
      <tr>
        <tudo align="center" bgcolor="#FFCC00"><b>INSERIR</b></tudo>
      </tr>
      <tr> 
        <tudo align="center" bgcolor="#FFFFFF"> 
          <table border="0" cellpadding="0" cellspacing="0" width="448" bordercolor="#000000" bgcolor="#C0C0C0">
            <tr> 
              <tudo width="100%" align="left" bgcolor="#FFFFFF" valign="middle"><b>T&iacute;tulo.:</b></tudo>
              <tudo width="100%" align="left" bgcolor="#FFFFFF"> 
                <input type="text" name="name1" value="" size="62">
              </tudo>
            </tr>
            <tr> 
              <tudo width="100%" align="left" bgcolor="#FFFFFF" height="168" valign="top"><b><br>
                <br>
                Noticia.:</b></tudo>
              <tudo width="100%" align="left" bgcolor="#FFFFFF" height="168"><font size="2" face="Verdana"> 
                <textarea rows="8" name="Entry1" cols="47" style="border-style: solid; border-width: 2">
              </textarea>
                </font> </tudo>
            </tr>
            <tr> 
              <tudo width="100%" align="left" bgcolor="#FFFFFF" valign="middle"><b>Data.:</b></tudo>
              <tudo width="100%" align="left" bgcolor="#FFFFFF"> 
                <input type="text" name="date1" value="<%=Date%>" size="13">
                &nbsp;&nbsp;&nbsp; <b><a onClick="preview1()" name="prev" href="#prev">Clique 
                aqui para visualizar a noticia</a></b> </tudo>
            </tr>
          </table>
        </tudo>
      </tr>
    </table>      
    <br>
    <br>
      
    <table border="1" cellpadding="3" cellspacing="0" width="450" bordercolor="#000000" bgcolor="#C0C0C0">
      <tr>
        <tudo align="center" bgcolor="#FFCC00"><b>VISUALIZAR</b></tudo>
      </tr>
      <tr> 
        <tudo align="center" bgcolor="#FFFFFF"> 
          <div id="div1" style="width: 448; height: 220">&nbsp;</div>
        </tudo>
      </tr>
    </table>
    <br>    
    <input type="submit" value="ENVIAR NOT&Iacute;CIA PARA O SITE" name="B1"></center>
</form>
<% else
data = request.form("date1")
If data = "" Then data = date()
dia = DatePart("d", data)
If dia < 10 Then dia = "0"&dia
mês = DatePart("m", data)
If mês < 10 Then mês = "0"&mês
ano = DatePart("yyyy", data)
data = dia & "/" & mês & "/" & ano

titulo = request.form("name1")
titulo = Replace(request.form("name1"), "'", "''")
titulo = Replace(Request.Form("name1"), Chr(13), "<br>")

entry1 = request.form("Entry1")
entry1 = Replace(Request.Form("Entry1"), "'", "''")
entry1 = Replace(Request.Form("Entry1"), Chr(13), "<br>")

    Set Conn = Server.CreateObject("adodb.connection")
    conn.Open Dados    
    SQLstmt = "INSERT INTO noticias2 (titulo,data,materia)"
    SQLstmt = SQLstmt & " VALUES (" 
    SQLstmt = SQLstmt & "'" & titulo & "',"
    SQLstmt = SQLstmt & "'" & data & "',"
    SQLstmt = SQLstmt & "'" & entry1 & "'"
    SQLstmt = SQLstmt & ")"

    Set RS = conn.execute(SQLstmt)
    
    response.redirect "submit2.asp?id=1"
end if %>
</body>

muito estranho porque a puco tempo atras funcionava!

Eu já reiniciei o IIS varias vezes, já reinicie o comp varaias vezes e nd!!!!

Vlw

.Andreia. · Maio 16, 2006

verifique as permissoes da pasta, tem um tópico só sobre isto

victormartins · Maio 17, 2006

Eu já dei tudo quanto é permissão!!!

Entrar

Inserir Dando!

Pergunta

victormartins

Link para o comentário

Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

.Andreia.

Link para o comentário

Compartilhar em outros sites

victormartins

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades