animaltide

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

<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>

ola eu estou com um sistema de cadastro com foto ...
so que nao agora que e para add a foto da erro
alguem podia me ajudar ai

<%
if request("cidade") <> "" then
  session("cidades") = request("cidade")
end if

Dim strConn, oConn, oRS, strSQL

strConn = "Driver={Driver do Microsoft Access (*.mdb)}; DBQ=" & Server.MapPath("db/sitedb.mdb")
Set oConn = Server.CreateObject("ADODB.Connection")
Set oRS = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Cadastro WHERE nick LIKE '"&session("nick")&"'"
oRS.Open strSQL, strConn

Dim strConn1, oConn1, oRS1, strSQL1

strConn1 = "Driver={Driver do Microsoft Access (*.mdb)}; DBQ=" & Server.MapPath("upload.mdb")
Set oConn1 = Server.CreateObject("ADODB.Connection")
Set oRS1 = Server.CreateObject("ADODB.RecordSet")
strSQL1 = "SELECT * FROM up WHERE nick LIKE '"&session("nick")&"' ORDER BY Id DESC"
oRS1.Open strSQL1, strConn1

if request("action") <> "" then
  
Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
objUpload.Upload
If objUpload.Files.Item(1).Size < 51251 then
For Each File In objUpload.Files
If Not File.IsMissing Then
File.SaveAs(Server.MapPath("usuarios/"&session("nick")&".") & File.FileExt)
filename=session("nick") & "." & File.FileExt
End If
Next
if not ors1.bof and not ors1.eof then
Set objConn =  Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Driver do Microsoft Access (*.mdb)}; DBQ=" & Server.MapPath("upload.mdb")
strQuery  = "UPDATE up SET upload='"&filename&"' WHERE Nick='"&session("nick")&"'"
objConn.Execute(strQuery)
objConn.close
Set objRs = Nothing
Set objConn = Nothing

Response.redirect "login_dados.asp"
end if
  if ors1.bof and ors1.eof then
  sql1 = "insert into up (nick,upload) values('"&session("nick")&"','"&filename&"')"
	dsn1="DBQ=" & Server.Mappath("upload.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
	set conn1=server.createObject("adodb.connection")
	conn1.open dsn1
	conn1.execute(sql1)
	conn1.close
	set conn1 = nothing
	Response.redirect "login_dados.asp"
end if
else
  response.redirect "login_dados_erro.asp?cidade="&session("cidades")&""
end if
end if
%>

[/CODE]Estou comencado a mexer com asp , eu estou fazendo um sitema de agenda para um site de baladas , adicionar , apagar eventos , so que as paginas estao dando erros , eu gostaria se alguem pudesse me ajudar . aguardo

paginda index

<%
sub mesint(mes)
dim meses(13)

meses(1) = "Janeiro"
meses(2) = "Fevereiro"
meses(3) = "Março"
meses(4) = "Abril"
meses(5) = "Maio"
meses(6) = "Junho"
meses(7) = "Julho"
meses(8) = "Agosto"
meses(9) = "Stembro"
meses(10) = "Outubro"
meses(11) = "Novembro"
meses(12) = "Dezembro"

response.write meses(mes)
end sub

    Const NumPerPageag = 20
    Dim CurPageag

    If Request.QueryString("CurPage") = "" then

        CurPageag = 1

    Else

        CurPageag = Request.QueryString("CurPage")

    End If
    Dim connag
    Set connag = Server.CreateObject("ADODB.Connection")
	connag.Open "DBQ=" & Server.MapPath("agenda/agenda.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
    Dim rsag
    Set rsag = Server.CreateObject("ADODB.Recordset")
    rsag.CursorLocation = 3
    rsag.CacheSize = NumPerPageag
    Dim strSQLag
    strSQLag = "SELECT * FROM Agenda ORDER BY Data ASC"
    rsag.Open strSQLag, Connag
    rsag.MoveFirst
    rsag.PageSize = NumPerPageag
    Dim TotalPagesag
    TotalPagesagag = rsag.PageCount
    rsag.AbsolutePage = CurPageag
%>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
<link href="baladasvip.css" rel="stylesheet" type="text/css">

<table width="234" border="0" cellpadding="0" cellspacing="0">
<%
    Countag = 0
  Do While Not rsag.EOF And Countag < rsag.PageSize 
%>
  <tr>
    <td colspan="2" valign="top" class="textos">&nbsp;<a href="javascript:;" class="txtbranco" onClick="MM_openBrWindow('agenda/balada_ver.asp?Id=<%=rsag("Id")%>','balada','scrollbars=yes,width=428,height=300')"><strong><%=day(rsag("Data"))%> de <%mesint(month(rsag("Data")))%> :: </strong><%=rsag("Nome")%></a><br></td>
  </tr>
<%
   Countag = Countag + 1
   rsag.MoveNext
    Loop
%>  
</table>

Pagina

PAGINA ADCIONAR EVENTOS

<%
if session("adminlogin") = "" then
response.redirect "../adminlogin.asp?go=agenda"
end if
useraction=request("action")
select case useraction
case "del"

sql1 = "delete from Agenda where Id =" & request("Id")
	dsn1="DBQ=" & Server.Mappath("agenda.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
	set conn1=server.createObject("adodb.connection")
	conn1.open dsn1
	conn1.execute(sql1)
	conn1.close
	set conn1 = nothing
    response.Redirect "all.asp"

end select
strConn = "Driver={Driver do Microsoft Access (*.mdb)}; DBQ=" & Server.MapPath("agenda.mdb")
Set oConn = Server.CreateObject("ADODB.Connection")
Set oRS = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Agenda ORDER BY Data ASC"
oRS.Open strSQL, strConn
%>
<html>
<head>
<title>NightES.com :: Admin :: Agenda</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../estilo.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
</head>

<body>
<table width="100%"  border="0" cellspacing="3" cellpadding="0">
<%
while not oRS.EOF      
%>
  <tr align="center">
    <td height="23" colspan="2" class="txtazulroxo"><strong class="txtvermelho"><%=oRS("Nome")%></strong></td>
  </tr>
  <tr>
    <td width="50%" align="right" class="txtazulroxo">Local:</td>
    <td width="50%" class="txtcinza"><%=oRS("Local")%> - <%=oRS("Cidade")%></td>
  </tr>
  <tr>
    <td align="right" class="txtazulroxo">Pre&ccedil;o:</td>
    <td class="txtcinza"><%=oRS("Preco")%></td>
  </tr>
  <tr>
    <td align="right" class="txtazulroxo">Data:</td>
    <td class="txtcinza"><%=oRS("Data")%></td>
  </tr>
  <tr>
    <td align="right" class="txtazulroxo">Hora:</td>
    <td class="txtcinza"><%=oRS("Hora")%></td>
  </tr>
  <tr>
    <td align="right" class="txtazulroxo">Promo&ccedil;&atilde;o:</td>
    <td class="txtcinza"><%=oRS("Promocao")%></td>
  </tr>
  <tr>
    <td align="right" class="txtazulroxo">Comentario:</td>
    <td class="txtcinza"><%=oRS("Comentario")%></td>
  </tr>
  <tr align="center">
    <td colspan="2" class="linkazul"><a href="all.asp?action=del&Id=<%=oRS("Id")%>" class="txtazulroxo">Apagar</a><span class="txtazulroxo"> | </span><a href="javascript:;" class="txtazulroxo" onClick="MM_openBrWindow('editar.asp?Id=<%=oRS("Id")%>','editar','width=297,height=288')">Editar</a></td>
  </tr>
  <tr>
    <td colspan="2" align="right" class="txtazulroxo"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="1"></td>
      </tr>
      <tr>
        <td height="1" bgcolor="#999999"></td>
      </tr>
      <tr>
        <td height="1"></td>
      </tr>
    </table></td>
  </tr>
<%oRS.MoveNext
wend%>
  <tr align="center">
    <td colspan="2" class="txtazulroxo"><strong><a href="javascript:;" class="txtazulroxo" onClick="MM_openBrWindow('add.asp','adicionar','width=325,height=340')">Adicionar Balada</a></strong> </td>
  </tr>
</table>
</body>
</html>