maus gostaria de fazer o seguinte.
ao inves de ficar uma embaixo do outro gostaria que ficasse um do lado do aoutro
entenderam.
como fasso.
algum pode me ajudar porfavor.
<script LANGUAGE="JavaScript"> <!-- Begin function protect(e) { alert("É proibida a cópia dessa imagem \nTodos os direitos reservados a AmoreiraFest \nCaso queira comprar está foto entre em contato."); return false; } function trap() { if(document.images) for(i=0;i<document.images.length;i++) document.oncontextmenu = protect; } // End --> </SCRIPT> <%' Now to the Runtime code: Dim strPath 'Path of directory to show Dim objFSO 'FileSystemObject variable Dim objFolder 'Folder variable Dim objItem 'Variable used to loop through the contents of the folder dim tmp ' You could just as easily read this from some sort of input, but I don't ' need you guys and gals roaming around our server so I've hard coded it to ' a directory I set up to illustrate the sample. ' NOTE: As currently implemented, this needs to end with the / %> <!--#include file="includes/cfg.asp" --> <% dim ActDir,MyFile MyFile=Split(Request.ServerVariables("PATH_INFO"),"/") galname=MyFile(UBound(MyFile)-1) ActDir= "/" & galname & "/" strPath = ActDir ' Create our FSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' Get a handle on our folder Set objFolder = objFSO.GetFolder(Server.MapPath(strPath)) ' Show a little description line and the title row of our table %> <HTML><HEAD><TITLE><% =title %></TITLE> <!--#include file="./includes/header.asp" --> <LINK REL=stylesheet HREF="./includes/gal.css" TYPE="text/css" Title=style2> </HEAD> <!--#include file="./includes/bodysetup.asp" --> <br> <BR> <TABLE BORDER="0" BORDERCOLOR="green" CELLSPACING="0" CELLPADDING="20" width=70% align=center class=box> <TR BGCOLOR="<% =hdrclr %>" class=box> <TD colspan=2 id=tablecontainer><FONT COLOR="#000000"><B><span id=galtitle>Coberturas</span></B></FONT><br><FONT COLOR="#FFFFFF"> <p align=right><B><span id=galclick><font size="-3" face="Verdana, Arial, Helvetica, sans-serif">Clique nos eventos para ver as fotos</font></span></B></p> </FONT></td> </TR><tr BGCOLOR=<% =cellclr %>><td colspan=2> </td></tr> <% For Each objItem In objFolder.SubFolders ' Deal with the stupid VTI's that keep giving our visitors 404's If InStr(1, objItem, " ", 1) Then tmp = replace(objitem.name , " " , "_") if objitem.name <> tmp then objitem.name = tmp end if end if If InStr(1, objItem, "_hidden_", 1) = 0 and InStr(1, objItem, "includes", 1) = 0 and InStr(1, objItem, "_vti", 1) = 0Then %> <TR BGCOLOR=<% =cellclr %>> <TD ALIGN="center" colspan=2><span class=galtitle> <A HREF="<%= strPath & objItem.Name %>"><img src="<% =objItem.Name%>/inicio.jpg" width=200></a> <br> <A HREF="<%= strPath & objItem.Name %>"><%= replace(objItem.Name, "_", " ") %></A></span></TD> </TR> <% End If Next 'objItem ' All done! Kill off our object variables. Set objItem = Nothing Set objFolder = Nothing Set objFSO = Nothing %> <tr BGCOLOR=<% =cellclr %>><td><font size=-1><a href="<% =linkurl %>"><% =linktext %></a>     <a href="./includes/admin/">Admin</a></font> </td> <td align=right> </td> </tr> </TABLE> </body></html>