Ir para conteúdo
Fórum Script Brasil

Danilo Piovani

Membros
  • Total de itens

    29
  • Registro em

  • Última visita

Sobre Danilo Piovani

  • Data de Nascimento 12/02/1983

Contatos

  • MSN
    danilopiovani@hotmail.com
  • Website URL
    http://www.asrsaude.com.br
  • ICQ
    0

Danilo Piovani's Achievements

0

Reputação

  1. Galera precisa migrar dados de um banco de dados .mdb para o Oracle ... alguém pode me ajudar ???
  2. E como vejo esse erro específico ?? Desculpe minha ignorância neste assunto ... é que realmente não manjo nada ...
  3. Não entendi ???????????
  4. Oh valeu ... Achei os HTMs dentros desta pasta ... Agora é o seginte ... Sobre o erro que quero trocar : ele se dá pela falta de permissão de acessar determinada pasta aqui na intranet da empresa ... e esse erro não está nesta pasta junto com os demais erros , tipo 404 etc ... Me ajudem ai galera ... valeu ... O Erro é o seguinte ::: A página não pode ser exibida A página que você procura não está disponível no momento. Talvez o site da Web esteja passando por dificuldades técnicas ou você precise ajustar as configurações do navegador. Tente o seguinte: Clique no botão Atualizar ou tente novamente mais tarde. Se você digitou o endereço da página na barra de endereços, certifique-se de que ele foi digitado corretamente. Para verificar as configurações da conexão, clique no menu Ferramentas e em Opções da Internet. Na guia Conexões, clique em Configurações. As configurações devem coincidir com as fornecidas pelo administrador da rede local (LAN) ou pelo provedor de serviços de Internet. Se este recurso tiver sido ativado pelo administrador da rede, o Microsoft Windows pode examinar a rede para detectar automaticamente as configurações de conexão da rede. Se quiser que o Windows tente descobri-las, clique em Detectar configurações de rede Alguns sites requerem conexão com segurança de 128 bits. Clique no menu Ajuda e em Sobre o Internet Explorer para determinar o nível de segurança instalado. Se você está tentando acessar um site seguro, certifique-se de que suas configurações de segurança oferecem suporte ao site. Clique no menu Ferramentas e em Opções da Internet. Na guia 'Avançado', vá para a seção 'Segurança' e verifique as configurações de SSL 2.0, SSL 3.0, TLS 1.0, PCT 1.0. Clique no botão Voltar para tentar outro link. Servidor não encontrado ou erro de DNS Internet Explorer
  5. Carinhas ... alguém manja como eu faço para trocar as mensagens de erro do Internet Explorer por páginas de eero criadas por mim mesmo ?? Fiquei sabendo que é no IIS , mas não consigo achar todos erros que preciso trocar ... em específico erro de DNS ...
  6. Carinha ... você manja como eu faço para trocar as mensagens de erro do Internet Explorer por páginas de eero criadas por mim mesmo ?? Fiquei sabendo que é no IIS , mas não consigo achar todos erros que preciso trocar ... em específico erro de DNS ...
  7. Bom é html , porque todos erros dados no windows internet explorer são html .. Mas minha dúvida não é com o código , se prestarem atençõ , pergunto onde e como faço para mudar esses error que provavelmente se encontra em alguma pasta do windows ... seguido disso descobrir qual é esse erro para trocar o arquivo , pelo meu arquivo interno ...
  8. porque ? Trata-se de Windows ( Internet Explorer )
  9. Galera ... estou querendo colocar minha própria página de retorno de erro do internet Explorer ... o Código de erro que apresenta é o seguinte ... eu sei que existe um lugar que se a gente trocar um determinado arquivo ( ou melhor , o arquivo específico que você quer mudar ) e colocar no lugar sua p&acute;ropria página de erro ... Certo de que alguém vai me ajudar ..... muito obrigado ... <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"> <html> <head> <style> a:link {font:8pt/11pt verdana; color:red} a:visited {font:8pt/11pt verdana; color:#4e4e4e} </style> <meta HTTP-EQUIV="Content-Type" Content="text-html; charset=Windows-1252"> <title>Servidor não encontrado</title> </head> <script> function doNetDetect() { saOC.NETDetectNextNavigate(); document.execCommand('refresh'); } function initPage() { document.body.insertAdjacentHTML("afterBegin","<object id=saOC CLASSID='clsid:B45FF030-4447-11D2-85DE-00C04FA35C89' HEIGHT=0 width=0></object>"); } </SCRIPT> <body bgcolor="white" onload="initPage()"> <table width="400" cellpadding="3" cellspacing="5"> <tr> <td id="tableProps" valign="top" align="left"><img id="pagerrorImg" SRC="pagerror.gif" width="25" height="33"></td> <td id="tableProps2" align="left" valign="middle" width="360"><h1 id="textSection1" style="COLOR: black; FONT: 13pt/15pt verdana"><span id="errorText">A página não pode ser exibida</span></h1> </td> </tr> <tr> <td id="tablePropsWidth" width="400" colspan="2"><font style="COLOR: black; FONT: 8pt/11pt verdana">A página que você procura não está disponível no momento. Talvez o site da Web esteja passando por dificuldades técnicas ou você precise ajustar as configurações do navegador.</font></td> </tr> <tr> <td id="tablePropsWidth" width="400" colspan="2"><font id="LID1" style="COLOR: black; FONT: 8pt/11pt verdana"><hr color="#C0C0C0" noshade> <p id="LID2">Tente o seguinte:</p><ul> <li id="instructionsText1">Clique no botão <a xhref="javascript:location.reload()" target="_self"> <img border=0 src="refresh.gif" width="13" height="16" alt="refresh.gif (82 bytes)" align="middle"></a> <a xhref="javascript:location.reload()" target="_self">Atualizar</a> ou tente novamente mais tarde.<br> </li> <li id="instructionsText2">Se você digitou o endereço da página na barra de endereços, certifique-se de que ele foi digitado corretamente.<br> </li> <li id="instructionsText3">Para verificar as configurações da conexão, clique no menu <b>Ferramentas</b> e em <b>Opções da Internet</b>. Na guia <b>Conexões</b>, clique em <b>Configurações</b>. As configurações devem coincidir com as fornecidas pelo administrador da rede local (LAN) ou pelo provedor de serviços de Internet. </li> <li ID="list4">Se este recurso tiver sido ativado pelo administrador da rede, o Microsoft Windows pode examinar a rede para detectar automaticamente as configurações de conexão da rede.<BR> Se quiser que o Windows tente descobri-las, <br>clique em <a href="javascript:doNetDetect()" title="Detectar configurações"><img border=0 src="search.gif" width="16" height="16" alt="Detectar configurações" align="center"> Detectar configurações de rede</a> </li> <li id="instructionsText5"> Alguns sites requerem conexão com segurança de 128 bits. Clique no menu <b>Ajuda</b> e em <b> Sobre o Internet Explorer </b> para determinar o nível de segurança instalado. </li> <li id="instructionsText4"> Se você está tentando acessar um site seguro, certifique-se de que suas configurações de segurança oferecem suporte ao site. Clique no menu <B>Ferramentas</b> e em <b>Opções da Internet</b>. Na guia 'Avançado', vá para a seção 'Segurança' e verifique as configurações de SSL 2.0, SSL 3.0, TLS 1.0, PCT 1.0. </li> <li id="list3">Clique no botão <a href="javascript:history.back(1)"><img valign=bottom border=0 src="back.gif"> Voltar</a> para tentar outro link. </li> </ul> <p><br> </p> <h2 id="IEText" style="font:8pt/11pt verdana; color:black">Servidor não encontrado ou erro de DNS<BR> Internet Explorer </h2> </font></td> </tr> </table> </body> </html>
  10. Eis o código ... do contador ... o resto da página é só tabela e etc ... minha maior dúvida é a seguinte ::: Aquele arquivo Global.asa tem que ficar onde ??? <% '+-------------------------------------------+ 'l Desenvolvido por Rodrigo Alviani - f0ck l 'l rody_lmd@hotmail.com UIN: 131341660 l 'l Esse script livre e foi feito para estudo l 'l ou para ser usado em seu site. l '+-------------------------------------------+ '=========================================================================== 'Definindo as Variáveis '=========================================================================== Dim fsoObject 'File System Object Dim tsObject 'Text Stream Object Dim filObject 'File Object Dim Visitantes 'Número de Visitantes Dim Contador 'Loop para preencher as imagens do contador Dim Zeros 'Adicionas os Zeros a esquerda Dim Quantidade 'Quantidade de Digitos que aparecerão '(deixe 0 para auto) '=========================================================================== 'Definindo Quantidade de Dígitos Mostrados '=========================================================================== Quantidade=8 '=========================================================================== 'Criando o File System Object '=========================================================================== Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") '=========================================================================== 'Iniciando o o FSO já com o caminho do arquivo de texto '=========================================================================== Set filObject = fsoObject.GetFile(Server.MapPath("contador.txt")) '=========================================================================== 'Abrindo o Arquivo de Texto '=========================================================================== Set tsObject = filObject.OpenAsTextStream '=========================================================================== 'Lendo o Arquivo de Texto '=========================================================================== Visitantes = CLng(tsObject.ReadAll) '=========================================================================== 'Caso a Variável da Sessão seja nula ou não exista, adicionar 1 ao contador '=========================================================================== If isEmpty(Session("Visitado")) = true Then ( essa é a linha 883 ) 'Somando +1 ao contador Visitantes = Visitantes + 1 'Definindo a Varoável da Sessão como True Session("Visitado") = True End if '=========================================================================== 'Criando um Novo Arquivo de Texto Para Substituir o Antigo '=========================================================================== Set tsObject = fsoObject.CreateTextFile(Server.MapPath("contador.txt")) '=========================================================================== 'Definindo o Novo Número no Contador '=========================================================================== tsObject.Write CStr(Visitantes) '=========================================================================== 'Fechando os Objetos '=========================================================================== Set fsoObject = Nothing Set tsObject = Nothing Set filObject = Nothing '=========================================================================== 'Habilitar a Linha Abaixo Para Mostrar o Resultado em Modo Texto '=========================================================================== 'Response.Write(Visitantes) '=========================================================================== 'Acertando a Quantidade de Dígitos Mostrados '=========================================================================== Do While Len(Visitantes)<>Quantidade Visitantes="0" & Visitantes Loop '=========================================================================== 'Loop Para Mostrar o Resultado em Imagens '=========================================================================== For Contador = 1 to Len(Visitantes) 'Mostrando as Imagens Response.Write("<img src=""imagens/") Response.Write(Mid(Visitantes, Contador, 1) & "a.gif""") Response.Write("alt=""" & Mid(Visitantes, Contador, 1) & """>") Next %>
  11. Fala Galera sempre disposta ... já baixei o contador de acessos aqui no ScriptBrasil só não consigo faze-lo funcionar ... Onde tenho que por aquele código ASP , ou tenho que chamar ele de algum lugar ?? Da uma força aí galera ... valeu ... tá dando esse erro : Microsoft VBScript runtime error '800a000d' Type mismatch: 'Session' /producao/main/InfoProd.asp, line 883
  12. Danilo Piovani

    Novo Erro

    Cara eu não manjo muitpo disso tem como você colocar isso que você falou ai no código e me mandar ???
  13. Danilo Piovani

    Novo Erro

    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> e o erro que está dando no momento é o seguinte : error '80020009' Exception occurred. /producao/Aviso_Manut/AreaRestrita/atualiza.asp, line 222 ************ 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:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</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:&nbsp;&nbsp;&nbsp;</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:&nbsp;</b> </td> <td width="576"> <input type="text" name="email" value="<%=email %>" size="47"> </td> </tr> <tr> <td nowrap align="left" width="193">&nbsp;&nbsp; </td> <td width="576"> &nbsp;&nbsp; </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">&nbsp;</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>&nbsp;</p>" Mensagem = Mensagem & "<p><font color=""#000080""><b>CÓDIGO: </font></b>" & rs("codigo") & "&nbsp;</p>" Mensagem = Mensagem & "<p><font color=""#000080""><b>MANUTENÇÃO EM: </b></font>" & request.form("servidor") & " " & "<font color=""#000080""><b>(Servidor, Roteador, Switch, etc...)&nbsp;</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...)&nbsp;</p></b></font>" Mensagem = Mensagem & "<p><font color=""#000080""><b>DIA:</b> </font>" & request.form("dia") & "&nbsp;</p>" Mensagem = Mensagem & "<p><font color=""#000080""><b>HORA DE INÍCIO: </b></font>" & request.form("inicio") & "&nbsp;</p>" Mensagem = Mensagem & "<p><font color=""#000080""><b>TEMPO DE MANUTENÇÃO: </b></font>" & request.form("fim") & "&nbsp;</p>" Mensagem = Mensagem & "<p><font color=""#000080""><b>AUTOR: </b></font>" & request.form("autor") & "&nbsp;</p>" Mensagem = Mensagem & "<p><font color=""#000080""><b>E-MAIL DO RESPONSÁVEL: </b></font>" & request.form("email") & "&nbsp;</p>" Mensagem = Mensagem & "<p><font color=""#000080""><b>OBSERVAÇÕES:</b></font><br>" & request.form("obs") & "&nbsp;<BR></p>" Mensagem = Mensagem & "<p><font color=""#000080""><b>DATA E HORA DA EMISSÃO DO AVISO: </b></font>" & now() & "&nbsp;</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.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 "<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.com"">Home</A><BR><BR>" END IF %> </body> </html>
  14. Danilo Piovani

    Novo Erro

    Bom ... isso deu certo ... porem surgiu outro erro ... 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 226 Desculpem galera , é que eu acho que deve ser erro besta , mas eu estou só aprendendo ... //Atualiza dados no Banco de Dados .MDB **linha 215 -- SQLstmt = "UPDATE Tabela1 " & _ **linha 216 -- "servidor='" & request.form("servidor") & "', " & _ **linha 217 -- "sistema= '" & request.form("sistema") & "', " & _ **linha 218 -- "dia= '" & request.form("dia") & "', " & _ **linha 219 -- "inicio='" & request.form("inicio") & "', " & _ **linha 220 -- "fim='" & request.form("fim") & "', " & _ **linha 221 -- "autor='" & request.form("autor") & "', " & _ **linha 222 -- "email='" & request.form("email") & "', " & _ **linha 223 -- "obs ='" & request.form("obs") & "', " & _ **linha 224 -- "data='" & Now() & "', " & _ **linha 225 -- "where codigo='" & Actionvar & "'" **linha 226 -- conn.execute(SQLstmt)
  15. Danilo Piovani

    Novo Erro

    continuou ... o mesmo erro ...
×
×
  • Criar Novo...