Mateustg

camarotta, estes códigos que você quer para livro de visitas são possiveis somente através das linguagens ASP ou PHP...bem..como estasmo no forúm ASP...será necessário que você tenha o PWS (para win95 ou 98) e IIS para windows 2000, XP, somente assim você poderá rodar estes scripts. Você poderá também colocar este código diretamente no seu site, mas desde q este tenha suporte ASP. Eu posso te passar os códigos, porém você vai ter q arrumar o PWS se você tiver 95 ou 98. Se você tiver 2000 ou XP, será necessário somente configurar o mesmo para rodar em sua makina...para isso aki nos tutoriais tem falando como configurar o IIS

Aki mesmo no scriptbrasil tem vários downloads de livro de visitas...vai na sessão dos códigos/scripts. qualquer coisa posta aqui de novo que te ajudo

Milena, você tem este modelo ai para eu poder dar uma olhada?

Olá, eu tenho um sistema de login e senha, onde o usuário vai ser cadastrado e ai poder acessar o site...porém gostaria de fazer um relatório em cima disso...tipo...queria saber que usuário acessou o site e que dia e hora....pensei fazer isso por meio do login e senha...mas como posso fazer isso??? Como posso saber quem acessou e quando???

Eu tenho um código de upload que manda uma figura para uma pasta e também o nome da mesma para o bd...mas quando mando apagar ele gera um erro...este erro eu já resolvi, porém agora quando mando apagar, ele apaga somente do bd...como faço para ele apagar também a imagem de uma pasta?

Marcos, vlw pela ajuda...mas já consegui este mesmo código ai e já dei uma olhada...agora aproveitando...este código, ele manda a figura para uma pasta e também para o bd...mas quando mando apagar ele gera um erro...este erro eu já resolvi, porém agora quando mando apagar, ele apaga somente do bd...como faço para ele apagar também a imagem da pasta?

Galera...consegui fazer o que queria...para quem quiser saber...eu consegui fazer assim: <% Response.Write "<div align=""center""><table border=0 cellpadding=0 cellspacing=0 width=""750"">" Do while not rsCommon.EOF and contar < 9 Response.Write "<tr>" contar = 0 do while contar < 9 and NOT rsCommon.EOF strName = rsCommon("Name") strPara = rsCommon("Para") strComments = rsCommon("Comments") Response.Write "<td width=""243"" height=""160"" valign=""top"" background=""mural1.jpg""><br><br><p style=""margin-left: 42""><font face=""Verdana"" size=""1"" color=""#CC0000""><b>De: </b></font><font face=""Verdana"" size=""1"" color=""#000000"">"&strName&"</font><br>" Response.Write "<font face=""Verdana"" size=""1"" color=""#CC0000""><b>Para: </b></font><font face=""Verdana"" size=""1"" color=""#000000"">"&strPara&"</font><br>" Response.Write "<font face=""Verdana"" size=""1"" color=""#CC0000""><b>Comentário: </b></font><font face=""Verdana"" size=""1"" color=""#000000"">"&strComments&"</font></td>" rsCommon.Movenext contar = contar + 1 If contar=3 or contar=6 then Response.write "</tr>" End If Loop loop Response.Write "</tr></table></div>" Response.Write"</body>" Response.Write"</html>" End If %> Apliquei este código dentro daquele e ai passou a funcionar beleza...mesmo assim agradeço a ajuda de vocês.

O Marcos...tem como você disponibilizar este código ai pra gente e explicar melhor o que você deseja?

Cara...barato não vai ficar...pois o cara quer vários sistemas em um só...isso da trabalho...você vai ter que calcular o seu tempo e cada sistema envolvido.

Olá, eu tenho um sistema de recados já pronto...eu estou mudando o sistema para que ele exiba os recados da seguinte forma: 3 lado a lado em uma linha e depois descendo de linha vem mais 3 recados e assim por diante. Já consegui colocar os recados desta forma, porém os recados estão saindo desta forma mas repetidos...ou seja...saem lado a lado e depois troca de linha, mas sempre o mesmo recado. Só vejo o outro recado quando vou para a próxima página. Abaixo vou colocar o código que fiz até o momento e gostaria que vocês me ajudassem a descobrir o que estou fazendo de errado. Grato! Mateus <% Option Explicit %> <!--#include file="common.asp" --> <% Session.LCID = 1046 Response.Buffer = True 'Variaveis Dim strName Dim strpara Dim strComments Dim intRecordPositionPageNum Dim intRecordLoopCounter Dim intTotalNumGuestbookEntries Dim intTotalNumGuestbookPages Dim intLinkPageNum Dim PG Dim QUANT Dim LINHA Dim X Dim PagePosition 'Mostra qual a pagina a ser exibida - pagina 1 If Request.QueryString("PagePosition") = "" Then intRecordPositionPageNum = 1 Else intRecordPositionPageNum = CInt(Request.QueryString("PagePosition")) End If strSQL = "SELECT " & strDbTable & "Comments.* FROM " & strDbTable & "Comments ORDER BY Date_stamp DESC;" rsCommon.CursorType = 3 rsCommon.Open strSQL, adoCon rsCommon.PageSize = intRecordsPerPage If NOT rsCommon.EOF Then rsCommon.AbsolutePage = intRecordPositionPageNum %> <html> <head> <title>Recados VIP Seven</title> <table width="147" border="0" align="center" cellspacing="0" cellpadding="0"> <tr> <td align="center" class="text" width="551"> <% If rsCommon.EOF Then Response.Write "<br>Não há nehum recado cadastrado em nosso sistema" Response.Write "<br>Por favor retorne mais tarde" Response.End 'Mostra o guestbook Else 'Conta o numero de entradas no guestbook database intTotalNumGuestbookEntries = rsCommon.RecordCount 'Conta o numero de paginas que possui no guestbook database calculando pelo atributo PageSize intTotalNumGuestbookPages = rsCommon.PageCount 'Mostra o HTML - numero total de paginas e o total de gravacoes no guestbook database strName = rsCommon("Name") strPara = rsCommon("Para") strComments = rsCommon("Comments") %> <TABLE> <%PagePosition=Request("PG")%> <%QUANT=6%> <%rsCommon.Move(QUANT*PagePosition)%> <%WHILE NOT rsCommon.EOF AND LINHA < QUANT%> <%LINHA = LINHA +3%> <TR> <td><font color="#FFFF00"><b>De:</b></font><% Response.Write(strName)%> <br><font color="#FFFF00"><b>Para:</b></font><% Response.Write(strPara)%> <br><font color="#FFFF00"><b>Comentários:</b></font><%response.write mid(strComments,1,200)%></td> <%rsCommon.MoveNext%> <td><font color="#0000FF"><b>De:</b></font><% Response.Write(strName)%> <br><font color="#0000FF"><b>Para:</b></font><% Response.Write(strPara)%> <br><font color="#0000FF"><b>Comentários:</b></font><%response.write mid(strComments,1,200)%></td> <%rsCommon.MoveNext%> <td><font color="#FF0000"><b>De:</b></font><% Response.Write(strName)%> <br><font color="#FF0000"><b>Para:</b></font><% Response.Write(strPara)%> <br><font color="#FF0000"><b>Comentários:</b></font><%response.write mid(strComments,1,200)%></td></tr> <%rsCommon.MoveNext%> <%Wend%> <%End If%> </TABLE> <%IF PagePosition=0 THEN%> Anterior <%ELSE%> <A HREF="default2.asp?PagePosition=<%=PagePosition-1%>">Anterior</A> <%END IF%> <%FOR X=0 TO 3%> <A HREF="default2.asp?PagePosition=<%=X%>"><%=X+1%></A> <%NEXT%> <%IF rsCommon.EOF then%> Próxima <%ELSE%> <A HREF="default2.asp?PagePosition=<%=PagePosition+1%>">Próxima</A> <%END IF%> <% rsCommon.Close Set rsCommon = Nothing adoCon.Close Set adoCon = Nothing %> </td> </tr> </table>

Olá, eu gostaria de saber como faço um sistema de upload, onde este envie a imagem que irei selecionar para dentro de uma pasta (por exemplo = figuras) e que envie também o nome desta imagem para dentro do Banco de Dados. como faço isso......isto é possivel? Grato! Mateus

Olá, Eu quero fazer 1 sistema onde eu possa cadastrar os usuários, as senhas e as páginas que ele terá acesso a ver. Ou seja, quando o usuário Paulo, por exemplo, acessar a página, ele poderá entrar com o seu login e senha (este login e senha eu darei para ele), dai gostaria que fosse exibido 1 página que mostresse os links ao qual eu lhe darei acesso. Ex.: Eu dei acesso ao Paulo as páginas produto1 e produto2, como faço para cadastrar estas páginas no BD e como mostrar esses links para o Paulo? E se a Ana for quem acessar, como mostro os links dela? (vamos supor que cadastrei ela para acesso ao produto1 e ao produto8). Depois disto, gostaria de saber também como posso gerar um relatório mostrando quem acessou o que? Ex.: Paulo acesso o link produto1 Como faço isso, como posso cadastrar isso no BD..... quem me ajudar a fazer eu conseguir fazer isto funcionar, depois pego o contato e mando até um presentinho! Vlw!!! Mateus

Olá, eu tenho um sistema de mural de recados e o mesmo exibe os recados postados sempre um abaixo do outro, mas eu quero modificar este sistema fazendo com que a exibição das mensagens fique assim: 3 mensagens em uma linha, depois desce de linha e vem mais três, depois novamente desce a linha e mais três e ai um próximo e anterior...ou seja...quero tipo o modelo abaixo: 1 2 3 4 5 6 7 8 9 anterior próximo Alguém sabe como eu faço isso?

Olá, já havia postado aqui sobre este sistema e me ajudaram bastante com ele porem percebo q agora ele está gerando um pequeno erro e gostaria que vocês me ajudassem mais uma vez. É o seguinte: Estou com este código aqui, que está selecionando a data, porem se eu deixar assim, quando é inserida uma notícia ele não está colocando ela de imediato, sempre demora horas para colocar, justamente pela data, se eu substituo para classificar por ID ele aparece de imediato as notícias cadastradas porém a data fica totalmente errada, já tentei fazer assim - sql="SELECT * FROM news ORDER BY DATA,ID DESC", porém gera erros maiores. Como posso fazer para acertar a exibição imediata da notícia e com a data certa? <% set rs=server.createobject("ADODB.RecordSet") sql="SELECT * FROM news ORDER BY DATA DESC" rs.open sql,conexao Do While not rs.eof if left(var_data,10) <> left(rs("data"),10) Then var_data = rs("data") response.write "<b>" & FormatDateTime(rs("data"),2) & "</b>" & "<br>" end if %>

Olá, eu tenho um formulário de envio através de CDONTS, estou conseguindo fazer ele rodar beleza, porem ele só me manda o email de quem está mandando o email, o assunto e o texto, o que eu gostaria é saber como faço para o restante dos dados do formulário também aparecer... é que no meu formulário há nome da pessoa, idade, etc... como faço para ele me mandar estes dados também, além do email, assunto e texto?

Ok, vou tentar fazer algo aqui, mas quanto ao professor é dificil ter que fazer algo que o cara não ensina nada!!!

Galera é o seguinte, estou precisando de um sistema de agenda de reuniões em Java para eu apresentar como trabalho na faculdade, será que alguém tem uma que possa me passar ou sabe algum lugar onde eu possa arrumar, pois o professor não explicou quase nada sobre o assunto e ta cobrando algo. Vlw.

Não! Os usuários já serão devinidos, não terá um formulário para cadastro.

Olá, eu tenho um sistema de cadastro de notícias onde eu entro com o meu login e senha. Estou querendo fazer o seguinte: Definir vários usuários em um BD, onde quando o cara for entrar ele logará com o seu login e senha, ficando guardado no BD q essa pessoa entrou nakele momento na administração da notícia. Em suma, eu estou querendo saber se dá pra fazer um sistema de controle de quem está entrando na administração para fazer as mudanças nas notícias, pois se alguém colocar uma notícia errada eu saberei quem foi. isso tem como implementar em um sistema de notícias que já possuo? (este sistema q possuo, tem um mesmo login e senha pra todos)

olá, eu tenho uma agenda que está funcionando beleza em questão de mudança de dats, porém a mesma não aparece os meses para eu mudar, quando clico em ver próximo mês ou ver o mês anterior. Alguém pode me ajudar a fazer com que este sistema avance ou volte, mudando os meses também? eis o código: <%Option Explicit%> <HTML> <HEAD> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <TITLE>Calendário</TITLE> <META NAME="Generator" CONTENT="Microsoft FrontPage 4.0"> <META NAME="Author" CONTENT="Alexandre Sales Lima"> <META NAME="Keywords" CONTENT="Calendario"> <META NAME="Description" CONTENT="Calendario escrito em ASP"> <base target="frame"> </HEAD> <BODY bgcolor=#ffffff> <% 'Lógica para construir o calendário Session.LCID = 1046 'BRASIL Dim URL,Dia, Mes, Ano, Agora, PrimeiroDiaMes, UltimoDiaMes, Mes2,Varmes Dim Inicio,Fim, Start, TheEnd,i, j URL= Request.ServerVAriables("SCRIPT_NAME") if (Request.QueryString("Mes") <> Month(now))AND(Request.QueryString("Mes") <> "") Then Mes=CInt(Request.QueryString("Mes"))'força que o resultado seja um inteiro 'mes2 = CInt(Month(date)) Select Case Mes Case 1 varmes = "mes" & mes & ".jpg" Case 2 varmes = "mes" & mes & ".jpg" Case 3 varmes = "mes" & mes & ".jpg" Case 4 varmes = "mes" & mes & ".jpg" Case 5 varmes = "mes" & mes & ".jpg" Case 6 varmes = "mes" & mes & ".jpg" Case 7 varmes = "mes" & mes & ".jpg" Case 8 varmes = "mes" & mes & ".jpg" Case 9 varmes = "mes" & mes & ".jpg" Case 10 varmes = "mes" & mes & ".jpg" Case 11 varmes = "mes" & mes & ".jpg" Case 12 varmes = "mes" & mes & ".jpg" End Select else Mes = Month(now) mes2 = CInt(Month(date)) Select Case Mes Case 1 varmes = "mes" & mes & ".jpg" Case 2 varmes = "mes" & mes & ".jpg" Case 3 varmes = "mes" & mes & ".jpg" Case 4 varmes = "mes" & mes & ".jpg" Case 5 varmes = "mes" & mes & ".jpg" Case 6 varmes = "mes" & mes & ".jpg" Case 7 varmes = "mes" & mes & ".jpg" Case 8 varmes = "mes" & mes & ".jpg" Case 9 varmes = "mes" & mes & ".jpg" Case 10 varmes = "mes" & mes & ".jpg" Case 11 varmes = "mes" & mes & ".jpg" Case 12 varmes = "mes" & mes & ".jpg" End Select end if Dia=Day(now) Ano = Year(now) Agora = DateSerial(Ano, mes, dia) PrimeiroDiaMes=DateSerial(Year(Now),Mes,1) UltimoDiaMes=DateSerial(Year(Now),Mes+1,1-1) Inicio = ABS(1 - WeekDay(PrimeiroDiaMes)) Fim = 7 - WeekDay(UltimoDiaMes) Start=1-Inicio TheEnd = Day(UltimoDiaMes) + Fim J=1 '############################################################# '# Inicio do meu código - Q Santa Luzia Ilumine meus olhinhos# '############################################################# %> <!--#include file="conecta.asp"--> <TABLE BORDER=0 WIDTH=194 CELLPADDING=0 ALIGN=left> <TR> <TD WIDTH="199" VALIGN=top style="border-style: solid; border-width: 1"> <div align="center"> <center> <TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0 WIDTH="120"> <TR bgcolor=white> <TD align="Center" width="195"> <center><script>printDate();</script></center> </TD> </TR> <TR bgcolor=white> <TD align="Center" width="195"> <TABLE CELLSPACING=3 CELLPADDING=1 BORDER=0> <TR> <TD COLSPAN=1 align="center" width="75"><img border="0" src="semana2.gif"></TD> </TR> </Table> </TD> </TR> <tr> <TD align="Center" width="195"> <TABLE CELLSPACING=3 CELLPADDING=1 BORDER=0 width="99"> <TR bgcolor="#ffffff"> <% AbreConexao Dim sql, RSAgenda For i= Start to TheEnd if (i = day(now)) And (Mes=Month(now)) Then sql = "SELECT * FROM AGENDA WHERE day(dt_evento)="&i&" AND month(dt_evento)="&mes&" AND year(dt_evento)="&ano&"" Set RSAgenda = conexao.execute(sql) If RSAgenda.EOF then%> <TD align= center width=1 style="border-style: solid; border-width: 1"><FONT face=Arial,Helvetica size=-1 COLOR=black><b><%=Day(DateSerial(Year(Now),Mes,i))%></b></font></TD> <% else 'While NOT RSAgenda.EOF%> <TD align= center width=1 style="border-style: solid; border-width: 1"><FONT face=Arial,Helvetica size=-1 COLOR=red><a href="cagenda.asp?dt=<%=RSagenda("dt_evento")%>&mes=<%=Mes%>" target="frame"><%=Day(DateSerial(Year(Now),Mes,i))%></font></a></font></TD> <% 'RSAgenda.MoveNext 'Wend end if Elseif (i<1) or (i > Day(UltimoDiaMes)) Then sql = "SELECT * FROM AGENDA WHERE day(dt_evento)="&i&" AND month(dt_evento)="&mes&" AND year(dt_evento)="&ano&"" Set RSAgenda = conexao.execute(sql) If RSAgenda.EOF then%> <TD align= center width=1 style="border-style: solid; border-width: 1"><FONT face=Arial,Helvetica size=-1 COLOR=gray><%=Day(DateSerial(Year(Now),Mes,i))%></TD> <%else 'While NOT RSAgenda.EOF%> <TD align= center width=1 style="border-style: solid; border-width: 1"><FONT face=Arial,Helvetica size=-1 COLOR=gray><B><a href="cagenda.asp?dt=<%=RSagenda("dt_evento")%>&mes=<%=Mes%>" target="frame"><%=Day(DateSerial(Year(Now),Mes,i))%></B></a></B></TD> <%'RSAgenda.MoveNext 'Wend end if Else sql = "SELECT * FROM AGENDA WHERE day(dt_evento)="&i&" AND month(dt_evento)="&mes&" AND year(dt_evento)="&ano&"" Set RSAgenda = conexao.execute(sql) If RSAgenda.EOF then%> <TD align= center width=1 style="border-style: solid; border-width: 1"><FONT face=Arial,Helvetica size=-1 COLOR=gray><%=Day(DateSerial(Year(Now),Mes,i))%></TD> <% else 'While NOT RSAgenda.EOF%> <TD align= center width=5 style="border-style: solid; border-width: 1"><FONT face=Arial,Helvetica size=-1 COLOR=blue><a href="cagenda.asp?dt=<%=RSagenda("dt_evento")%>&mes=<%=Mes%>" target="frame"><b><%=Day(DateSerial(Year(Now),Mes,i))%></b></a></TD> <%'RSAgenda.MoveNext 'Wend end if End if If j = 7 then J = 0 Response.Write "</tr>" %> <TR bgcolor="#FFFFFF"> <% end if J = j + 1 Next FechaConexao %> </TR> </table> </tr> <tr> <td width="156"> <div align="center"> <center> <Table> <TR> <TD NOWRAP COLSPAN=4 ALIGN=CENTER BGCOLOR=#FFFFFF> <TABLE CELLSPACING=0 CELLPADDING=1 BORDER=0> <TR> <TD> <a HREF="<%=URL&"?mes="&(mes-1)%>" target="_self"><img src="seta_tras.gif" border="0" alt=""></a> </TD> <TD NOWRAP VALIGN=middle> <TT><B><img src="seta_meio.gif" border="0" alt=""></B></TT> </TD> <TD> <a HREF="<%=URL&"?mes="&(mes+1)%>" target="_self"><img src="seta_frente.gif" border="0" alt=""></a> </TD> </TR> </TABLE> </TD> </TR> </Table> </center> </div> </tr> </table> </center> </div> </table> </BODY>

Vlw... já resolvi!

Estou testando o sistema, mas ele gera este erro: Microsoft VBScript runtime error '800a01a8' Object required: '' /baladas/agenda.asp, line 22 A linha 22 que ele s refere é esta: objdatabase.Open = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../../db/bdteste.mdb") o que pode ser?

Coloquei o seguinte formato: <%=FormatDateTime(rs("data"),4)%>, para exibir uma data na minha página, porém a data só é apresentada em formato americano, como faço para colocar em português?

Ok! agora foi, vlw mesmo pela ajuda

Aqui eu tirei, mas ai ele faz o que eu tava falando... eu quero q ele abra em não na mesma.... assim ele abre na mesma página... eu quero que ele abra um nova janela (um target). você sabe como posso fazer?