Mensagem de ERRO

[patricias 0]

Pessoas, peguei um script no site do imaster, para um quadro de avisos, chamado TORPEDO

esta nesse endereco http://www34.brinkster.com/elaseelas/index...cadastrotorpedo

porem ao mandar inserir os dados recebo esse erro

 

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

 

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

 

/elaseelas/cadastrotorpedo.asp, line 193

 

 

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

 

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

 

/elaseelas/cadastrotorpedo.asp, line 192

 

 

 

 

Alguem poderia me ajudar??

 

 

Muito tks...

 

ah...a proposito, como eu faco um campo deixar de ser "obrigatorio" ?

 

 

Obrigada novamente

 

 

Como resolveu o problema de permissao do bd??

Alguem pode me dizer?

[rOcKLoCo 0]

Esse erro ocorre pq a sua pasta, ou o banco de dados não estão com permissões de escrita e leitura......verifique isso........e no banco de dados para não deixar como obrigatório, se for o access você tira a opção Permitir comprimento ZERO......beleza?Até mais

[John Petrucci 0]

Se não resolver o caso, poste seu código aqui para darmos uma olhada!Ateh mais...

[patricias 0]

Se não resolver o caso, poste seu código aqui para darmos uma olhada!Ateh mais...

o codigo peguei aqui no site do imasterssegue<%'***********************************************************************'** Sistema de torpedo desenvolvido pela equipe aspHELP **'** Contatos: José Luis Tegnher - ICQ 119412820 **'** Temístocles Sota - ICQ 104458476 **'** http://www.asphelp.com.br **'***********************************************************************%><script language="JavaScript"><!--function AbreJanela() {window.open('','AbreJanela','width=560,height=400,scrollbars=yes,toolbar=no,location=no,status=no,menubar=no,resizable=no,left=220,top=120')}//--></script><table border="0" cellspacing="0" cellpadding="0"> <tr> <td width="25"> </td> <td width="590"><br> <% If IsEmpty( Request.Form("acao") ) Then %> <TABLE cellSpacing=0 cellPadding=0 width=100% border=0> <FORM name=form method=post> <TBODY> <TR> <TD bgColor=#000000> <TABLE cellSpacing=1 cellPadding=5 width="100%" align=center border=0> <TBODY> <TR> <TD vAlign=top bgColor=#ffffff> <p align="center"><B><FONT face="Verdana, Arial, Helvetica, sans-serif" size=2><INPUT type=hidden value=Torpedo name=tipo> </FONT></B> <p align="left"><br> <img border="0" src="imagens/torpedo.gif"><br> </p> <p><B><FONT face="Verdana, Arial, Helvetica, sans-serif" size=2> <FONT color=#ff0000 size=1> <br> •»</FONT> Seu nome: <BR><INPUT class=caixa size=35 name=SeuNome style="border: 1 solid #000000"> </FONT></B><B><FONT face="Verdana, Arial, Helvetica, sans-serif" size=2><BR> <FONT color=#ff0000 size=1>•»</FONT> Seu uin do ICQ:<BR> <INPUT class=caixa size=35 name=SeuEmail style="border: 1 solid #000000"> <BR><FONT color=#ff0000 size=1>•»</FONT> Recadinho para:<BR><INPUT class=caixa size=35 name=TorpedoPara style="border: 1 solid #000000"> <BR> <FONT color=#ff0000 size=1>•»</FONT> Uin do ICQ de seu amigo(a):<BR> <INPUT class=caixa size=35 name=EmailTorpedo style="border: 1 solid #000000"> </FONT></B> </p> <p><B><FONT face="Verdana, Arial, Helvetica, sans-serif" size=2>Recadinho:</FONT></B> <BR><B><FONT face="Verdana, Arial, Helvetica, sans-serif" size=2></FONT></B> <TABLE cellSpacing=1 cellPadding=1 width="100%" border=0> <TBODY> <TR> <TD> <p style="margin-top: 0; margin-bottom: 0"><B><FONT face="Verdana, Arial, Helvetica, sans-serif" size=2><TEXTAREA class=caixa2 onkeypress=java script:limita(); name=msg rows=6 cols=48 style="border: 1 solid #000000"></TEXTAREA> </FONT></B></p> <p style="margin-top: 0; margin-bottom: 0"><FONT face="Verdana, Arial, Helvetica, sans-serif" size=2><INPUT disabled maxLength=3 size=3 value=600 name=nu_caracteres style="border: 1 solid #000000"> </FONT></p> <P><IMG src="imagens/rostos/108.gif"> <IMG height=16 src="imagens/rostos/115.gif" width=15> <IMG height=18 src="imagens/rostos/128.gif" width=16>  <IMG height=15 src="imagens/rostos/165.gif" width=15>   <IMG height=31 src="imagens/rostos/101.gif" width=31>  <IMG height=21 src="imagens/rostos/110.gif" width=22><BR><a href="imagens/rostos/rostos1.asp" target=AbreJanela onClick="AbreJanela('','AbreJanela',560,400,'yes','yes')"><font face="Verdana" size="1">Quer imagens no seu recadinho? Clique Aqui e saiba como.</font></A></P> </TD> </TR></TBODY></TABLE> <P align=center><INPUT type=hidden value=Londrina name=cidade> <INPUT type=hidden value=07/04/2002 name=data> <INPUT type=hidden value=09:49 name=hora> <INPUT type=hidden value=200.151.40.151 name=ip> <INPUT type=hidden value=sim name=liberado> <INPUT class=caixa type=submit value=Inserir name=acao style="border: 1 solid #000000"> <INPUT class=caixa type=submit value=Visualizar name=acao style="border: 1 solid #000000"> <INPUT class=caixa type=reset value=Refazer name=acao style="border: 1 solid #000000"> <br> </P></TD></TR></TBODY></TABLE></TD></TR></TBODY></FORM></TABLE><% else %><table border="0" width="100%" bgcolor="#000000" cellspacing="0"> <tr> <td width="100%"> <table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF"> <tr> <td width="100%"> <% If Request.Form("acao") = "Visualizar" Then smiler = 1 msg = request.form("msg") While Not smiler = 211 img = ":" & smiler & ":" msg = replace(msg,img,"<img border='0' src='imagens/rostos/" & smiler & ".gif'>") smiler = smiler + 1 Wend %> <form name="form" method="post"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td bgcolor="#000000"> <table width="100%" border="0" cellspacing="1" cellpadding="4" align="center"> <tr> <td bgcolor="#FFCC00"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>De:</b><%= request.form("SeuNome")%><b> - <b>Para: </b></b><%= request.form("TorpedoPara")%></font></td> </tr> <tr> <td bgcolor="#E8E8E8" valign="top" background="imagens/back_torpedo.gif"> <p><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#993300"> <%= msg %></font> </p> </td> </tr> <tr> <td bgcolor="#FFFFFF"> <div align="center"> <input type="submit" name="acao" value="Inserir" style="border-style: solid; border-width: 1"> <input type="button" name="acao" value="Alterar" onClick="java script:history.go(-1)" style="border-style: solid; border-width: 1"> </div> </td> </tr> </table> </td> </tr> </table> <input type="hidden" name="SeuNome" value="<%= request.form("SeuNome")%>"> <input type="hidden" name="SeuEmail" value="<%= request.form("SeuEmail")%>"> <input type="hidden" name="EmailTorpedo" value="<%= request.form("EmailTorpedo")%>"> <input type="hidden" name="TorpedoPara" value="<%= request.form("TorpedoPara")%>"> <input type="hidden" name="torpedo" value="<%= msg %>"> </form> <p align="center"> <% else smiler = 1 msg = request.form("msg") While Not smiler = 211 img = ":" & smiler & ":" msg = replace(msg,img,"<img border='0' src='imagens/rostos/" & smiler & ".gif'>") smiler = smiler + 1 Wend torpedo = Request.FORM("torpedo") & msg torpedo = Replace(torpedo, Chr(39), "''") If Not IsEmpty(Request.Form("acao")) AND Trim(Request.Form("SeuNome")) <> "" AND Trim(Request.Form("TorpedoPara")) <> "" AND Trim(torpedo) <> "" Then Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open dados ComandoSQL = "INSERT INTO torpedo (SeuNome, SeuEmail, TorpedoPara, EmailTorpedo, torpedo)" ComandoSQL = ComandoSQL & " VALUES (" ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("SeuNome")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("SeuEmail")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("TorpedoPara")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("EmailTorpedo")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(torpedo) & "')" ComandoSQL = ComandoSQL & "'" & torpedo & "')" Set bd = Conexao.Execute(ComandoSQL) Conexao.Close Set bd = Nothing Set Conexao = Nothing Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open dados ComandoSQL = "SELECT * FROM torpedo where SeuNome='" & Server.HTMLEncode(Request.FORM("SeuNome")) & "' order by id desc" Set bd = Conexao.Execute(ComandoSQL) cod = bd("id") Conexao.Close Set bd = Nothing Set Conexao = Nothing body = ts & vb script:history.go(-1)"><b>Clique aqui</b></a> para voltar</center>  </font> </p> <p align="center"> <% End IfEnd If%> <center> </center> </p> </td> </tr> </table> </td> </tr></table><p> <% end if %><br></td> </tr></table>

[patricias 0]

Esse erro ocorre pq a sua pasta, ou o banco de dados não estão com permissões de escrita e leitura......verifique isso........e no banco de dados para não deixar como obrigatório, se for o access você tira a opção Permitir comprimento ZERO......beleza?Até mais

Ta, mas como resolver isso no Brinkster? :rolleyes: Aproveitando, alguem sabe um site de hospedagem gratuito que eu possa fazer transferencia via ftp?no 123hosts nao encontrei campo para cadastro free, apenas para as opcoes pagas......gracias.... :D

[xenxen 0]

E aí!viu... no 7Host você pode mandar os arquivos via ftp...OK!!!