Sobre Este Erro ..

Janeiro 19, 2004

Galera depois de preenchido o formulário tento enviar e dá o seguinte erro ... alguém sabe o que tenho que fazer ??

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

/producao/Aviso_Manut/AreaRestrita/avis_manut.asp, line 125

Reginaldo ASP · Janeiro 19, 2004

Posta a linha 125 pra gente ver...

Janeiro 19, 2004

*125 conn.execute(SQLstmt)

bolomaster · Janeiro 19, 2004

Kro colega posta o seu codigo completo, para podermos analizar a logica, e o porque está dando este erro .. ok abraços

Danilo Piovani · Janeiro 19, 2004

<HTML>

<head>

<title>Área Restrita</title>

</head>

Aviso de

Manutenção<%

IF Len(TRIM(request.form("flag"))) = 0 THEN

%>

Manutenção em: <INPUT TYPE="text" NAME="servidor" size="30"> (Servidor, Switch, Roteador, etc...)

Será(ão) Impactado(s): <INPUT TYPE="text" NAME="sistema" size="29"> (Aplicações, Sistemas, etc...)

Data da Manutenção: <INPUT TYPE="text" NAME="dia" size="18"> (Utilizar o formato: dia/mês/ano)

Hora de Início: <INPUT TYPE="text" NAME="inicio" size="19">

Tempo de Manutenção: <INPUT TYPE="text" NAME="termino" size="18">

Autor: <INPUT TYPE="text" NAME="autor" size="48">

E-mail

do Responsável: <INPUT TYPE="text" NAME="email" size="47">

Observações e Motivos:

</FORM>

<%

ELSEIF Request.Form("flag")="2" THEN

//Verifica se algum campo está em branco.

IF Request.Form("servidor") <> "" THEN

IF Request.Form("sistema") <> "" THEN

IF Request.Form("dia") <> "" THEN

IF Request.Form("inicio") <> "" THEN

IF Request.Form("termino") <> "" THEN

IF Request.Form("autor") <> "" THEN

IF Request.Form("email") <> "" THEN

IF Request.Form("obs") <> "" THEN

//Verifica se o dia colocado no formulario é válido.

IF isdate(Request.Form("dia"))THEN

//Verifica o formato da data colocado no campo dia formulario.

IF Len(Request.Form("dia")) = 10 THEN

dim moth

moth = mid(Request.Form("dia"),4,2)

IF moth <= 12 THEN

//Verifica se o dia colocado no formulario é anterior ao dia atual.

IF cdate(Request.Form("dia")) >= date() then

//Verifica se a hora inserida é numérico. Verifica se o número de caracteres na hora é igual a 4. Verifica se as horas inserida é valida. Hora<24 e Minutos<60.

dim time

dim hora

dim min

time = Request.Form("inicio")

time = replace(time," ","")

time = replace(time,":","")

hora = left(time,2)

min = right(time,2)

IF isnumeric (time) THEN

IF Len(time) = 4 THEN

IF hora < "24" then

IF min_inic < "60" then

//Verifica se o tempo inserido é válido.

dim tempo

dim min_tempo

tempo = Request.Form("termino")

tempo = replace(tempo," ","")

tempo = replace(tempo,":","")

min_tempo = right(tempo,2)

IF isnumeric (tempo) then

IF Len(tempo) = 4 THEN

IF min_tempo < "60" then

//Verifica se o E-mail informado é válido

DIM strEmail

strEmail = Request.Form("email")

IF inStr(strEmail,"@") <> 0 THEN

IF inStr(strEmail,"tecban.com.br") <> 0 THEN

agora = now()

//Cria conexão com arquivo .MDB

set conn = server.createobject("adodb.connection")

DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "

DSNtemp=dsntemp & "DBQ=" & server.mappath("../BancodeDados/avis_manut.mdb")

conn.Open DSNtemp

//Inseri dados no Banco de Dados .MDB

SQLstmt = "INSERT INTO Tabela1 (servidor,sistema,dia,inicio,fim,autor,email,obs,data)"

SQLstmt = SQLstmt & "VALUES ('" & request.form("servidor") & "','" & request.form("sistema") & "','" & request.form("dia") & "','" & request.form("inicio") & "','" & request.form("termino") & "','" & request.form("autor") & "','" & request.form("email") & "','" & request.form("obs") & "','" & agora & "')"

conn.execute(SQLstmt)

//Consulta Código da Requisição

SQLstmt = "SELECT * FROM Tabela1 WHERE servidor ='" & Request.Form("servidor") & "' AND data='" & agora & "';"

set rs = conn.execute(SQLstmt)

//Cria conteúdo do e-mail.

Dim Mensagem

Mensagem = Mensagem & "<HTML><HEAD></HEAD><BODY><hr>"

Mensagem = Mensagem & "AVISO DE MANUTENÇÃO"

Mensagem = Mensagem & " "

Mensagem = Mensagem & "CÓDIGO: " & rs("codigo") & " "

Mensagem = Mensagem & "MANUTENÇÃO EM: " & request.form("servidor") & " " & "(Servidor, Roteador, Switch, etc...) "

Mensagem = Mensagem & "SERÁ(ÃO) IMPACTADOS: " & request.form("sistema") & " " & "(Aplicações,Sistemas, etc...) "

Mensagem = Mensagem & "DIA: " & request.form("dia") & " "

Mensagem = Mensagem & "HORA DE INÍCIO: " & request.form("inicio") & " "

Mensagem = Mensagem & "TEMPO DE MANUTENÇÃO: " & request.form("termino") & " "

Mensagem = Mensagem & "AUTOR: " & request.form("autor") & " "

Mensagem = Mensagem & "E-MAIL DO RESPONSÁVEL: " & request.form("email") & " "

Mensagem = Mensagem & "OBSERVAÇÕES: " & request.form("obs") & "  "

Mensagem = Mensagem & "DATA E HORA DA EMISSÃO DO AVISO: " & now() & " "

Mensagem = Mensagem & "</BODY></HTML>"

//Envia e-mail para aviso.manutencao@tecban.com.br

dim objEmail

Set objEmail = CreateObject("CDO.Message")

objEmail.From = request.form("email")

objEmail.To = "aviso.manutencao@tecban.com.br"

objEmail.Subject = "Aviso de Manutenção"

objEmail.HTMLBody = Mensagem

objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

objEmail.Configuration.Fields.Item _

("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "10.2.1.120"

objEmail.Configuration.Fields.Item _

("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objEmail.Configuration.Fields.Update

objEmail.Send

set objEmail = nothing

response.Write "O Aviso de Manutenção a seguir foi publicado com sucesso às: " & agora & " "

response.write (mensagem)

conn.Close

Set conn = nothing

Set SQLstmt = nothing

ELSE