<script language="javascript">
<!--
function mostra_foto(codigo) {
window.open (codigo,'Fotos','scrollbars=no,width=750,height=610,top=0,left=0') }
//-->
</script>
<%
Const NumPerPage1 = 5
Dim CurPage1
If Request.QueryString("CurPage") = "" then
CurPage1 = 1
Else
CurPage1 = Request.QueryString("CurPage")
End If
Dim conn1
Set conn1 = Server.CreateObject("ADODB.Connection")
conn1.Open "DBQ=" & Server.MapPath("bd/festas.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
Dim rs1
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.CursorLocation = 3
rs1.CacheSize = NumPerPage1
Dim strSQL1
strSQL1 = "SELECT * FROM Baladas ORDER BY Data DESC"
rs1.Open strSQL1, Conn1
rs1.MoveFirst
rs1.PageSize = NumPerPage1
Dim TotalPages1
TotalPages1 = rs1.PageCount
rs1.AbsolutePage = CurPage1%>
<link href="../agitoesconf.css" rel="stylesheet" type="text/css" />
<table width="97%" border="0" cellspacing="2" cellpadding="0">
<%
Count1 = 0
Do While Not rs1.EOF And Count1 < rs1.PageSize
%>
<tr>
<td height="80">
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td width="8%"><a href="java script:mostra_foto('fotos/Foto_Frameset.asp?BalId=<%=rs1("Id")%>')"><img src="fotos/capas/<%=rs1("Id")%>.jpg" width="80" height="60" border="0" align="middle"></a></td>
<td width="92%" class="textos_menu"><span class="linkazul"><strong><a href="java script:mostra_foto('fotos/Foto_Frameset.asp?BalId=<%=rs1("Id")%>')"><%=rs1("Nome")%></a></strong></span><br> Local: <span class="textocinza"><%=rs1("Local")%> - <%=rs1("Cidade")%><br>
</span> Data: <span class="textocinza"><%=rs1("Data")%><br></span>
Cliks: <span class="textocinza"><%=rs1("Clicks")%></span></td>
</tr>
</table> </td>
</tr>
<%
Count1 = Count1 + 1
rs1.MoveNext
Loop
%>
</table>
Ajuda No Codigo De Fotos
Started By animaltide, 04/08/2006, 10:43
1 reply to this topic
#1
Posted 04/08/2006, 10:43
ola eu estou com um problema , nao sei se vcs podem me ajudar .. eu estou com um sistema de fotos , so que a capa esta uma em baixo da outra .. euq queria coloar duas fileiras mais uma do lado da outra sera que tem como alguem me ajudar esse e o meu site MuvucaBh mais eu queria fazer o esquema igual desse site Norock mais eu queria colocar os texto em baixo da foto e 4 em cada fileira , tem uma imagem tb .. se alguem pode me ajudar eu ficarei grato
#2
Posted 07/08/2006, 09:13
Seu problema não é com asp camarada. É html básico.
pense na estrutura primeiro, depois trabalhe com seu loop.
Há várias outras formas de fazer. Use a sua imaginação...
pense na estrutura primeiro, depois trabalhe com seu loop.
<%
WHILE NOT rs.EOF
imagem1 = rs("arquivo")
titulo1 = rs("titulo")
rs.movenext
IF NOT rs.EOF THEN
imagem2 = rs("arquivo")
titulo2 = rs("titulo")
rs.movenext
END IF
%>
<table>
<tr>
<td>
<img src="<%=imagem1%>">
</td>
<td>
<img src="<%=imagem2%>">
</td>
</tr>
<tr>
<td>
<%=titulo1%>
</td>
<td>
<%=titulo2%>
</td>
</tr>
</table>
<%
WEND
rs.CLOSE
SET rs = nothing
%>Há várias outras formas de fazer. Use a sua imaginação...
Edição feita por: NOVAZOO, 07/08/2006, 09:14.
2 user(s) are reading this topic
0 membro(s), 2 visitante(s) e 0 membros anônimo(s)










