Ir para conteúdo

POWERED BY:

Arquivado

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

Bayma

exibir dado com duas tabelas

Por , em ASP Clássico

Recommended Posts

Bayma    0

Bayma
Postado

<%

Set rs2 = Server.CreateObject("ADODB.Recordset")

 

sql2 = "SELECT status.descricao FROM status,publicidade WHERE publicidade.codigo = status.codigo"

 

rs2.CursorLocation = 2

rs2.CursorType = 1

rs2.LockType = 2

 

rs2.Open sql2, conexao,,, &H0001

 

Response.Write(descricao)

 

%>

 

 

==========================

nao imprimi a descricao da taleba status....

 

como faço pra pra imprimir?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Bayma    0

Bayma
Postado

<%

'Codifica a linguagem para PT-BR

Response.charset = "Iso-8859-1"

 

Set conexao = Server.CreateObject("ADODB.Connection")

conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("publicidade.mdb")

 

%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="pt-br" lang="pt-br">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

<title>Untitled Document</title>

</head>

 

<%

 

Set rs = Server.CreateObject("ADODB.Recordset")

 

sql = "SELECT * FROM status,publicidade ORDER BY publicidade.codigo"

 

rs.CursorLocation = 2

rs.CursorType = 1

rs.LockType = 2

 

rs.Open sql, conexao,,, &H0001

 

rs.movefirst

 

%>

 

 

<body>

 

<FORM ACTION="Ordenar.asp" METHOD="get">

<select name="select">

<option value="codigo" selected="selected">Codigo</option>

<option value="nome">Nome</option>

<option value="clicks">Clicks</option>

<option value="exposicao">Exposicao</option>

<option value="status">Status</option>

<option value="dataFinal">Data Final</option>

</select>

<INPUT TYPE="submit" Value="Ordenar">

</FORM>

 

<a href="Incluir.asp">Incluir</a>

 

<%

 

Do while not rs.eof

 

codigo = rs("codigo")

nome = rs("nome")

clicks = rs("clicks")

exposicao = rs("exposicao")

status = rs("status")

data = rs("data")

dataFinal = rs("dataFinal")

 

%>

 

</p>

<table width="410" height="219" border="2" cellpadding="4" cellspacing="4" bordercolor="#003399" style="padding: 2px 2px 2px 2px">

<tr> </tr>

<tr>

<th width="169" scope="row"> <div align="left"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Codigo</font></div></th>

<td width="355"><font size="2"><font face="Verdana, Arial, Helvetica, sans-serif">

<%response.Write(codigo)%>

</font></td>

</tr>

<tr>

<th width="169" scope="row"><div align="left"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Nome</font></div></th>

<td width="355"><font size="2"><font face="Verdana, Arial, Helvetica, sans-serif"><a href="TodosDados.asp?id=<%response.Write(codigo)%>">

<%response.Write(nome)%>

</td>

</tr>

<tr>

<th width="169" scope="row"><div align="left"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Clicks</font></div></th>

<td width="35"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">

<%response.Write(clicks)%>

</font></td>

</tr>

<tr>

<th width="169" scope="row"><div align="left"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Exposicao</font></div></th>

<td width="355"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">

<%response.Write(exposicao)%>

</font></td>

</tr>

<tr>

<th width="169" scope="row"><div align="left"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Status</font></div></th>

<td width="355"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">

<%

Set rs2 = Server.CreateObject("ADODB.Recordset")

 

sql2 = "SELECT status.descricao FROM status,publicidade WHERE publicidade.codigo = status.codigo"

 

rs2.CursorLocation = 2

rs2.CursorType = 1

rs2.LockType = 2

 

rs2.Open sql2, conexao,,, &H0001

 

'Response.write rs2("descricao")

 

%>

 

 

 

</td>

</tr>

<tr>

<th width="169" scope="row"><div align="left"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Data</font></div></th>

<td width="355"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">

<%response.Write(data)%>

</font></td>

</tr>

<tr>

<th width="169" scope="row"><div align="left"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Data Final</font></div></th>

<td width="355"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">

<%response.Write(dataFinal)%>

</font></td>

</tr>

</table>

<font face="Verdana, Arial, Helvetica, sans-serif">

<%

 

rs.Movenext

 

loop

%>

</font>

</body>

</html>

 

=============================================================

 

ta ai o codigo todo

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

qual erro exato?

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