m.designer

Eu vou tentar modificar algumas coisas, o topo mesmo será modificado to pensando em fazer um menu horizontal com o home.. em flash um lgogo em flash do lado esquerdo e a publi do direito

vou ver oq posso fazer

Olá, valeu pelo comentario, que cores você gosta? eu achei que o azul ficou bem leve, você gosta do site com mais cores ou é porque ta todo azul ?

Da uma opniao de como deixar as cores para eu eu possa deixar ele cada vez melhor, não tenho muitaa experiencia ainda em design ai não sei combinar muito bem as cores ai taquei tudo azul rs..

Valeu ai ....

Cria uma tabela onde estão as fotos chamada cliques com valor numerico inicial de 0

Esse código você poe em cima das paginas que aparecerá as fotos ele irá cadastrar o clique no banco de dados.
abrir_imagem.asp

<% AbreConexao
id = request.querystring("id")
Sql1 = "SELECT * FROM imagens WHERE id =" & id & ""
Set rs = Server.CreateObject("ADODB.Recordset")     
rs.Open SQL1, ConStr, 3, 3
cliquesa = rs("cliques")
cliquesb = "1"
x = cliquesa + cliquesb
Sql = "UPDATE mensagens SET cliques = '" & x & "' WHERE id = " & id & " "
Conexao.Execute(Sql) %>

Esse vai na pagina que você quer que aparece as 3 fotos mais clicadas
top_imagens.asp

<table cellpadding='0' cellspacing='3'>
<% regs = 3
pag = 1
AbreConexao

Set rs = Createobject("ADODB.recordset")
set Rs.ActiveConnection = Conexao
rs.cursortype = 3 
rs.pagesize = regs

SQL = "SELECT * FROM imagens ORDER BY cliques DESC"
rs.Open SQL

If rs.EOF or rs.BOF Then
Response.Write "Sem resultados!"
Else
rs.Absolutepage = pag
contador = 0
Do While Not rs.EOF AND contador < rs.Pagesize %>
  <tr>
  <td bgcolor="#ECF9FD" align="center">
    <a href="abrir_imagem.asp?id=<%=rs("id")%>">
    <font class="link"><%=rs("imagem")%></font>
    </a>
  </td>
  </tr>
  <% contador = contador +1
rs.MoveNext
Loop
End If
rs.Close
FechaConexao %>  
</table>

Espero ter ajudado !!!
sou iniciante tb qualquer duvida posta ae...

Ola tentei modifciar o codigo e cheguei nisso, ele da erro pq fala q o o yahoo precisa do logon, agora nao estou conseguindo mais fazer nada, podeira me ajudar a enviar o e-mail corretamente, pode ser por qualquer servidor, é só falar oq por que eu me cadastro ...

olha o codigo

Set Mail = Server.CreateObject("Persits.MailSender") 
Mail.Host = "smtp.mail.yahoo.com.br" 
Mail.FromName = fromname
Mail.From= frommail
Mail.AddAddress Request("tomail")
Mail.Subject = "Você recebeu um cartão"
Mail.Body = toname &"," & vbCrLf   &  fromname & " " &  "Você acaba de receber um cartão virtual "& vbCrLf  &_
  "you can pick up you card on our site" & " "& mysite & vbCrLf  & "by entering your ticket number witch is: "  & ticket & vbCrLf  & " or simply click on the bleow url to automaticly view your card " & vbCrLf  & mysite& "/get.asp?ticket="& ticket & vbCrLf  & vbCrLf  & "Regards" & vbCrLf  & myname & vbCrLf  & "* Card must be recived within " & days & " days or it will be deleted"
Mail.Send
	
	If Err <> 0 Then ' error occurred
      strErr = Err.Description
   else
      bSuccess = True
   End If
%>

Obrigado mais eu olhei e não achei nada porque não consigo mudar o codigo porque nao entendo de asp, não tem como me mandar o codigo de envio pronto para que funcione no meu script ....

Obrigado, agradeço a atenção!