Mateustg
-
Total de itens
382 -
Registro em
-
Última visita
Posts postados por Mateustg
-
-
Há a posibilidade de se fazer este sistema utilizando iframe?
-
ai cara vlw vou testar e vlw mesmo pela ajuda.
-
Olá,
Eu tenho um site onde há uma área de publicidade (rotativa), o que eu gostaria de fazer é o seguinte: quando alguém acessar o site irá aparecer os banners e eu quero que a cada 15 seg. estes banners se auto atualizem, ou seja, de tempo em tempo ele troca automaticamente, tem como fazer um script que faça isso?
-
-
Olá, eu tenho um sistema de notícias que exibe várias notícias em uma página, sendo que uma abaixo da outra. Eu gostaria de pegar somente uma notícia, portanto apliquei um iframe na minha página principal, dai ele só me mostra a 1ª notícia, porém gostaria que em outra parte desta home inicial, aparecesse também a 2ª notícia e quando eu a acresentasse outra notícia, a 1ª passaria a ser a 2ª e a 2ª sumiria, ou seja, sempre q atualizar o site com um anoticia nova, a seguinte passará adiante. Como faço isso? Como faço para em um campo iframe eu mostrar a 1ª notícia e em outro campo eu mostrar a segunda?
-
Eu tenho interesse, me falem mais sobre o mesmo!
meu MSN é mateustosta@hotmail.com e meu email é mateustosta@yahoo.com.br
-
Olá eu tenho um código de livro de visitas e o que eu quero fazer é o seguinte:
Este livro exibe 8 mensagens (1 linha) uma abaixo da outra, o que eu quero é fazer com que ele exiba as 8 menagens só que em duas colunas, ou seja em uma coluna ele mostra 4 mensagens e na outra as outras 4. Estou colocando o código abaixo, pois já tentei modificar e não consegui, alguém pode me ajudar?
<%@LANGUAGE="VBSCRIPT"%> <!--#include file="include/common.asp" --> <% Dim rsguest Dim vpage Dim page Dim Block Dim Blocks Dim i Dim totale Dim maxpages Dim PagStart Dim PagStop Dim RemainingRecords Dim msg Block = Request.querystring("Block") page = Request.querystring("page") If Block="" Then Block=1 If page="" Then page=1 %> <html> <head> <title><% = Uguestname %></title> <!--#include file="include/metatag.inc" --> <LINK href="include/styles.css" rel=stylesheet> </head> <!--#include file="include/header.asp" --> <table width="760" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="600" align="center" valign="top"> <% Set rsguest = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT message.* FROM message ORDER BY msg_id DESC;" msg = "<div align center><br><br>" & strLangErrorMessageNomessage1 & "</div>" rsguest.Open strSQL, adoCon, 1, 3 rsguest.PageSize = intRecordsPerPage If NOT rsguest.EOF Then rsguest.AbsolutePage = page If rsguest.EOF Then Response.Write msg Else totale = rsguest.RecordCount For u=1 to intRecordsPerPage If rsguest.EOF Then Exit For msg_name = rsguest("Name") msg_email= rsguest("Email") msg_city = rsguest("City") msg_country = rsguest("Country") msg_homepage= rsguest("Homepage") msg_icq =rsguest("Icq") message= rsguest("Message") msg_date =rsguest("Date") %> <table width="489" border="0" cellspacing="2" cellpadding="2" align="center" class="tablemenu"> <tr> <td align="right" width="479"><b><%=formatDateTIME( msg_date, vbLongDate )%></b> <% = strLangGlobAt %> <b><%=formatDateTIME( msg_date, vbShortTime )%></b></td> </tr> <tr> <td width="479"> </td> </tr> <tr> <td align="justify" width="479"><% = message %></td> </tr> <tr> <td width="479"> </td> </tr> <tr> <td width="479"><div class="hrblue"><img src="images/spacer.gif"></div></td> </tr> <tr> <td align="right" valign="top" width="479"><img src="images/author.gif" align="absmiddle"> <b><% = msg_name %></b> <% If msg_email <>"" Then response.write"| <a href=mailto:" & msg_email & "><img src='images/author_email.gif' align='absmiddle' border='0' alt='" & strLangFormEmail & "'></a> " %> <% If msg_city <>"" Or msg_country <> "" Then response.write "| <img src='images/author_from.gif' align='absmiddle'> "%> <% If msg_city <>"" then response.write msg_city & " " If msg_country <>"" then response.write "<i>" & msg_country & "</i> "%> <% If msg_homepage <>"" Then response.write "| <a href='" & msg_homepage & "' target='_blank'><img src='images/author_homepage.gif' align='absmiddle' border='0' alt='" & strLangFormHomepage & "'></a> "%> <% If msg_icq <>"" Then response.write "| <a href=""Javascript:openWin('icq_message.asp?icq=" & msg_icq & "','Icqmessanger','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=0,width=400,height=330,left=0,top=0')""><img src=""http://web.icq.com/whitepages/online?icq=" & msg_icq & "&img=5"" border='0' alt='" & strLangAltSendIcq & msg_name & "' align='absmiddle'></a> "%> </td> </tr> </table> <br> <% rsguest.movenext Next %> <br><br> <% 'paginazione Response.Write "<table width=""90%"" align=""center"" border=""0"" cellspacing=""0"" cellpadding=""0"" height=""20""><tr><td align=""center"" width=""30%"">" maxpages = int(totale / intRecordsPerPage) If (totale mod intRecordsPerPage) <> 0 Then maxpages = maxpages + 1 End If Blocks=0 Blocks = int(maxpages / PagesPerBlock) If (maxpages mod PagesPerBlock) <> 0 Then Blocks = Blocks + 1 End If Response.Write "" & strLangGlobPage & " " & page & " " & strLangGlobOf & " " & maxpages & "</td>" Response.Write "<td align=""center"" width=""70%"">" PagStop=Block*PagesPerBlock PagStart=(PagStop-PagesPerBlock)+1 i=0 If maxpages>1 Then For vpage=PagStart to PagStop i=i+1 If Block=1 Then i=0 If i=1 And Block>1 Then Response.Write "<A href='" & request.servervariables("SCRIPT_NAME") & "?Block=" & _ (Block-1)& "&page=" & vpage-1 & "' title='" & strLangNavAltPagePrev & "'>" & _ "<img src='images/frecciasx.gif' border='0'><img src='images/frecciasx.gif' border='0'></A> " End If RemainingRecords = totale-(vpage*intRecordsPerPage) If RemainingRecords > 0 Then If vpage=CInt(page) Then Response.Write"<b>" & vpage & "</b> " Else Response.Write "<A href='" & request.servervariables("SCRIPT_NAME") & "?Block=" & Block & _ "&page=" & vpage & "'>" & vpage & "</A> " End If Else If vpage=CInt(page) Then Response.Write"<b>" & vpage & "</b> " Else Response.Write "<A href='" & request.servervariables("SCRIPT_NAME") & "?Block=" & Block & _ "&page=" & vpage & "'>" & vpage & "</A> " End If Exit For End If If vpage=PagStop And Blocks>1 and int(Block-1)<int(Blocks) Then Response.Write " <A href='" & request.servervariables("SCRIPT_NAME") & "?Block=" & (Block+1) & _ "&page=" & vpage+1 & "' title='" & strLangNavAltPageNext & "'>" & _ "<img src='images/freccia.gif' border='0'><img src='images/freccia.gif' border='0'></A>" End If Next End If Response.Write "</td></tr></table>" %> <% End If %> <br><br> <% rsguest.Close Set rsguest = Nothing Set strCon = Nothing Set adoCon = Nothing %> </td> <!--#include file="include/menu.asp" --> </tr> </table> <!--#include file="include/footer.asp" -->
-
Olá, gostaria de saber quanto eu posso cobrar por um sistema de notícias, onde as principais notícias ficam em evidência, tudo isso controlado por um apessoa que envia estas notícias. E quanto posso cobrar por um layout para este sistema (Home e umas 15 págs. a mais)???
-
Olá galera, o problema é o seguinte:
Tenho um sistema de cartão virtual que usa o envio através do CDONTS e eu quero utilizar o ASPMAIL, pois meu site só aceita este. O meu problema está no Mailer.AddRecipient, pois quero que o usuário informe o email para o qual ele quer mandar, ou seja, serão emails diferentes, então eu não posso colocar um específico para o Mailer.AddRecipient.
O para_email é o campo que está em meu banco de dados
Veja o meu código abaixo e por favor me digam como faço para um usuário meu enviar o cartão e a mensagem para quem ele quiser
<!--#include file = "conexao.asp"--> <!--#include file="config.asp"--> <% 'Gero um código para o cartão Randomize cod = int((9000000 * RND)+1) 'Capturo os dados do formulário nome = request("nome") de_email = request("de_email") para = request("para") para_email = request("para_email") assunto = request("assunto") fonte = request("fonte") musica = request("musica") tamanho = request("tamanho") mensagem = request("mensagem") img = request("img") 'Set salvar = Server.CreateObject("ADODB.Recordset") 'sql = "Select * from enviados INNER JOIN fontes on (fontes.id = enviados.fonte) where enviados.id=1" 'salvar.open sql, conex, 3,3 'Salva os dados no banco if session("envia") = true then Set salvar = Server.CreateObject("ADODB.Recordset") sql = "Select * from enviados" salvar.open sql, conex, 3,3 salvar.addnew salvar("cod") = cod salvar("nome") = nome salvar("de_email") = de_email salvar("para") = para salvar("para_email") = para_email salvar("assunto") = assunto salvar("mensagem") = mensagem salvar("data") = date salvar("musica") = musica salvar("img") = img salvar("fonte") = fonte salvar("tamanho") = tamanho salvar.update 'Envia o e-mail utilizando o coponente C'donts mensagem = "<html><head><title>Cartão virtual</title><style type='text/css'>a:link { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #000000; text-decoration: none;}a:visited { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #000000; text-decoration: none;}a:hover { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #000000; text-decoration: underline;}a:active { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #000000; text-decoration: none;}</style></head><body bgcolor='#999999'><table width='100%' border='0' cellspacing='0' cellpadding='0' style='Border-top:#666666 1px solid;Border-left:#666666 1px solid;Border-right:#666666 1px solid;Border-bottom:#666666 1px solid;'> <tr> <td height='141' valign='middle' bgcolor='#CCCCCC'> <div align='center'> <table width='98%' border='0' align='center' cellpadding='0' cellspacing='0' bgcolor='efefef' style='Border-top:#000000 1px solid;Border-bottom:#000000 1px solid;'> <tr> <td height='112' valign='middle'> <table width='98%' border='0' align='center' cellpadding='0' cellspacing='0'> <tr> <td height='92'> <p><font size='2' face='Verdana, Arial, Helvetica, sans-serif'><strong>"¶&"<br> <br> </strong><font size='1'> Você acaba de receber um cartão virtual de ""&nome&"", ele ficará salvo em nosso banco de dados por um período de "&dr&" dias, passado este período o mesmo será removido de nosso sistema!</font></font></p> <p align='center'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'><font size='1'> Para ler seu cartão <a href='"&endereco&"/ver.asp?id="&salvar("id")&"&cod="&cod&"' target='_blank'>clique aqui</a></font></font></p></td> </tr> </table> </td> </tr> </table> </div></td> </tr></table><br><br><div align='center'><font color='#CCCCCC' size='1' face='Verdana, Arial, Helvetica, sans-serif'>--------------------------------------------------------- <br><br>Developed by Diógenes Götz<br>E-mail-diogotz@bol.com.br<br>Http://www.salamito.fdp.com.br/forum</font> </div></body></html>" 'Envia uma mensagem de boas-vindas ao usuário cadastrado (Por e-mail) Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.fromName = nome&"<"& de_email &">" Mailer.FromAddress = de_email Mailer.RemoteHost = "smtp.vipseven.com.br" Mailer.AddRecipient request.form("para_email") Mailer.Subject = "Cartão virtual!" Mailer.Body = rs("mensagem") if Mailer.SendMail then Response.Write "O E-mail foi enviado" else Response.Write "O e-mail não foi enviado devido a um erro. O erro foi " & Mailer.Response end if %> <title><%=titulo%></title><body bgcolor="#999999"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td><table width="40%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC" style="Border-top:#666666 1px solid;Border-left:#666666 1px solid;Border-right:#666666 1px solid;Border-bottom:#666666 1px solid;"> <tr> <td height="22" bgcolor="#666666"><div align="center"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Alerta</strong></font></div></td> </tr> <tr> <td height="90"> <div align="center"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><% End if%><br> Redirecionando ...</font></div></td> </tr> </table></td> </tr> </table> </body>
Só que ele gera o seguinte erro:
Microsoft VBScript runtime error '800a01c2'
Wrong number of arguments or invalid property assignment: 'Mailer.AddRecipient'
/cartao/cartao_virtual/salvar.asp, line 54
-
Olá, alguém sabe me indicar onde posso arrumar um código em ASP de um namoro virtual, namoro on-line???
Grato.
-
Ai Alex, entra em www.wmonline.com.br que lá tem serviço de banner rotativo, garanto que é bom e fácil de usar
-
Tem também o http://www.plusmasters.com.br e o http://www.plugmasters.com.br
-
cara esse mura que você tem ai é do web wiz né?
É sim, este mural é do web wiz. Eu sei que tem este arquivo onde mudo a quantidade por página, porem ele já está delimitado para apresentar 9 mensagens, mas não tá dando certo.
-
è o que estou tentando fazer agora, mas num estou sabendo se ta certo, to sem noção.
-
o link é http://www.vipseven.com.br/recados/default5.asp
O problema é nas mensagens e na exibição das páginas, pois não mostra "próxima pág." e "pág. anterior". O que acontece é que ele lista todas as mensagens (188) e pronto, o que quero é exibir 9 na primeira, ai vem "próxima pág.", onde nesta terá mais 9 e assim por diante.
-
Ele funciona sim, o problema é q ele é apresenta 10 mensagens todas na horizontal e o que eu quero é fazer com que ele me apresente 9 mensagens na vertical, ou seja, quero três colunas como o exemplo que postei.
-
DArk0, eu até tenho um código pronto, mas não consigo mudá-lo para a forma que quero, já postei aqui sobre o mesmo, está postado hj, por este motivo estou a procura de um cód. pronto.
-
Gostaria de saber se alguém sabe onde posso arrumar um código pronto de Mural de recados igual ao desta página: mural
-
Victor, não entendi o que você quis dizer ao falar para olhar dentro do while, pois meu cód. não tem while, o que você quer dizer é pra eu colocar um while??? Onde???
-
Olá, eu tenho um mural de recados em minha página, o que eu gostaria de fazer é o seguinte:
O meu mural exibe sempre 12 mensagens, todas uma abaixo da outra; eu quero fazer com que estas mensagens sejam exibidas em 3 colunas de mesmo tamanho, ou seja, quero fazer com que as mensagens que aparecem na horizontal, fiquem contendo 3 colunas na vertical. Abaixo estou postando uma parte do meu código que realiza a postagem de quem está enviando, para quem e a mensagem, então como posso fazer com que ao apresentar a mensagem, ele me mostre em colunas?
<% 'For....Next Loop to display records from the guestbook database For intRecordLoopCounter = 1 to intRecordsPerPage 'If there are no guestbook records left to display then exit loop If rsCommon.EOF Then Exit For 'Read in the values form the database strName = rsCommon("Name") strPara = rsCommon("Para") dtmEntryDate = CDate(rsCommon("Date_stamp")) strComments = rsCommon("Comments") 'Write the HTML to the web browser to display the guestbook entries %> <table width="100%" border="0" cellspacing="0" cellpadding="1" align="center" bgcolor="<% = strTableBorderColour %>"> <tr> <td> <table width="100%" border="0" cellpadding="2" cellspacing="0"> <tr bgcolor="<% = strTableTitleColour %>"> <td colspan="2" class="text"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="27%" class="text"><font color="#FFFF00"><b>De:</b></font> <% Response.Write(strName)%> <td width="20%" class="text"><font color="#ffff00"><b>Para:</b></font> <% Response.Write(strPara) %></td> <td width="80%" align="right" class="text"><font color="#ffff00"><b>Enviado:</b></font> <% = FormatDateTime(dtmEntryDate, VbLongDate) %> às <% = FormatDateTime(dtmEntryDate, VbShortTime) %></td> </tr> </table></td> </tr> <tr> <td colspan="2" bgcolor="<% = strTableColour %>" class="text"><font color="#000000"><% = strComments %></font> </td> </tr> <tr bgcolor="<% = strTableTitleColour %>"> <td width="50%" align="left" class="text"><font color="#ffff00"><b>Cidade:</b></font> <% = strCountry %></td> <td width="50%" align="right" class="text"><font color="#ffff00"><b>E-mail:</b></font> <% Response.Write("<a href=""mailto:" & strEmailAddress & """>" & strEmailAddress & "</a>") %></td> </tr> </table></td> </tr> </table> <br> <% 'Move to the next record in the database rsCommon.MoveNext 'Loop back round Next End If 'Display an HTML table with links to the other entries in the guestbook %> <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center"> <tr> <td> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="50%" align="center" class="text"> <% 'If there are more pages to display then add a title to the other pages If intRecordPositionPageNum > 1 or NOT rsCommon.EOF Then Response.Write vbCrLf & " Page: " End If 'If the guestbook page number is higher than page 1 then display a back link If intRecordPositionPageNum > 1 Then Response.Write vbCrLf & ("<a href=""default.asp?PagePosition=" & intRecordPositionPageNum - 1 & """ target=""_self""><< Anterior</a>") End If 'If there are more pages to display then display links to all the pages If intRecordPositionPageNum > 1 or NOT rsCommon.EOF Then 'Display a link for each page in the guestbook For intLinkPageNum = 1 to intTotalNumGuestbookPages 'If there is more than 7 pages display ... last page and exit the loop If intLinkPageNum > 15 Then If intTotalNumGuestbookPages = intRecordPositionPageNum Then Response.Write(" ..." & intTotalNumGuestbookPages) Else Response.Write(" ...<a href=""default.asp?PagePosition=" & intTotalNumGuestbookPages & """ target=""_self"">" & intTotalNumGuestbookPages & "</a>") 'Exit Loop Exit For 'Else display the normal link code Else 'If the page to be linked to is the page displayed then don't make it a hyper-link If intLinkPageNum = intRecordPositionPageNum Then Response.Write(" " & intLinkPageNum) Else Response.Write(" <a href=""default.asp?PagePosition=" & intLinkPageNum & """ target=""_self"">" & intLinkPageNum & "</a>") End If Next End If 'If it is Not the End of the guestbook entries then display a next link for the next guestbook page If NOT rsCommon.EOF then Response.Write (" <a href=""default.asp?PagePosition=" & intRecordPositionPageNum + 1 & """ target=""_self"">Próxima >></a>") End If 'Finsh HTML the table %>
-
Cara, eu sei fazer, mas o problema é que eu estou sem tempo e criatividade.
-
-
Olá, gostaria de saber se alguém pode fazer para mim um "topo" de uma página de rádio. Seria um tamanho de 780 x 100 pixels. Eu tenho que fazer um site, mas não estou tendo criatividade para montar a base superior do site (parte de cima, conforme o tamanho que falei), a logomarca da empresa de rádio, já está criada, ela é da seguinte forma:
Musirama (escrito de preto) - 92,1 (escrito de vermelho) - tudo isso, sobre um fundo amarelo. Bem, portanto, eu gostaria que alguém criasse para mim algo que combinasse com estas cores (preto,vermelho e amarelo). Mas tem que ser uma criação para Rádio FM, sem dizeres, só o fundo mesmo (780x100), procuro algo o mais profissional possivel, infelizmente, não tenho como pagar por isso, pois estou desenvolvendo isto para está rádio, que é comunitária, se alguém puder me ajudar eu agradeço. Caso queiram, podem mandar a arte pelo meu email - suportewebsis@yahoo.com.br
Gratos.
Mateus
-
Sistema De Busca
em PHP
Postado
Olá, eu tenho um sistema de cadastro e busca de documentos (somente texto). Este sistema realiza uma busca com referência a palavras chave que são cadastradas juntamente com os textos. O meu problema é o seguinte:
quando é feita a busca ele trás todos os resultados, mas se eu quiser realizar uma nova busca envolvendo somente estes 1º resultados apresentados eu não consigo, o que devo fazer? Ex.: eu na 1ª pesquisa eu busco por esporte, dai eu quero fazer uma 2ª busca dentro dos resultados de esporte sobre futebol, só que não dá certo pois ele gera uma nova busca sobre futebol no geral.
Alguém pode me ajudar? Caso possa, eu tenho aqui todo o código necessário e mais informações se necessário. Entre em contato comigo pelo email mateustosta@gmail.com e eu envio todo o conteúdo necessário.
Grato,
Mateus