smez

Microsoft JET Database Engine error '80040e09' Cannot update. Database or object is read-only. /add_mural.asp, line 16 onde esta dando esse erro <% Dim de, msg, para de = Request.Form("de") msg = Request.Form("msg") para = Request.Form("para") %> <% Dim adoConn Set adoConn = Server.CreateObject("ADODB.Connection") adoConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='c:\www\academiamovimento\dados\movimento.mdb'" Dim newcode Set newcode = Server.CreateObject("ADODB.Recordset") newcode.Open "mural", adoConn, 2, 2, 2 newcode.AddNew newcode("de") = de newcode("msg") = msg newcode("para") = para newcode.Update newcode.close set newcode = nothing response.redirect "mural.asp?sucesso=sim" %>

To com um problema no meu codigo tenho em um banco de dados cadastrado data , hora e nome como que eu faço para ele buscar somente o dado que se revere aquele dia da semana e hora e imprimir na consulta eu fiz o seguinte codigo HoraAtual=hour(Time) & ":" & minute(time) Data2 = DateAdd("d", (Weekday(Date)), Date) sql = "SELECT * FROM noAr WHERE data Between #" & Data2 & "# AND final >= #" & FormatDateTime(Time(),vbshorttime) so que ele n esta buscando o dia da semana certo ele está buscando assim quando e quarta-feira ele imprimi sabado como que eu faço esse sistema que de uma radio ao vivo, dai ele mostra que programa esta no ar agora

help

estou suando o ACCESS e tem o nasc na tabela sim marcos eu coloquei mas da o seguinte erro Tipo de erro: Microsoft JET Database Engine (0x80040E14) Número incorreto de argumentos usados com a função na expressão de consulta 'day(nasc) >= Day(Date(now)) And Month(nasc) >= Month(Date(now))'.

continua o mesmo erro

mas como que eu faço para ele buscar os dados no DB

Tipo de erro: Microsoft JET Database Engine (0x80040E10) Nenhum valor foi fornecido para um ou mais parâmetros necessários.

não estou usando join estou usando assim <% Conta = "Select COUNT(id) AS total FROM album WHERE sentfrom ="&Rs("sentfrom")&"" Set Ls = Conn.Execute(Conta) total = Ls("total") %>

sql = "SELECT * FROM fa WHERE day(nasc) = Day(Date) And Month(nasc) = Month(Date)" sql = "SELECT * FROM fa WHERE Day(nasc) = Day(DateAdd('d', 1, Date)) And Month(nasc) = Month(DateAdd('d', 1, Date))" sql = "Select * from FA Where Day(Nasc) = Day(DateAdd('d', -1, Date)) And Month(Nasc) = Month(DateAdd('d', -1, Date))" da o seguinte erro Microsoft JET Database Engine (0x80040E10)

não andreia , o sentfrom que e igual a usuario da outra tabela

tenho 2 tabelas no meu DB uma fa e outra album na tabela fa tem os seguintes campos id usuario e na tabela album id sentfrom foto como que eu faço para imprimir na pagina de consulta o nome de usuario e a quantidade de foto que ele tem no album o sentfrom e onde que ele salva o nome do usuario eu fiz o seguinte codigo mas está dando erro na hora de imprimir a quantidade de foto que o usuario tem <% rs.close set rs = nothing set conn=nothing %> <% set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = StringdeConexao rs.Source = "SELECT * FROM fa ORDER by RND(INT(NOW*id)-NOW*id)" rs.CursorType = 0 rs.CursorLocation = 2 rs.LockType = 3 rs.Open() rs_numRows = 0 %> <div align="center"> <center> <table width="14%" border="0" cellpadding="0" cellspacing="0"> <% If Not rs.EOF Or Not rs.BOF Then %> <tr align="center" valign="top"> <td valign="top" align="center" bgcolor="#808080"> <table border="0" cellspacing="1"> <% startrw = 0 endrw = HLooper1__index numberColumns = 3 numrows = 3 while((numrows <> 0) AND (Not rs.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <tr align="center" valign="top"> <% While ((startrw <= endrw) AND (Not rs.EOF))%> <td> <table width="36" border="0" cellspacing="0" cellpadding="0"> <tr> <td align="left" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td align="center"> <table border="0" cellspacing="1" cellpadding="0"> <%If rs("img") <> "" Then%> <tr> <td align="center" valign="middle"> <font size="1" face="Verdana"> <a href="ver_album.asp?id=<%=rs("id")%>&sentfrom=<%=rs("usuario")%>"><img src="usuarios/<%=rs("img")%>" border="0" width="80"><br> </a> <% Conta = "Select COUNT(id) AS total FROM album WHERE sentfrom ="&Rs("sentfrom")&"" Set Ls = Conn.Execute(Conta) total = Ls("total") %> (<b><%=total%></b>)</font></td> </tr> <%Else%> <tr> <td align="center" valign="middle"> <font size="1" face="Verdana"> <a href="ver_album.asp?id=<%=rs("id")%>&sentfrom=<%=rs("usuario")%>"><img border="0" src="usuarios/sem.jpg" height="80" alt=""><br> </a>(<b>0</b>)</font></td> </tr> <%End If%> </table></td> </tr> </table></td> </tr> </table></td> <% startrw = startrw + 1 rs.MoveNext() Wend %> </tr> <% numrows=numrows-1 Wend %> </table> </td> </tr> <% End If ' end Not rs.EOF Or NOT rs.BOF %> <tr align="left" valign="top"> <% If rs.EOF And rs.BOF Then %> <td valign="top" align="center" bgcolor="#808080"><font color="#FFFFFF" size="1" face="Verdana" class="textBold">SEM COBERTURA .</font> </td> <% End If ' end rs.EOF And rs.BOF %> </tr> </table> </center> </div> <% rs.Close() %> o erro da nessa linha <% Conta = "Select COUNT(id) AS total FROM album WHERE sentfrom ="&Rs("sentfrom")&"" Set Ls = Conn.Execute(Conta) total = Ls("total") %> (<b><%=total%></b>)</font></td>

como que eu faço o sistema de cadastro, que quando o usuario faz o cadastro ele salva os dados no banco de dados e envia um e-mail para o usuario com os dados dele.

como que eu faço os calculos

tenho um um banco de dados uma tabela assim nasc formada para data como que eu faça para parecer no site assim mostrar todos os usuarios que fazem aniversario neste mês mostrar todos os usuarios que fazem aniversario nesta semana mostrar todos os usuarios que fazem aniversario hoje mostrar todos os usuarios que fazem aniversario amanhã mostrar todos os usuarios que faz aniversario ontem

?????

se eu colocar AND ele vai abrir somente os produtos que estiver nas 2 categorias

tem um em banco de dados varios produtos e categoria cadastrada como que eu faço para ele buscar na pagina de consulta somente o produto da categia x e da categoria y SELECT * FROM produto WHERE cat='x' ORDER by RND(INT(NOW*codigo)-NOW*codigo)"

Persits.Jpeg.1 (0x800A0002) O sistema não pode encontrar o caminho especificado.

path = "rs(foto)" Jpeg.Open(path) coloquei assim dao seguinte erro Persits.Jpeg.1 (0x800A0002) O sistema não pode encontrar o arquivo especificado e quando coloco assim path = rs(foto) Jpeg.Open(path) da o seguinte erro ADODB.Recordset (0x800A0CC1) O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado.

como eu uso a função AspJpeg para dar um crop em uma foto e aparecer no site <% Set Jpeg = Server.CreateObject("Persits.Jpeg") set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = StringdeConexao rs.Source = "SELECT * FROM fotos ORDER by RND(INT(NOW*id_foto)-NOW*id_foto)" rs.CursorType = 0 rs.CursorLocation = 2 rs.LockType = 3 rs.Open() rs_numRows = 0 %> <% If Not rs.EOF Or Not rs.BOF Then %> <% startrw = 0 endrw = HLooper1__index numberColumns = 3 numrows = 2 while((numrows <> 0) AND (Not rs.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not rs.EOF))%> <% path = "&rs(foto).Value&" Jpeg.Open(path) Jpeg.Crop 0,0,1,1 %> <a href="cobertura.asp?codigo=<%=rs("codigo")%>#<%=rs("id_foto")%>" onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=rs("nome")%>';return true;"><img src="<%=Jpeg%>" border="0" alt="<%=rs("nome")%>"></a> <% startrw = startrw + 1 rs.MoveNext() Wend %> <% numrows=numrows-1 Wend %> <% End If ' end Not rs.EOF Or NOT rs.BOF %> <% If rs.EOF And rs.BOF Then %> <% End If ' end rs.EOF And rs.BOF %> <% rs.Close() %> O arquivo não esta aparecendo a imagem???? Como que eu fãço

help

onClipEvent (load) { xcenter = 200; speed = 0.010000; } onClipEvent (enterFrame) { var distance = _root._ymouse - xcenter; _y = _y + distance * speed; } onClipEvent (enterFrame) { var distance = _root._ymouse - xcenter; _y = _y + distance * speed; if (_y > 0) { _y = -2433; } // end if if (_y < -2433) { _y = 0; } // end if } to com esse codigo, ele esta funcionando de cima para baixo, quando eu coloco ele para funcionar da esquerda para a direita ele não aparece nada. eu mudo tudo o que e "y" para "x" mas ele não aparece nada. fica tudo em branco. como que eu faço.

como que eu faço isso como que eu faço

como que eu faço um sistema igual a esse? http://www.tuds.com.br/flatron/coberturas/...amp;codcob=2015 Obrigado

Microsoft JET Database Engine (0x80040E07) Tipo de dados imcompatível na expressão de critério. /destaqui/combo.asp, line 15 vcodUF = request.querystring("codUF") if vcodUF = "" Then sql = "SELECT * FROM Cidades WHERE codigo_estado = " & vcodUF & " ORDER by cidade"