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)