Gustavo Moraes
-
Total de itens
62 -
Registro em
-
Última visita
Tudo que Gustavo Moraes postou
-
estou querendo exibir dois dados consecutivos numa tabela, mas não quero usar o for, eu queria algo do tipo: <% rs.MoveNext %> <table> <tr> <td><%=link%> </td> </tr> <tr> <% rs.MoveNext %> <td><%=link%> </td> </tr> </table> <% 'Fechamos o sistema de conexão Call fecha_conexao%> O que estou fazendo de errado? Gostaria de usar o rs.MoveNext, mas não estou sabendo fazer direito...
-
Obrigado!!! distração minha mesmo!!!
-
As paginas q estou usando são as seguintes: Index.asp <!--#include file="conexao.asp"--> <HTML> <HEAD> <TITLE>Leitura de registros de uma tabela</TITLE> </HEAD> <BODY> <h1><div align="center">Leitura da tabla</div></h1> <br> <br> <% call abre_conexao Set rs=conexao.execute("select * from tabela") titulo = rs("titulo") link = "<a href='noticia.asp?id=" & id & "'>" & titulo & "</a>" %> <% Do While Not RS.Eof %> <table align="center" border=1> <tr> <td height="2" valign="top"><font face="Geneva, Arial, Helvetica, san-serif" size="1" class="home"> <span class="home"> <%=link%> </td> </tr> <% RS.MoveNext Loop 'Fechamos o sistema de conexão Call fecha_conexao%> </table> <div align="center"> <a href="inserir.html">Acrescentar um novo registro</a><br> <a href="atualizar1.asp">Atualizar um registro existente</a><br> <a href="apagar1.asp">Apagar um registro</a><br> </div> </BODY> </HTML> noticia.asp <!--#include file="conexao.asp"--> <HTML> <HEAD> <TITLE>Ver a Notícia</TITLE> </HEAD> <BODY> <h1><div align="center">Vendo a Notícia</div></h1> <br> <br> <% call abre_conexao ID = request.querystring("ID") Set rs=conexao.execute("SELECT * FROM tabela where ID =" & ID & " ORDER BY id DESC") id = rs("ID") titulo = rs("titulo") texto = rs("texto") descricao = texto %> <table border="1" cellpadding="4" cellspacing="0" width="450" bordercolor="#000000" align="center"> <tr> <td bgcolor="#FFCC00" align="center"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td align="center"><strong><%=titulo%></strong></td> </tr> </table> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td> <%=descricao%> </td> </tr> </table> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td align="center"><a href="java script:self.history.go(-1)"><b>voltar</b></a></td> </tr> </table> </BODY> </HTML>
-
olá, estou tentando fazer um script de noticias, mas a pagina que vizualiza a noticia, esta dando erro nessa parte: call abre_conexao ID = request.querystring("ID") Set rs=conexao.execute("SELECT * FROM tabela where ID =" & ID & " ORDER BY id DESC") id = rs("ID") titulo = rs("titulo") texto = rs("texto") descricao = texto %> Mais precisamente na linha do select!!! alguém tem uma dica?
-
É isso mesmo kuroi! Deu certo agora Kuroi e Andréia! muito Obrigado!!! vocês sabem onde eu posso achar algo falando sobre o que serve o tal do EOF? quero aprender mais sobre asp, mas o que achei até agora ensina muito pouco
-
troquei também o conntemp.close por call fecha_conexao lá embaixo...não sei se fiz certo. Agora não deu pau, mas não ta aparecendo nada na tela!!! sera que to esquecendo de exibir algum campo da tabela? o codigo ficou assim: <!--#include file="conexao.asp"--> <html> <head> <title>Exibe Dados da Tabela </title> </head> <body> <% call abre_conexao Set rs=conexao.execute("select * from tabela where ID<100") qtde_campos=rs.RecordCount %> <table border=1> <tr> <% 'Coloca o cabeçalho de cada coluna com o nome do campo for i=0 to qtde_campos %> <td><b><%=rs(i).name %></B></TD> <% next %> </tr> <% ' Preenche a tabela com os registros do while not rs.eof %> <tr> <% for i = 0 to qtde_campos%> <td valign=top><% = rs.fields(i).value %></td> <% next %> </tr> <% rs.movenext loop Call fecha_conexao%> </table> </BODY> </HTML>
-
Fiz o que você me pediu mas deu o erro: Microsoft VBScript runtime error '800a01a8' Object required: '' /exibe.asp, line 21 linha 21 = do while not rstemp.eof %> Meu codigo de exibe ta assim: <!--#include file="conexao.asp"--> <html> <head> <title>Exibe Dados da Tabela </title> </head> <body> <% call abre_conexao Set rs=conexao.execute("select * from tabela where ID<100") qtde_campos=rs.RecordCount %> <table border=1> <tr> <% 'Coloca o cabeçalho de cada coluna com o nome do campo for i=0 to qtde_campos %> <td><b><%=rstemp(i).name %></B></TD> <% next %> </tr> <% ' Preenche a tabela com os registros do while not rstemp.eof %> <tr> <% for i = 0 to qtde_campos%> <td valign=top><% = rstemp.fields(i).value %></td> <% next %> </tr> <% rstemp.movenext loop conntemp.close%> </table> </BODY> </HTML>
-
Olá, estou aprendendo asp, fiz uma pagina que mostra os dados na tela. Mas esta dando um erro na linha de conexao. Fiz um arquivo chamado conexao.asp <% Dados = "DRIVER={Microsoft Access Driver (*.mdb)};Dbq=C:\caminho do bd...\db\teste.mdb;" %> E no arquivo exibe.asp fiz o seguinte: A Tabela eu chamei de tabela e o campo ID , achoq ta td correto, acho que o problema esta naquela parte de rs.temp que também não entendi pra que serve isso direito. Obrigado!
-
Olá, estou instalando um script, que diz que eu tenho que dar CHMOD para alguns arquivos. ex: chmod 777 imagens Duvida: O que é um CHmod? como eu faço isso? seria através do phpMyAdmin do meu host? Obrigado pela atenção!
-
estou fazendo um sistema de fotos, com bd access, mas surgiu uma dúvida. Se eu faço o upload de uma imagem chamada "Foto1.jpg", da td certo...mas se eu adiciono outra foto , com o nome igual, ela sobrepoe a outra... já que o bd grava apenas o nome da imagem. Gostaria de saber que tipo de solução eu posso estar usando para fazer um sistema onde 2 pessoas possam colocar fotos com nomes iguais, sem que elas se sobreponham!!!! Obrigado!
-
não deu certo nenhum dos dois :( no primeiro caso deu um erro, não teria que declarar esse strbody?
-
É o seguinte, eu tenho um formulario para contato em meu site, porem quando os dados são enviados pro meu email, a acentuação vem toda errada, quase não da pra ler as mensagens, caso o cidadao coloque acento em tudo. O código é o seguinte: DIM Mail Set Mail = Server.CreateObject("Persits.MailSender") Mail.IsHTML = True Mail.Host = "" Mail.Username = "" Mail.Password = "" Mail.From = "" Mail.FromName = "" Mail.AddAddress "" Mail.AddCC "" Mail.Subject = "" Mail.Body = Request.Form("motivos") & "<br>" & Request.Form("fromemail") & "<br>" & Request.Form("fromnome") & "<br>" & Request.Form("cidade") & "<br>" & Request.Form("telefone") On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "<H2>Ocorreu um erro: " & Err.Description & "</h2>" End If If Err = 0 Then Response.Write("<H2>Obrigado Sr(a) " & Request.Form("fromnome") & ", seu e-mail foi enviado com sucesso!</H2>") response.Redirect ("mensagem.aspx") End If Set Mail = Nothing %> Arquivo em HTML <form method="POST" action="enviar2.asp" name="form" target="_self"> <div align="center"> <table border="0" class=promocao> <tr> <td width="23%"><p>Nome:</p></td> <td width="74%"><font face="Verdana"><input type="text" name="fromnome" size="30"></font></td> </tr> <tr> <td width="23%"><p>E-Mail:</p></td> <td width="74%"><font face="Verdana"><input type="text" name="fromemail" size="30"></font></td> </tr> <tr> <td width="23%"><p>Telefone:</p></td> <td width="74%"><font face="Verdana"><input type="text" name="telefone" size="20"></font></td> </tr> <tr> <td width="23%"><p>Cidade:</p></td> <td width="74%"><font face="Verdana"><input type="text" name="cidade" size="20"></font></td> </tr> </table> <table border=0 width="43%" class=promocao2> <tr> <td width="100%"><font face="Verdana"><textarea rows="5" name="motivos" cols="40"></textarea></font></td> </tr> <tr> <td width="100%" align=center><font face="Verdana"><input type="submit" value="ENVIAR" name="botao"></font></td> </tr> </table> </div> </form> Se alguém souber o que pode ser ficarei muito grato!!!