simples em asp.. mas simples mesmo
com menu e tal..
soH!
etilo
top menu e lateral?
so que em asp!?
Ae eu modifico ake !
tem como ???
vlw quem me ajuda ganha um bjo da dani !

Posted 20/06/2003, 13:17
Posted 20/06/2003, 13:55
Posted 20/06/2003, 16:08
Voce quase ganho o bjo da dani!cara ASP serve pra programar, pagina do jeito q v ta falando nao precisa de ASP.
se quiser modelos de paginas vai em:
clique aqui
Posted 20/06/2003, 16:19
Posted 20/06/2003, 16:37
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<% ' Conexão com o BD...
sql = "SELECT * FROM tabela ORDER BY nome"
Set rs = Conexao.Execute(sql)
If rs.EOF Then
Response.Write "<tr><td>Não há itens cadastrados</td></tr>"
Else
While Not rs.EOF %>
<tr>
<td><a href="pagina.asp?id=<%=rs("id")%>"><%=rs("nome")%></a></td>
</tr>
<% rs.MoveNext
Wend
End If%>
</table>
Posted 20/06/2003, 17:09
Dani!cara quem é dani (ela tem foto?)
outra quais sao os itens haverao? manda o codigo e os campos do db q vc ja fez pra q possa te ajudar.
t+
<%@ LANGUAGE = VBScript %> <% Option Explicit %> <HTML> <HEAD> <TITLE>Teste</TITLE> </HEAD> <BODY BGCOLOR="White" topmargin="10" leftmargin="10"> <br> <% Dim oConn Dim oRs Dim filePath Dim Index ' Identifica o caminho da Base de dados filePath = Server.MapPath("authors.mdb") ' Cria ADO Connection Component para conectar ' com a Base de Dados Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath ' Executa a SQL query e guarda os resultados ' num recordset Set oRs = oConn.Execute("SELECT * From authors") %> <TABLE border = 1> <% Do while (Not oRs.eof) %> <tr> <% For Index=0 to (oRs.fields.count-1) %> <TD VAlign=top><% = oRs(Index)%></TD> <% Next %> </tr> <% oRs.MoveNext Loop %> </TABLE> <% oRs.close oConn.close %> </BODY> </HTML>
Posted 20/06/2003, 17:14
Posted 20/06/2003, 17:21
assim?entaum, tipo... Faz mais uma coluna na tabela chamada link e coloca lah o endereço da página... Dae soh altera a tag html pra pegar o href do bd... tipo:
<a href="<%=rs("link")%>"><%=rs("nome")%></a>
ok?
<%@ LANGUAGE = VBScript %> <% Option Explicit %> <HTML> <HEAD> <TITLE>Teste</TITLE> </HEAD> <BODY BGCOLOR="White" topmargin="10" leftmargin="10"> <br> <% Dim oConn Dim oRs Dim filePath Dim Index ' Identifica o caminho da Base de dados filePath = Server.MapPath("authors.mdb") ' Cria ADO Connection Component para conectar ' com a Base de Dados Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath ' Executa a SQL query e guarda os resultados ' num recordset Set oRs = oConn.Execute("SELECT * From authors") %> <TABLE border = 1> <% Do while (Not oRs.eof) %> <tr> <% For Index=0 to (oRs.fields.count-1) %> <a href="<%=rs("link")%>"><%=rs("nome")%></a> <% Next %> </tr> <% oRs.MoveNext Loop %> </TABLE> <% oRs.close oConn.close %> </BODY> </HTML>
Posted 20/06/2003, 17:50
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)