Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

gotaum

[Resolvido] Asp com exibição da tabela vinda de Mysql

Por , em ASP Clássico

Recommended Posts

Jow Xavier    0

Jow Xavier
Postado

Tenta assim cara ...

 

<% dim strconn
sub abre_conectar
set strconn=server.CreateObject("adodb.connection")
'Abrimos uma conexão com o banco de dados - [IMPORTANTE] altere os dados abaixo com as informações de sua base de dados
strconn.Open("DRIVER={MySQL ODBC 3.51 Driver};SERVER=o endereço do seu servidor;PORT=3306;DATABASE=sua base de dados;USER=seu nome de usuario;PASSWORD=a senha do banco de dados;OPTION=3;") 
end sub
sub fecha_conectar
	 strconn.close
	 Set strconn = nothing
end sub %>

<html>
<head>
<title>Consulta</title>


</head>

<body>
<%
call abre_conectar

sql = "SELECT * FROM newsletter "
set rs = strconn.execute(sql)
%>

<table>
<tr>
<td>Nome</td>
<td>Email</td>
<td>Dia</td>
<td>Mês</td>
<td>Ano</td>
<td>Sexo</td>
<td>DDD</td>
<td>Telefone</td>
<td>Como Soube?</td>
</tr>
<tr>
<%while not rs.eof%>
<td><%=rs("newsletter_nome")%></td>
<td><%=rs("newsletter_email")%></td>
<td><%=rs("newsletter_dia")%></td>
<td><%=rs("newsletter_mes")%></td>
<td><%=rs("newsletter_ano")%></td>
<td><%=rs("newsletter_sexo")%></td>
<td><%=rs("newsletter_ddd")%></td>
<td><%=rs("newsletter_telefone")%></td>
<td><%=rs("newsletter_como")%></td>
<%rs.MoveNext
  Wend

call fecha_conectar
set rs = nothing%>
</tr>
</table>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito