Jump to content


Photo

Como Fazer Isto Me Confundo


  • Faça o login para participar
3 replies to this topic

#1 zanelati2002

zanelati2002

    Normal

  • Usuários
  • 101 posts
  • Sexo:Não informado

Posted 25/12/2003, 08:21

tenho uma conexão o mesmo mostra os ultimos 10 que assinaram meu livro de visitas os email como que eu faço para quando mostrar os emails automaticamente quando mostrar o user clica e manda um email para o cara tipo um link direto para o autlook express
<%
set conn = createobject("AdoDb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("db/guest.mdb")
conn.open constr

set rs = conn.execute("select top 10 * from assinar order by email desc")
do while not rs.eof
response.write(rs("email")&"<br>")
rs.movenext
loop
%>

#2 crazybaby

crazybaby

    Cyber Eye

  • Banidos
  • PipPipPipPipPipPipPipPipPip
  • 1112 posts
  • Sexo:Não informado
  • Localidade:Divinopolis-MG
  • Interesses:ASP &amp; Design

Posted 25/12/2003, 09:14

Faz assim

<%
set conn = createobject("AdoDb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("db/guest.mdb")
conn.open constr

set rs = conn.execute("select top 10 * from assinar order by email desc")
do while not rs.eof
response.write("<a href='mailto:"&rs("email")&"'>"&rs("email")&"</a><br>")
rs.movenext
loop
%>

Flows

:D

#3 zanelati2002

zanelati2002

    Normal

  • Usuários
  • 101 posts
  • Sexo:Não informado

Posted 25/12/2003, 09:23

e quando o link apontar par sites
<%
set conn = createobject("AdoDb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("db/guest.mdb")
conn.open constr

set rs = conn.execute("select top 10 * from assinar order by site desc")
do while not rs.eof
response.write(rs("site")&"<br>")
rs.movenext
loop
%>

#4 crazybaby

crazybaby

    Cyber Eye

  • Banidos
  • PipPipPipPipPipPipPipPipPip
  • 1112 posts
  • Sexo:Não informado
  • Localidade:Divinopolis-MG
  • Interesses:ASP &amp; Design

Posted 25/12/2003, 09:28

Só tirar o mailto

<%
set conn = createobject("AdoDb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("db/guest.mdb")
conn.open constr

set rs = conn.execute("select top 10 * from assinar order by site desc")
do while not rs.eof
response.write("<a href='"&rs("site")&"'>"&rs("site")&"<br>")
rs.movenext
loop
%>

Flows

:D




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq