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>
