Bom Dia,
Estou com o seguinte erro
abaixo, a linha do erro est� em vermelho.
Quero cadastrar not�ciais em
um banco Access.
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Operation
must use an updateable query.
/html/asp/desenv/submit.asp, line 114
////////////// c�digo ///////////////
<% else
data = "">If data = "" Then data =
"">dia = DatePart("d", data)
If dia < 10 Then dia =
"0"&dia
mes = DatePart("m", data)
If mes < 10 Then mes =
"0"&mes
ano = DatePart("yyyy", data)
data = "" & "/" & mes
& "/" & 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 noticias
(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 %>
