Ir para conteúdo
Fórum Script Brasil

psljesus

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    2

  • Registro em

  • Última visita

Sobre psljesus

psljesus's Achievements

0

Reputação

  1. psljesus
    Olá Caros, Gostaria de solicitar ajuda, pois possuo Windows XP e meu ISS não está rodando páginas em ASP apresenta o seguinte erro HTTP 500 - erro interno do servidor Por favor se alguém sabe o que posso fazer para corrigir ficarei bastante agradecido. Um grande abraço
  2. psljesus
    Olá Caros amigos espero que me ajudem!!! Criei um site que tem um Mural de Recados que utiliza um banco de dados em ACCESS chamado visitas e nele possui 02 tabelas: analise e visitas. A Tabela analise é onde ficará todas as mensagens que foram encaminhadas pela pagina Deixe seu Recado, sendo que as mensagens encaminhadas ficaram na tabela análise, que será liberada em outra pagina com um botão de liberação para as mensagens que forem selecionadas para o banco de dados visitas aonde aparecerá na página Mural de Recados. Já tentei diversas vezes mas aparece erros como: Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][Driver ODBC para Microsoft Access] O campo 'VISITAS.VISMENSAGEM' não pode ser uma seqüência de caracteres de comprimento nulo. /bancoadm/inserir_visita.asp, line 45 ------------------------------------------------------------------------------------------------------- Pagina: administracao_envio.asp (Página aonde aparece as mensagens do banco de dados - analise) <% Option Explicit Response.Expires = 0 Dim objConn, objRs, strQuery Dim strConnection 'Conectando com o banco de dados visitas.mdb Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("visitas.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" 'Seleciona da tabela contato strQuery = "SELECT * FROM ANALISE" Set ObjRs = objConn.Execute(strQuery) %> <html> <LINK REL=stylesheet HREF="liks_etc.css" TYPE="text/css"> <head> <STYLE type=text/css> A:link { text-decoration: none} A:visited { text-decoration: none} </STYLE> </head> <body background="../background/backgroundacesso.jpg" link="#000000" vlink="#666666" alink="#B70000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <div align="center" style="width: 756; height: 119"> <table width="710" border="0" cellspacing="0" cellpadding="0" height="1"> <tr> <td width="448" valign="top" height="136"> <table width="740" border="0" align="center" cellpadding="0" cellspacing="0"> <tr bgcolor="ffffff"> <td width="740" colspan="3"> <table width="759" height="148" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="759" height="148"> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="759" height="148"> <param name="movie" value="../flash/cabecalho.swf"> <param name="quality" value="high"> <embed src="../flash/cabecalho.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="759" height="148"></embed></object></td> </tr> </table> <table width="741" border="0" align="center" cellpadding="2" cellspacing="2"> <tr> <td width="24%" bgcolor="#f5f5f5"> <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="escolhe_pra_auterar.asp" class="menu">Alterar</a></font></b></font></div></td> <td width="25%" bgcolor="#f5f5f5"> <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#CCCCCC">Excluir</font></b></font></div></td> <td width="25%" bgcolor="#f5f5f5"> <div align="center"><font color="#000099"><b><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="javascript:history.back(-1)" class="menu">Voltar</a></font></b></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#CCCCCC"></font></b></font></div></td> </tr> </table> </td> </tr> <tr> <td colspan="3"> <table width="741" height="18" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="741" height="1" align="center"> <font face="Verdana, Arial, Helvetica, sans-serif" color="#000099" size="3"><b><br> </b></font><font size="2"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#B70000">:: Administra&ccedil;&atilde;o - Exclus&atilde;o::</font></b></font></td> </tr> </table> <table width="740" height="18" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td align="center" height="1" width="735"> <font face="Verdana, Arial, Helvetica, sans-serif" color="#000099" size="3"><b><br> </b> <font color="#000000" size="2">Selecione a(s) mensagem(s) a ser(em) exclu&iacute;da(s)</font></font></td> </tr> </table> <form method="post" action="inserir_visita.asp" name="form" > <table width="736" border="0" cellspacing="0" cellpadding="0" height="1"> <tr> <td height="1" align="center" width="734"> <table width="740" height="63" border="0" align="center" cellpadding="2"> <tr bgcolor="#B70000"> <td width="18" height="1" align="center"> <font size="1" color="FFFFFF"><b><font face="Verdana">N&ordm;:</font></b> </font></td> <td width="125" height="1" align="center"> <font size="1" color="FFFFFF"><b><font face="Verdana">Nome:</font></b> </font></td> <td height="1" colspan="2" align="center"> <font size="1" color="FFFFFF"><b></b> </font> <font size="1" color="FFFFFF"><b><font size="1" color="FFFFFF"><b><font face="Verdana">Data</font></b></font><font face="Verdana">:</font></b> </font></td> <td width="155" height="1" align="center"> <font size="1" color="FFFFFF"><b><font face="Verdana">E-mail:</font></b> </font></td> <td width="266" height="1" align="center"><font size="1" color="FFFFFF"><b><font size="1" color="FFFFFF"><b><font face="Verdana">Mensagem</font></b></font><font face="Verdana">:</font></b> </font></td> <td width="60" height="1" align="center"> <font size="1" color="FFFFFF"> <input type="submit" name="Submit" value="Liberar"> </font></td> </tr> <%While Not objRS.EOF %> <tr bgcolor="#FFFFFF"> <td width="18" height="1" align="center"> <font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <%Response.write objRS("VISCODIGO")%> </font> </b></font></td> <td width="125" height="1" align="center"> <div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <%Response.write objRS("VISNOME")%> </font> </b></font></div></td> <td height="1" colspan="2" align="center"> <div align="center"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> </font> </b></font> <font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif"> <%Response.write objRS("VISDATA")%> </font></b></font></div></td> <td width="155" height="1" align="center"> <div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif"><a href="mailto:<%Response.write objRS("VISEMAIL")%>" class="menu"> <%Response.write objRS("VISEMAIL")%> </a> </font></b></font></div></td> <td width="266" height="1" align="center"> <div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <%Response.write objRS("VISMENSAGEM")%> </font></b></font></div></td> <td width="60" height="1" align="center"> <div align="center"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <input type="checkbox" name="checkbox" value="<%=objRS(0)%>"> </font> </b></font></div></td> </tr> <% 'Movendo para o proximo registro objRS.MoveNext Wend 'Fechando as conexões objRs.close objConn.close Set objRs = Nothing Set objConn = Nothing %> </table> </td> </tr> </table> </form> </td> </tr> </table> </td> </tr> </table> </div> <style type="text/css"> body { scrollbar-face-color: "#510006"; scrollbar-shadow-color: "#FFFFFF"; scrollbar-highlight-color: "#FFFFFF"; scrollbar-3dlight-color: "#74000A"; scrollbar-darkshadow-color: "#74000A"; scrollbar-track-color: "#74000A"; scrollbar-arrow-color: "#FFFFFF"; } </style> </body> </html> ------------------------------------------------------------------------------------------------------- Pagina: inserir_visita.asp (Página aonde as mensagens serao enviadas para o banco de dados - visitas) <%@Language=VBScript%> <%Option Explicit%> <% Const adCmdText = &H0001 Const adExecuteNoRecords = &H00000080 Dim strSQL Dim objConn 'retira as aspas simples de um texto para 'ser passado ao banco de dados Function Aspas(T) Dim i Dim Letra Dim Texto Texto = T Aspas = "" If IsNull(Texto) Or IsEmpty(Texto) Then Exit Function End If For i=1 To Len(Texto) Letra = Mid(texto, i, 1) If Letra = "'" Then Aspas = Aspas & "''" Else Aspas = Aspas & Letra End If Next End Function Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & _ Server.MapPath("visitas.mdb") objConn.Open strSQL = "INSERT INTO VISITAS (VISNOME, VISEMAIL, VISMENSAGEM) VALUES ('" & _ Aspas(Request("NOME")) & "', '" & Aspas(Request("EMAIL")) & "', '" & Aspas(Request("MENSAGEM")) & "')" objConn.Execute strSQL, , adCmdText objConn.Close Set objConn = Nothing If Err.Number = 0 Then Response.Redirect "visitas.asp" Else Response.Redirect "erro.asp" End If%> ---------------------------------------------------------------------------------------------------- POR FAVOR ME AJUDEM!!!!
×
×
  • Criar Novo...