Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'codigo='.
/producao/Aviso_Manut/AreaRestrita/atualiza.asp, line 22
<%
Actionvar=Request.QueryString("actionvar")
cod = request.querystring ("cod")
Set conn = server.createobject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("../BancodeDados/avis_manut.mdb")
conn.Open DSNtemp
linha 13 ***SQLstmt = "SELECT * FROM Tabela1 WHERE codigo=" & Actionvar
linha 14 ***Set rs = conn.Execute(SQLstmt)
linha 15 ***if not rs.eof then
linha 15 *** codigo=rs("codigo")
linha 16*** servidor=rs("servidor")
linha 17*** sistema=rs("sistema")
linha 18*** dia=rs("dia")
linha 19*** inicio=rs("inicio")
linha 20** fim=rs("fim")
linha 21** autor=rs("autor")
linha 21** email=rs("email")
linha 22** obs=rs("obs")
linha 23** data=rs("data")
linha 24**end if
linha 15***%>
Novo Eroo ...............
Started By Danilo Piovani, 22/01/2004, 15:20
9 replies to this topic
#1
Danilo Piovani
-
- Usuários
-
- 27 posts
Turista
- Sexo:Não informado
Posted 22/01/2004, 15:20
" Sinto que as pessoas dão pouco valor para o que realmente sentem , essas pessoas sofrem mas mesmo assim preferem isso à não ser mais destaque dentro da visão de outras pessoas , preferem Status, à ser feliz , eu quero é que o mundo se exploda , mas a minha felicidade não deixo passar , e diga-se de passagem quem realmente quer ser feliz com uma outra pessoa não se importa se ela ronca , ou se é baixo , alto , magro , gordo ,careca , feio , e sim tranforma os "defeitos" em qualidade , essas que a pessoa demontra . Amar é gostar intensamente e saber que em primeiro lugar vc esta sendo sincero(a) consigo mesmo(a) .
Por tudo resumimos que o importante é ser amado e se amar , o resto é balela , pura imaginação , sonho , que ao acordar vc pode perceber que foi seu pior pesadelo. "
Por tudo resumimos que o importante é ser amado e se amar , o resto é balela , pura imaginação , sonho , que ao acordar vc pode perceber que foi seu pior pesadelo. "
#2
Danilo Piovani
-
- Usuários
-
- 27 posts
Turista
- Sexo:Não informado
Posted 22/01/2004, 15:31
Desculpem deu erro ai na colocação das linhas ....
linha 21
SQLstmt = "SELECT * FROM Tabela1 WHERE codigo=" & Actionvar
linha 22
linha 14 ***Set rs = conn.Execute(SQLstmt)
linha 21
SQLstmt = "SELECT * FROM Tabela1 WHERE codigo=" & Actionvar
linha 22
linha 14 ***Set rs = conn.Execute(SQLstmt)
" Sinto que as pessoas dão pouco valor para o que realmente sentem , essas pessoas sofrem mas mesmo assim preferem isso à não ser mais destaque dentro da visão de outras pessoas , preferem Status, à ser feliz , eu quero é que o mundo se exploda , mas a minha felicidade não deixo passar , e diga-se de passagem quem realmente quer ser feliz com uma outra pessoa não se importa se ela ronca , ou se é baixo , alto , magro , gordo ,careca , feio , e sim tranforma os "defeitos" em qualidade , essas que a pessoa demontra . Amar é gostar intensamente e saber que em primeiro lugar vc esta sendo sincero(a) consigo mesmo(a) .
Por tudo resumimos que o importante é ser amado e se amar , o resto é balela , pura imaginação , sonho , que ao acordar vc pode perceber que foi seu pior pesadelo. "
Por tudo resumimos que o importante é ser amado e se amar , o resto é balela , pura imaginação , sonho , que ao acordar vc pode perceber que foi seu pior pesadelo. "
#3
cybermix
-
- Ex-Admins
-
- 3586 posts
andrewsmedina.com.br
- Sexo:Não informado
- Localidade:Não sou desse planeta não!!!!
- Interesses:python, fireworks, linux, php, flash...
Posted 22/01/2004, 16:14
qual o valor contido no actionvar?
mostre como esta o endereco desse arquivo
mostre como esta o endereco desse arquivo
www.andrewsmedina.com.br
#4
MACUL
-
- Usuários
-
- 770 posts
Doutor
- Sexo:Masculino
- Localidade:SP
Posted 22/01/2004, 16:19
vou contar uma maravilha p/ vc !!!
toda vez que der problema na linha que executa o SQL como na sua linha 22
acima dela vc insere o comando :
Na maioria das vezes vc vai descobrir o erro de cara, agora senão dscobrir, por favor informe o que esta vindo nessa linha, ficará + fácil ajudar.
T +
MACUL
toda vez que der problema na linha que executa o SQL como na sua linha 22
acima dela vc insere o comando :
response.write(SQLstmt)
Na maioria das vezes vc vai descobrir o erro de cara, agora senão dscobrir, por favor informe o que esta vindo nessa linha, ficará + fácil ajudar.
T +
MACUL
*************** M ** A ** C ** U ** L ***************
*************************************************
*************************************************
#5
Danilo Piovani
-
- Usuários
-
- 27 posts
Turista
- Sexo:Não informado
Posted 23/01/2004, 08:01
Macul valeu pela dica ...
passado aquele erro acho que estou errando agora na hora de fazer o Update ...
O erro é esse :
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error in UPDATE statement.
/producao/Aviso_Manut/AreaRestrita/atualiza.asp, line 227
**linha 216 -- SQLstmt = "UPDATE Tabela1 " & _
**linha 217 -- "servidor='" & request.form("servidor") & "', " & _
**linha 218 -- "sistema= '" & request.form("sistema") & "', " & _
**linha 219 -- "dia= '" & request.form("dia") & "', " & _
**linha 220 -- "inicio='" & request.form("inicio") & "', " & _
**linha 221 -- "fim='" & request.form("fim") & "', " & _
**linha 222 -- "autor='" & request.form("autor") & "', " & _
**linha 223 -- "email='" & request.form("email") & "', " & _
**linha 224 -- "obs ='" & request.form("obs") & "', " & _
**linha 225 -- "data='" & Now() & "', " & _
**linha 226 -- "where codigo='" & Actionvar & "'"
**linha 227 -- conn.execute(SQLstmt)
passado aquele erro acho que estou errando agora na hora de fazer o Update ...
O erro é esse :
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error in UPDATE statement.
/producao/Aviso_Manut/AreaRestrita/atualiza.asp, line 227
**linha 216 -- SQLstmt = "UPDATE Tabela1 " & _
**linha 217 -- "servidor='" & request.form("servidor") & "', " & _
**linha 218 -- "sistema= '" & request.form("sistema") & "', " & _
**linha 219 -- "dia= '" & request.form("dia") & "', " & _
**linha 220 -- "inicio='" & request.form("inicio") & "', " & _
**linha 221 -- "fim='" & request.form("fim") & "', " & _
**linha 222 -- "autor='" & request.form("autor") & "', " & _
**linha 223 -- "email='" & request.form("email") & "', " & _
**linha 224 -- "obs ='" & request.form("obs") & "', " & _
**linha 225 -- "data='" & Now() & "', " & _
**linha 226 -- "where codigo='" & Actionvar & "'"
**linha 227 -- conn.execute(SQLstmt)
" Sinto que as pessoas dão pouco valor para o que realmente sentem , essas pessoas sofrem mas mesmo assim preferem isso à não ser mais destaque dentro da visão de outras pessoas , preferem Status, à ser feliz , eu quero é que o mundo se exploda , mas a minha felicidade não deixo passar , e diga-se de passagem quem realmente quer ser feliz com uma outra pessoa não se importa se ela ronca , ou se é baixo , alto , magro , gordo ,careca , feio , e sim tranforma os "defeitos" em qualidade , essas que a pessoa demontra . Amar é gostar intensamente e saber que em primeiro lugar vc esta sendo sincero(a) consigo mesmo(a) .
Por tudo resumimos que o importante é ser amado e se amar , o resto é balela , pura imaginação , sonho , que ao acordar vc pode perceber que foi seu pior pesadelo. "
Por tudo resumimos que o importante é ser amado e se amar , o resto é balela , pura imaginação , sonho , que ao acordar vc pode perceber que foi seu pior pesadelo. "
#6
MACUL
-
- Usuários
-
- 770 posts
Doutor
- Sexo:Masculino
- Localidade:SP
Posted 23/01/2004, 08:20
Kra seu erro é a ( , ) tire ela e funcionará
Seu código
**linha 225 -- "data='" & Now() & "', " & _
**linha 226 -- "where codigo='" & Actionvar & "'"
e eu nunca testei no access, mas invés de
tenta utilizar
OBS : Informe o resultado de saída da váriavel SQLstmt
T +
MACUL
Seu código
**linha 225 -- "data='" & Now() & "', " & _ **linha 226 -- "where codigo='" & Actionvar & "'"
**linha 225 -- "data='" & Now() & "', " & _
**linha 226 -- "where codigo='" & Actionvar & "'"
e eu nunca testei no access, mas invés de
**linha 225 -- "data='" & Now() & "' " & _
tenta utilizar
**linha 225 -- " data= getdate() " & _
OBS : Informe o resultado de saída da váriavel SQLstmt
T +
MACUL
Edição feita por: MACUL, 23/01/2004, 08:22.
*************** M ** A ** C ** U ** L ***************
*************************************************
*************************************************
#7
Danilo Piovani
-
- Usuários
-
- 27 posts
Turista
- Sexo:Não informado
Posted 23/01/2004, 08:26
Então cara o que está dando errado é o seguinte :
ele não está conseguindo comparar na clausula Where o código com a variável ..
olha só :
fiz uma linha que imprime o que o update está fazendo ::
UPDATE Tabela1 servidor='Teste', sistema= 'Teste', dia= '23/02/2004', inicio='01:00', fim='01:00', autor='Danilo Piovani', email='teste@tecban.com.br', obs ='jhskjd jhdskkuds kjhgbdjs ', data='1/23/2004 9:22:47 AM', where codigo='0'
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error in UPDATE statement.
/producao/Aviso_Manut/AreaRestrita/atualiza.asp, line 228
Reparou na clausula Where ??? traz 0
ele não está conseguindo comparar na clausula Where o código com a variável ..
olha só :
fiz uma linha que imprime o que o update está fazendo ::
UPDATE Tabela1 servidor='Teste', sistema= 'Teste', dia= '23/02/2004', inicio='01:00', fim='01:00', autor='Danilo Piovani', email='teste@tecban.com.br', obs ='jhskjd jhdskkuds kjhgbdjs ', data='1/23/2004 9:22:47 AM', where codigo='0'
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error in UPDATE statement.
/producao/Aviso_Manut/AreaRestrita/atualiza.asp, line 228
Reparou na clausula Where ??? traz 0
" Sinto que as pessoas dão pouco valor para o que realmente sentem , essas pessoas sofrem mas mesmo assim preferem isso à não ser mais destaque dentro da visão de outras pessoas , preferem Status, à ser feliz , eu quero é que o mundo se exploda , mas a minha felicidade não deixo passar , e diga-se de passagem quem realmente quer ser feliz com uma outra pessoa não se importa se ela ronca , ou se é baixo , alto , magro , gordo ,careca , feio , e sim tranforma os "defeitos" em qualidade , essas que a pessoa demontra . Amar é gostar intensamente e saber que em primeiro lugar vc esta sendo sincero(a) consigo mesmo(a) .
Por tudo resumimos que o importante é ser amado e se amar , o resto é balela , pura imaginação , sonho , que ao acordar vc pode perceber que foi seu pior pesadelo. "
Por tudo resumimos que o importante é ser amado e se amar , o resto é balela , pura imaginação , sonho , que ao acordar vc pode perceber que foi seu pior pesadelo. "
#8
MACUL
-
- Usuários
-
- 770 posts
Doutor
- Sexo:Masculino
- Localidade:SP
Posted 23/01/2004, 08:54
Substitua isso
por
Repare que na linha 225 havia uma vírgula a +.
T +
MACUL
**linha 216 -- SQLstmt = "UPDATE Tabela1 " & _
**linha 217 -- "servidor='" & request.form("servidor") & "', " & _
**linha 218 -- "sistema= '" & request.form("sistema") & "', " & _
**linha 219 -- "dia= '" & request.form("dia") & "', " & _
**linha 220 -- "inicio='" & request.form("inicio") & "', " & _
**linha 221 -- "fim='" & request.form("fim") & "', " & _
**linha 222 -- "autor='" & request.form("autor") & "', " & _
**linha 223 -- "email='" & request.form("email") & "', " & _
**linha 224 -- "obs ='" & request.form("obs") & "', " & _
**linha 225 -- "data='" & Now() & "', " & _
**linha 226 -- "where codigo='" & Actionvar & "'"
**linha 227 -- conn.execute(SQLstmt)por
**linha 216 -- SQLstmt = "UPDATE Tabela1 " & _
**linha 217 -- "servidor='" & request.form("servidor") & "', " & _
**linha 218 -- "sistema= '" & request.form("sistema") & "', " & _
**linha 219 -- "dia= '" & request.form("dia") & "', " & _
**linha 220 -- "inicio='" & request.form("inicio") & "', " & _
**linha 221 -- "fim='" & request.form("fim") & "', " & _
**linha 222 -- "autor='" & request.form("autor") & "', " & _
**linha 223 -- "email='" & request.form("email") & "', " & _
**linha 224 -- "obs ='" & request.form("obs") & "', " & _
**linha 225 -- "data='" & Now() & "' " & _
**linha 226 -- "where codigo='" & Actionvar & "'"
**linha 227 -- conn.execute(SQLstmt)Repare que na linha 225 havia uma vírgula a +.
T +
MACUL
*************** M ** A ** C ** U ** L ***************
*************************************************
*************************************************
#9
Danilo Piovani
-
- Usuários
-
- 27 posts
Turista
- Sexo:Não informado
Posted 23/01/2004, 10:00
Galera ... está ai o codigo inteiro .... inteiro
deem uma olhada , já estou perdendo os cabelos com isso ... rs
para chegar neste página , clico em um link assim:
<A HREF="atualiza.asp?actionvar=<%=codigo%>"><b>Alterar</b></A>
************ Arquivo.asp ************************
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Manutenção em</title>
</head>
<body background="bkg_sub.gif">
<p align="center">
<%
Actionvar=Cint(Request.QueryString("actionvar"))
cod = request.querystring ("cod")
Set conn = server.createobject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("../BancodeDados/avis_manut.mdb")
conn.Open DSNtemp
SQLstmt = "SELECT * FROM Tabela1 WHERE codigo =" & actionvar
Set rs = conn.Execute(SQLstmt)
if not rs.eof then
codigo=rs("codigo")
servidor=rs("servidor")
sistema=rs("sistema")
dia=rs("dia")
inicio=rs("inicio")
fim=rs("fim")
autor=rs("autor")
email=rs("email")
obs=rs("obs")
data=rs("data")
end if
%>
<font size="5" face="Arial"><b><font color="#800000" size="5">Alteração de
Aviso de Manutenção</font></b></font>
<br>
<%
IF Len(TRIM(request.form("flag"))) = 0 THEN
%>
<hr size="1">
<FORM METHOD="post" ACTION="atualiza.asp">
<div align="left">
<table align="center" width="783">
<tr valign="baseline">
<td nowrap align="left" width="193"><b>
Manutenção em: </b>
</td>
<td width="576">
<input type="text" name="servidor" value="<%=servidor %>" size="27">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="left" width="193"><b>Será(ão) Impactado(s):</b>
</td>
<td width="576">
<input type="text" name="sistema" value="<%=sistema %>" size="27">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="left" width="193"><b>
Data da Manutenção: </b>
</td>
<td width="576">
<input type="text" name="dia" value="<%=dia %>" size="20">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="left" width="193"><b>
Hora de Início:</b>
</td>
<td width="576">
<input type="text" name="inicio" value="<%=inicio %>" size="12">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="left" width="193"><b>Tempo de Manutenção:</b>
</td>
<td width="576">
<input type="text" name="fim" value="<%=fim %>" size="12">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="left" width="193"><b>
Autor:</b>
</td>
<td width="576">
<input type="text" name="autor" value="<%=autor %>" size="47">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="left" width="193"><b>E-mail
do Responsável: </b>
</td>
<td width="576">
<input type="text" name="email" value="<%=email %>" size="47">
</td>
</tr>
<tr>
<td nowrap align="left" width="193">
</td>
<td width="576">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="left" width="193"><b>
Observações e Motivos:</b>
</td>
<td width="576">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="left" width="769" colspan="2">
<p align="center">
<textarea TYPE="text" NAME="obs" rows="5" cols="78" value="<%=obs %>"></textarea>
</p>
</td>
</tr>
<tr valign="baseline">
<td nowrap align="left" width="193"> </td>
<td width="576">
<p align="left">
<INPUT TYPE="hidden" NAME="flag" VALUE="2"><input type="submit" value="( Atualizar )">
</p>
</td>
</tr>
</table>
<hr size="1">
<%
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("fim") <> "" 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("fim")
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
Actionvar=Cint(Request.QueryString("actionvar"))
cod = request.querystring ("cod")
Set conn = server.createobject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("../BancodeDados/avis_manut.mdb")
conn.Open DSNtemp
//Atualiza dados no Banco de Dados .MDB
SQLstmt = "UPDATE Tabela1 set " & _
"servidor='" & request.form("servidor") & "', " & _
"sistema= '" & request.form("sistema") & "', " & _
"dia= '" & request.form("dia") & "', " & _
"inicio='" & request.form("inicio") & "', " & _
"fim='" & request.form("fim") & "', " & _
"autor='" & request.form("autor") & "', " & _
"email='" & request.form("email") & "', " & _
"obs ='" & request.form("obs") & "', " & _
"data='" & Now() & "' " & _
"where codigo=" & rs("codigo")
response.write(SQLstmt)
response.write(codigo)
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 & "<p><b><font size=""5"" color=""#000080"">AVISO DE MANUTENÇÃO</font></b></p>"
Mensagem = Mensagem & "<p> </p>"
Mensagem = Mensagem & "<p><font color=""#000080""><b>CÓDIGO: </font></b>" & rs("codigo") & " </p>"
Mensagem = Mensagem & "<p><font color=""#000080""><b>MANUTENÇÃO EM: </b></font>" & request.form("servidor") & " " & "<font color=""#000080""><b>(Servidor, Roteador, Switch, etc...) </p></b></font>"
Mensagem = Mensagem & "<p><font color=""#000080""><b>SERÁ(ÃO) IMPACTADOS: </b></font>" & request.form("sistema") & " " & "<font color=""#000080""><b>(Aplicações,Sistemas, etc...) </p></b></font>"
Mensagem = Mensagem & "<p><font color=""#000080""><b>DIA:</b> </font>" & request.form("dia") & " </p>"
Mensagem = Mensagem & "<p><font color=""#000080""><b>HORA DE INÍCIO: </b></font>" & request.form("inicio") & " </p>"
Mensagem = Mensagem & "<p><font color=""#000080""><b>TEMPO DE MANUTENÇÃO: </b></font>" & request.form("fim") & " </p>"
Mensagem = Mensagem & "<p><font color=""#000080""><b>AUTOR: </b></font>" & request.form("autor") & " </p>"
Mensagem = Mensagem & "<p><font color=""#000080""><b>E-MAIL DO RESPONSÁVEL: </b></font>" & request.form("email") & " </p>"
Mensagem = Mensagem & "<p><font color=""#000080""><b>OBSERVAÇÕES:</b></font><br>" & request.form("obs") & " <BR></p>"
Mensagem = Mensagem & "<p><font color=""#000080""><b>DATA E HORA DA EMISSÃO DO AVISO: </b></font>" & now() & " </p>"
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 = "danilo.piovani@tecban.com.br"
objEmail.Subject = "Aviso de Manutenção"
objEmail.HTMLBody = Mensagem
objEmail.Configuration.Fields.Item ("http://schemas.micro...tion/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.micro...ion/smtpserver") = "10.2.1.120"
objEmail.Configuration.Fields.Item _
("http://schemas.micro...smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
set objEmail = nothing
response.Write "<p><b><font size=""4"" color=""#000080"">O Aviso de Manutenção a seguir foi publicado com sucesso às: " & agora & "<BR></font></b></p>"
response.write (mensagem)
conn.Close
Set conn = nothing
Set SQLstmt = nothing
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Email do Responsável"" não possui Domínio ""tecban.com.br"".</b><br><br><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Email do Responsável"" não possui o caracter ""@"" separando ID da Caixa Postal e o Domínio Internet</b><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Tempo de Manutenção"" não possui os minutos válidos.<br>Preencher o campo no formato ""HH:MM"", isto é, hora e minutos com dois dígitos numéricos separados por "":"". </b><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Tempo de Manutenção"" não possui formato ""HH:MM"", isto é, hora e minutos com dois dígitos numéricos separados por "":"". </b><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Tempo de Manutenção"" não é válido.<br>Preencher o campo no formato ""HH:MM"", isto é, hora e minutos com dois dígitos numéricos separados por "":"". </b><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Hora de Início"" possui minutos não válidos.<br>Preencher o campo no formato ""HH:MM"", isto é, hora e minutos com dois dígitos numéricos separados por "":"". </b><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Hora de Início"" possui hora não válida.<br>Preencher o campo no formato ""HH:MM"", isto é, hora e minutos com dois dígitos numéricos separados por "":"". </b><br><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Hora de Início"" foi preenchido de maneira errada.<br>Preencher o campo no formato ""HH:MM"", isto é, hora e minutos com dois dígitos numéricos separados por "":"". </b><br><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Hora de Início"" não foi preenchido com números.<br>Preencher o campo no formato ""HH:MM"", isto é, hora e minutos com dois dígitos numéricos separados por "":"". </b><br>"
END IF
ElSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Data da Manutenção"" possui data anterior a data atual.</b><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<p><b>• A data deve estar no Formato ""Dia/Mês/Ano"". Exemplo: 15/06/2001.</p></b><br>"
END IF
ElSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<p><b>• O campo ""Data da Manutenção"" deve estar no Formato ""dd/mm/aaaa"".<br>É necessário preencher com 2 digitos para dia e mês e 4 para ano separados por ""/"". Exemplo: 15/06/2001.</p></b><br>"
END IF
ElSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Data da Manutenção"" não possui data válida.</b><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Observações e Motivos"" não preenchido.</b><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""E-mail do Responsável"" não preenchido.</b><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Autor"" não preenchido.</b><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Tempo de Manutenção"" não preenchido.</b><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Hora de Início"" não preenchido.</b><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Data da Manutenção"" não preenchido.</b><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Sistema/Aplicação"" não preenchido.</b><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Servidor"" não preenchido.</b><br>"
END IF
response.Write "<p><BR><hr size='1'><BR></p>"
response.Write "<BR><p>Click no link abaixo para retornar a página anterior.</p>"
response.Write "<p><A HREF=""avis_manut.asp"">Voltar</A><BR></p>"
response.Write "<p><BR><hr size='1'><BR></p>"
response.Write "Click no link abaixo para página da TECBAN.<br>"
response.Write "<BR><A HREF=""http://orion.tecban....me</A><BR><BR>"
END IF
%>
</body>
</html>
deem uma olhada , já estou perdendo os cabelos com isso ... rs
para chegar neste página , clico em um link assim:
<A HREF="atualiza.asp?actionvar=<%=codigo%>"><b>Alterar</b></A>
************ Arquivo.asp ************************
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Manutenção em</title>
</head>
<body background="bkg_sub.gif">
<p align="center">
<%
Actionvar=Cint(Request.QueryString("actionvar"))
cod = request.querystring ("cod")
Set conn = server.createobject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("../BancodeDados/avis_manut.mdb")
conn.Open DSNtemp
SQLstmt = "SELECT * FROM Tabela1 WHERE codigo =" & actionvar
Set rs = conn.Execute(SQLstmt)
if not rs.eof then
codigo=rs("codigo")
servidor=rs("servidor")
sistema=rs("sistema")
dia=rs("dia")
inicio=rs("inicio")
fim=rs("fim")
autor=rs("autor")
email=rs("email")
obs=rs("obs")
data=rs("data")
end if
%>
<font size="5" face="Arial"><b><font color="#800000" size="5">Alteração de
Aviso de Manutenção</font></b></font>
<br>
<%
IF Len(TRIM(request.form("flag"))) = 0 THEN
%>
<hr size="1">
<FORM METHOD="post" ACTION="atualiza.asp">
<div align="left">
<table align="center" width="783">
<tr valign="baseline">
<td nowrap align="left" width="193"><b>
Manutenção em: </b>
</td>
<td width="576">
<input type="text" name="servidor" value="<%=servidor %>" size="27">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="left" width="193"><b>Será(ão) Impactado(s):</b>
</td>
<td width="576">
<input type="text" name="sistema" value="<%=sistema %>" size="27">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="left" width="193"><b>
Data da Manutenção: </b>
</td>
<td width="576">
<input type="text" name="dia" value="<%=dia %>" size="20">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="left" width="193"><b>
Hora de Início:</b>
</td>
<td width="576">
<input type="text" name="inicio" value="<%=inicio %>" size="12">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="left" width="193"><b>Tempo de Manutenção:</b>
</td>
<td width="576">
<input type="text" name="fim" value="<%=fim %>" size="12">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="left" width="193"><b>
Autor:</b>
</td>
<td width="576">
<input type="text" name="autor" value="<%=autor %>" size="47">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="left" width="193"><b>E-mail
do Responsável: </b>
</td>
<td width="576">
<input type="text" name="email" value="<%=email %>" size="47">
</td>
</tr>
<tr>
<td nowrap align="left" width="193">
</td>
<td width="576">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="left" width="193"><b>
Observações e Motivos:</b>
</td>
<td width="576">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="left" width="769" colspan="2">
<p align="center">
<textarea TYPE="text" NAME="obs" rows="5" cols="78" value="<%=obs %>"></textarea>
</p>
</td>
</tr>
<tr valign="baseline">
<td nowrap align="left" width="193"> </td>
<td width="576">
<p align="left">
<INPUT TYPE="hidden" NAME="flag" VALUE="2"><input type="submit" value="( Atualizar )">
</p>
</td>
</tr>
</table>
<hr size="1">
<%
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("fim") <> "" 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("fim")
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
Actionvar=Cint(Request.QueryString("actionvar"))
cod = request.querystring ("cod")
Set conn = server.createobject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("../BancodeDados/avis_manut.mdb")
conn.Open DSNtemp
//Atualiza dados no Banco de Dados .MDB
SQLstmt = "UPDATE Tabela1 set " & _
"servidor='" & request.form("servidor") & "', " & _
"sistema= '" & request.form("sistema") & "', " & _
"dia= '" & request.form("dia") & "', " & _
"inicio='" & request.form("inicio") & "', " & _
"fim='" & request.form("fim") & "', " & _
"autor='" & request.form("autor") & "', " & _
"email='" & request.form("email") & "', " & _
"obs ='" & request.form("obs") & "', " & _
"data='" & Now() & "' " & _
"where codigo=" & rs("codigo")
response.write(SQLstmt)
response.write(codigo)
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 & "<p><b><font size=""5"" color=""#000080"">AVISO DE MANUTENÇÃO</font></b></p>"
Mensagem = Mensagem & "<p> </p>"
Mensagem = Mensagem & "<p><font color=""#000080""><b>CÓDIGO: </font></b>" & rs("codigo") & " </p>"
Mensagem = Mensagem & "<p><font color=""#000080""><b>MANUTENÇÃO EM: </b></font>" & request.form("servidor") & " " & "<font color=""#000080""><b>(Servidor, Roteador, Switch, etc...) </p></b></font>"
Mensagem = Mensagem & "<p><font color=""#000080""><b>SERÁ(ÃO) IMPACTADOS: </b></font>" & request.form("sistema") & " " & "<font color=""#000080""><b>(Aplicações,Sistemas, etc...) </p></b></font>"
Mensagem = Mensagem & "<p><font color=""#000080""><b>DIA:</b> </font>" & request.form("dia") & " </p>"
Mensagem = Mensagem & "<p><font color=""#000080""><b>HORA DE INÍCIO: </b></font>" & request.form("inicio") & " </p>"
Mensagem = Mensagem & "<p><font color=""#000080""><b>TEMPO DE MANUTENÇÃO: </b></font>" & request.form("fim") & " </p>"
Mensagem = Mensagem & "<p><font color=""#000080""><b>AUTOR: </b></font>" & request.form("autor") & " </p>"
Mensagem = Mensagem & "<p><font color=""#000080""><b>E-MAIL DO RESPONSÁVEL: </b></font>" & request.form("email") & " </p>"
Mensagem = Mensagem & "<p><font color=""#000080""><b>OBSERVAÇÕES:</b></font><br>" & request.form("obs") & " <BR></p>"
Mensagem = Mensagem & "<p><font color=""#000080""><b>DATA E HORA DA EMISSÃO DO AVISO: </b></font>" & now() & " </p>"
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 = "danilo.piovani@tecban.com.br"
objEmail.Subject = "Aviso de Manutenção"
objEmail.HTMLBody = Mensagem
objEmail.Configuration.Fields.Item ("http://schemas.micro...tion/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.micro...ion/smtpserver") = "10.2.1.120"
objEmail.Configuration.Fields.Item _
("http://schemas.micro...smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
set objEmail = nothing
response.Write "<p><b><font size=""4"" color=""#000080"">O Aviso de Manutenção a seguir foi publicado com sucesso às: " & agora & "<BR></font></b></p>"
response.write (mensagem)
conn.Close
Set conn = nothing
Set SQLstmt = nothing
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Email do Responsável"" não possui Domínio ""tecban.com.br"".</b><br><br><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Email do Responsável"" não possui o caracter ""@"" separando ID da Caixa Postal e o Domínio Internet</b><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Tempo de Manutenção"" não possui os minutos válidos.<br>Preencher o campo no formato ""HH:MM"", isto é, hora e minutos com dois dígitos numéricos separados por "":"". </b><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Tempo de Manutenção"" não possui formato ""HH:MM"", isto é, hora e minutos com dois dígitos numéricos separados por "":"". </b><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Tempo de Manutenção"" não é válido.<br>Preencher o campo no formato ""HH:MM"", isto é, hora e minutos com dois dígitos numéricos separados por "":"". </b><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Hora de Início"" possui minutos não válidos.<br>Preencher o campo no formato ""HH:MM"", isto é, hora e minutos com dois dígitos numéricos separados por "":"". </b><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Hora de Início"" possui hora não válida.<br>Preencher o campo no formato ""HH:MM"", isto é, hora e minutos com dois dígitos numéricos separados por "":"". </b><br><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Hora de Início"" foi preenchido de maneira errada.<br>Preencher o campo no formato ""HH:MM"", isto é, hora e minutos com dois dígitos numéricos separados por "":"". </b><br><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Hora de Início"" não foi preenchido com números.<br>Preencher o campo no formato ""HH:MM"", isto é, hora e minutos com dois dígitos numéricos separados por "":"". </b><br>"
END IF
ElSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Data da Manutenção"" possui data anterior a data atual.</b><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<p><b>• A data deve estar no Formato ""Dia/Mês/Ano"". Exemplo: 15/06/2001.</p></b><br>"
END IF
ElSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<p><b>• O campo ""Data da Manutenção"" deve estar no Formato ""dd/mm/aaaa"".<br>É necessário preencher com 2 digitos para dia e mês e 4 para ano separados por ""/"". Exemplo: 15/06/2001.</p></b><br>"
END IF
ElSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Data da Manutenção"" não possui data válida.</b><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Observações e Motivos"" não preenchido.</b><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""E-mail do Responsável"" não preenchido.</b><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Autor"" não preenchido.</b><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Tempo de Manutenção"" não preenchido.</b><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Hora de Início"" não preenchido.</b><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Data da Manutenção"" não preenchido.</b><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Sistema/Aplicação"" não preenchido.</b><br>"
END IF
ELSE
Response.Write "<p>Formulário não foi enviado devido ao seguinte problema:</p><br>"
Response.Write "<b>• O campo ""Servidor"" não preenchido.</b><br>"
END IF
response.Write "<p><BR><hr size='1'><BR></p>"
response.Write "<BR><p>Click no link abaixo para retornar a página anterior.</p>"
response.Write "<p><A HREF=""avis_manut.asp"">Voltar</A><BR></p>"
response.Write "<p><BR><hr size='1'><BR></p>"
response.Write "Click no link abaixo para página da TECBAN.<br>"
response.Write "<BR><A HREF=""http://orion.tecban....me</A><BR><BR>"
END IF
%>
</body>
</html>
" Sinto que as pessoas dão pouco valor para o que realmente sentem , essas pessoas sofrem mas mesmo assim preferem isso à não ser mais destaque dentro da visão de outras pessoas , preferem Status, à ser feliz , eu quero é que o mundo se exploda , mas a minha felicidade não deixo passar , e diga-se de passagem quem realmente quer ser feliz com uma outra pessoa não se importa se ela ronca , ou se é baixo , alto , magro , gordo ,careca , feio , e sim tranforma os "defeitos" em qualidade , essas que a pessoa demontra . Amar é gostar intensamente e saber que em primeiro lugar vc esta sendo sincero(a) consigo mesmo(a) .
Por tudo resumimos que o importante é ser amado e se amar , o resto é balela , pura imaginação , sonho , que ao acordar vc pode perceber que foi seu pior pesadelo. "
Por tudo resumimos que o importante é ser amado e se amar , o resto é balela , pura imaginação , sonho , que ao acordar vc pode perceber que foi seu pior pesadelo. "
#10
Danilo Piovani
-
- Usuários
-
- 27 posts
Turista
- Sexo:Não informado
Posted 23/01/2004, 14:12
Ajuda ai galera ...
" Sinto que as pessoas dão pouco valor para o que realmente sentem , essas pessoas sofrem mas mesmo assim preferem isso à não ser mais destaque dentro da visão de outras pessoas , preferem Status, à ser feliz , eu quero é que o mundo se exploda , mas a minha felicidade não deixo passar , e diga-se de passagem quem realmente quer ser feliz com uma outra pessoa não se importa se ela ronca , ou se é baixo , alto , magro , gordo ,careca , feio , e sim tranforma os "defeitos" em qualidade , essas que a pessoa demontra . Amar é gostar intensamente e saber que em primeiro lugar vc esta sendo sincero(a) consigo mesmo(a) .
Por tudo resumimos que o importante é ser amado e se amar , o resto é balela , pura imaginação , sonho , que ao acordar vc pode perceber que foi seu pior pesadelo. "
Por tudo resumimos que o importante é ser amado e se amar , o resto é balela , pura imaginação , sonho , que ao acordar vc pode perceber que foi seu pior pesadelo. "
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)
