Ir para conteúdo
Fórum Script Brasil

Danilo Piovani

Membros
  • Total de itens

    29
  • Registro em

  • Última visita

Tudo que Danilo Piovani postou

  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 ...
  16. Danilo Piovani

    Novo Erro

    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***%>
  17. O que tem de errado neste ?? <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body bgcolor="#FFFFFF" text="#000000"> <form method="post" action="<%=MM_editAction%>" name="form1"> <table align="center" width="611"> <tr valign="baseline"> <td nowrap align="left" width="193"><b> Manutenção em:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b> </td> <td width="404"> <input type="text" name="nome" value="<%=(Recordset1.Fields.Item("servidor").Value)%>" size="27"> </td> </tr> <tr valign="baseline"> <td nowrap align="left" width="193"><b>Será(ão) Impactado(s):</b> </td> <td width="404"> <input type="text" name="endereco" value="<%=(Recordset1.Fields.Item("sistema").Value)%>" 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="404"> <input type="text" name="cidade" value="<%=(Recordset1.Fields.Item("dia").Value)%>" size="20"> </td> </tr> <tr valign="baseline"> <td nowrap align="left" width="193"><b> Hora de Início:</b> </td> <td width="404"> <input type="text" name="estado" value="<%=(Recordset1.Fields.Item("inicio").Value)%>" size="12"> </td> </tr> <tr valign="baseline"> <td nowrap align="left" width="193"><b>Tempo de Manutenção:</b> </td> <td width="404"> <input type="text" name="cep" value="<%=(Recordset1.Fields.Item("termino").Value)%>" size="12"> </td> </tr> <tr valign="baseline"> <td nowrap align="left" width="193"><b> Autor:</b> </td> <td width="404"> <input type="text" name="email" value="<%=(Recordset1.Fields.Item("autor").Value)%>" size="47"> </td> </tr> <tr valign="baseline"> <td nowrap align="left" width="193"><b>E-mail do Responsável:&nbsp;</b> </td> <td width="404"> <input type="text" name="tel1" value="<%=(Recordset1.Fields.Item("email").Value)%>" size="47"> </td> </tr> <tr valign="baseline"> <td nowrap align="left" width="193"><b> Observações e Motivos:</b> </td> <td width="404"> <textarea TYPE="text" NAME="obs" rows="5" cols="78" value="<%=(Recordset1.Fields.Item("obs").Value)%>"></textarea> </td> </tr> <tr valign="baseline"> <td nowrap align="left" width="193"></td> <td width="404"> </td> </tr> <tr valign="baseline"> <td nowrap align="left" width="193">&nbsp;</td> <td width="404"> <p align="center"> <input type="submit" value="( Atualizar )"> </p> </td> </tr> </table> <input type="hidden" name="MM_update" value="true"> <input type="hidden" name="MM_recordId" value="<%= Recordset1.Fields.Item("codigo").Value %>"> </form> <%@LANGUAGE="VBSCRIPT"%> <!--#include file="Connections/avis_manut.asp" --> <% ' ******************** WWW.COMERCIALWEB.COM.BR ********************* ' * Este sistema foi desenvolvido por: www.comercialweb.com.br * ' * desenvolvimentos loja virtual dominio e hospedagem. * ' * E-mail comercial@comercialweb.com.br * ' * caso tenha alguma dúvida leia o arquivo configuração.txt * ' * ou envie um E-mail: yy200@ig.com.br a/c Luciano * ' ****************************************************************** MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Update Record: set variables If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then MM_editConnection = MM_avis_manut_STRING MM_editTable = "tabela1" MM_editColumn = "codigo" MM_recordId = "" + Request.Form("MM_recordId") + "" MM_editRedirectUrl = "confirma_atualizacao.asp" MM_fieldsStr = "servidor|value|sistema|value|dia|value|inicio|value|termino|value|autor|value|email|value|obs|value" MM_columnsStr = "|servidor|',none,''|sistema|',none,''|dia|',none,''|inicio|',none,''|termino|',none,''|autor|',none,''|email|',none,''|obs|',none,NULL" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(i+1) = CStr(Request.Form(MM_fields(i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Update Record: construct a sql update statement and execute it If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then ' create the sql update statement MM_editQuery = "update " & MM_editTable & " set " For i = LBound(MM_fields) To UBound(MM_fields) Step 2 FormVal = MM_fields(i+1) MM_typeArray = Split(MM_columns(i+1),",") Delim = MM_typeArray(0) If (Delim = "none") Then Delim = "" AltVal = MM_typeArray(1) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_typeArray(2) If (EmptyVal = "none") Then EmptyVal = "" If (FormVal = "") Then FormVal = EmptyVal Else If (AltVal <> "") Then FormVal = AltVal ElseIf (Delim = "'") Then ' escape quotes FormVal = "'" & Replace(FormVal,"'","''") & "'" Else FormVal = Delim + FormVal + Delim End If End If If (i <> LBound(MM_fields)) Then MM_editQuery = MM_editQuery & "," End If MM_editQuery = MM_editQuery & MM_columns(i) & " = " & FormVal Next MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId If (Not MM_abortEdit) Then ' execute the update Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% Dim Recordset1__Codigo Recordset1__Codigo = "0" if (request.querystring("tabela1") <> "") then Recordset1__Codigo = request.querystring("tabela1") %> <% set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_avis_manut_STRING Recordset1.Source = "SELECT codigo , servidor, sistema, dia , inicio, termino, autor, email, obs FROM tabela1 WHERE codigo = " + Replace(Recordset1__Codigo, "'", "''") + "" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open() Recordset1_numRows = 0 %> <p>&nbsp;</p> </body> </html> <%Recordset1.Close()%>
  18. Então Galera , o procedimento que eu imagino é o seguinte ... Um funcionário insere um aviso de manutenção ... ( já implementado ) dou a opção de consultar os avisos em aberto ... ( já implementado ) dentro desta página quero um botão de atualizar , que quando clicado traz todos os campos com os atuais "valores" podendo assim ser modificados e feito o update ... Se você puder me mostrar um código simples disso eu tento colocar dentro do meu padrão ... Valeu Galera...
  19. Falae galera ... vocês podem me dar um exemplo de um update no BD Access ... No caso seria via formulário ... Valeu { } ...
  20. Danilo Piovani

    Sobre Este Erro ..

    Galera acabei descobrindo , não era nem um erro , era a permissão de alteração no BD ... Valeu pela ajuda galera ......
  21. Danilo Piovani

    Sobre Este Erro ..

    <HTML> <head> <meta http-equiv="Content-Language" content="pt-br"> <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>Área Restrita</title> <meta name="Microsoft Theme" content="none, default"> <meta name="Microsoft Border" content="none, default"> </head> <BODY background="bkg_sub.gif"> <p align="center"><font color="#800000" size="5" face="Arial"><b>Aviso de Manutenção</b></font><% IF Len(TRIM(request.form("flag"))) = 0 THEN %> <br><br> <FORM METHOD="post" ACTION="avis_manut.asp"> <b><p style="word-spacing: 0; line-height: 100%; margin: 0"> Manutenção em: <INPUT TYPE="text" NAME="servidor" size="30"> (Servidor, Switch, Roteador, etc...)<BR> &nbsp; <p style="word-spacing: 0; line-height: 100%; margin-top: 0; margin-bottom: 0"> Será(ão) Impactado(s): <INPUT TYPE="text" NAME="sistema" size="29"> (Aplicações, Sistemas, etc...)<BR> &nbsp; </p> <p style="word-spacing: 0; line-height: 100%; margin-top: 0; margin-bottom: 0"> Data da Manutenção: <INPUT TYPE="text" NAME="dia" size="18"> (Utilizar o formato: dia/mês/ano)<BR> &nbsp; </p> <p style="word-spacing: 0; line-height: 100%; margin-top: 0; margin-bottom: 0"> Hora de Início: <INPUT TYPE="text" NAME="inicio" size="19"><BR> &nbsp; </p> <p style="word-spacing: 0; line-height: 100%; margin-top: 0; margin-bottom: 0"> Tempo de Manutenção: <INPUT TYPE="text" NAME="termino" size="18"><BR> &nbsp; </p> <p style="word-spacing: 0; line-height: 100%; margin-top: 0; margin-bottom: 0"> Autor: <INPUT TYPE="text" NAME="autor" size="48"> </p> <p style="word-spacing: 0; line-height: 100%; margin-top: 0; margin-bottom: 0">&nbsp; </p> <p style="word-spacing: 0; line-height: 100%; margin-top: 0; margin-bottom: 0">E-mail do Responsável: <INPUT TYPE="text" NAME="email" size="47"> </p> <p style="word-spacing: 0; line-height: 100%; margin-top: 0; margin-bottom: 0"> &nbsp;</p> <p style="word-spacing: 0; line-height: 100%; margin-top: 0; margin-bottom: 0"> Observações e Motivos: <BR> <textarea TYPE="text" NAME="obs" rows="5" cols="97"></textarea></p> <p style="word-spacing: 0; line-height: 100%; margin-top: 0; margin-bottom: 0"> &nbsp;</p></b> <INPUT TYPE="hidden" NAME="flag" VALUE="2"><INPUT TYPE="submit" VALUE="Enviar"> </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 & "<p><b><font size=""6"" 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("termino") & "&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 = "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 "<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><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><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 %> <p>&nbsp;</BODY> </HTML>
  22. Galera estou fazendo uma manutenção em uma intranet ... e tenho que colocar dentro dos novos padros os formulários .asp Feito tudo isso , criei um link de teste , mas ao clicar aparece uma mensagem perguntando se eu desejo fazer o dowload do endereço tal e tal ... O que está acontecendo ... ????
  23. Então , seria uma intranet e como o rapaz disse ai em cima não deu certo ...
  24. Galera ajuda aí .... Será que tem como fazer isso ????
  25. Pessoal , mais uma vez estou aqui .... Agora preciso que meus links , abram por exemplo o IExplorer.exe e não estou conseguindo , não sei se em um documento HTML tem esse poder ... Como faço isso ??? EX : Fazer uns links assim : IExplorer FrontPage Lotus Notes e a partir dos links já abram o programa .... entenderam ???
×
×
  • Criar Novo...