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ção - Exclusã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í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º:</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!!!!
