Knocking on the right door?

madHatter1 · Jun 28, 2003

Hello

Several weeks ago a kind member here offered the public some ASP script on how to contruct a photo gallery. I have been unable to contact him since, so I expect he has found pastures new.

Anyway, I am hoping to develop this script. Basically, it is a photo gallery with the following:

Image 2 of 4

PHOTO

Previous | Next

the Image 2 of 4 is not a link, but it does move with the sequence of photos.

On the other hand, Previous | Next is a link, enabling the visitor to move back or forward to the next image.

What I wish to o is to move the Previous | Next ABOVE the image and, most importantly, to have the text associated with the image, for instance,

http://www.kodak.com

BELOW it and which would also be a hyperlink for the visitor to click on.

Photo 2 would have a different link, for example,

http://www.corbis.com

underneath it....and so on, so that as the visitor clicks on Previos | Next the photo displays its related text (as a Web address).

What I am asking here is this: am I right in thinking that this could be done as:

If photo1= photo 1
then photo 1 =

http://www.kodak.com

or

if photo2 = photo2
then photo2 =

http://www.corbis.com

etc

end if

I would be grateful for any advice here.

Here is the original script:

<%Option Explicit%>
<%Response.Buffer = "True"%>

<HTML>
<HEAD>

<BODY>
<%

Dim objFSO
Dim objFolder
Dim objFile
Dim Path
Dim Series
Dim ImageCount
Dim ImageNumber
Dim NextImage
Dim PreviousImage
Dim FileExtention
Dim ErrorPage

ImageCount = 0

Set Path = Request.QueryString("Path&quot

Set Series = Request.QueryString("Series&quot

If Path = "" OR Series = "" Then
Response.Redirect(ErrorPage)
End If

If ImageCount = 0 Then
Set objFSO = CreateObject("Scripting.FileSystemObject&quot

Set objFolder = objFSO.GetFolder(Server.MapPath(Path & "/" & Series))
For Each objFile In objFolder.Files
FileExtention = LCase(Right((objFile.Name), 4))
If FileExtention = ".jpg" Then
ImageCount = Cint(ImageCount) + 1
End If
Next

Set objFSO = Nothing
Set objFolder = Nothing
Set objFile = Nothing
End If

ImageNumber = Cint(Request.QueryString("ImageNumber&quot

)
If ImageNumber < 1 Then
ImageNumber = 1
ElseIf ImageNumber > ImageCount Then
ImageNumber = ImageCount
End If

'This function generates the "previous" & "next" buttons
Function Buttons(ImageCount, ImageNumber)
If ImageNumber = 1 Then
NextImage = "<A HREF=""gallery1.asp?Path=" & Path & "&Series=" & Series & "&ImageNumber=" & (ImageNumber + 1) & """>next</A>"
PreviousImage = "previous"
ElseIf ImageNumber > 1 AND ImageNumber < ImageCount Then
NextImage = "<A HREF=""gallery1.asp?Path=" & Path & "&Series=" & Series & "&ImageNumber=" & (ImageNumber + 1) & """>next</A>"
PreviousImage = "<A HREF=""gallery1.asp?Path=" & Path & "&Series=" & Series & "&ImageNumber=" & (ImageNumber - 1) & """>previous</A>"
Else
NextImage = "next"
PreviousImage = "<A HREF=""gallery1.asp?Path=" & Path & "&Series=" & Series & "&ImageNumber=" & (ImageNumber - 1) & """>previous</A>"
End If
Buttons = PreviousImage & " | " & NextImage
End Function
%>

<TABLE WIDTH="300">
<TR>
<TD WIDTH="300" ALIGN="Right">
<%
'Displays the current image number, and total number of images
Response.Write("<H1>Image " & ImageNumber & " of " & ImageCount & "</H1><BR>&quot

%>
</TD>
</TR>
<TR>
<TD WIDTH="300" ALIGN="Right">
<%
'Displays the current image.
Response.Write("<IMG SRC=""" & Path & "/" & Series & "/" & Series & "_" & ImageNumber & ".jpg" & """>&quot

%>
</TD>
</TR>
<TR>
<TD WIDTH="300" ALIGN="Right">
<%=Buttons(ImageCount, ImageNumber)%>
</TD>
</TR>

</TABLE>

</BODY>
</HTML>

Many thanks again - I know this is a tall order!

Hatter

corneI · Jun 30, 2003

Hi
So the format you want would look like:
Previous | Next

PHOTO

Image 2 of 4

<CODE>
<TABLE WIDTH="300">
<TR>
<TD WIDTH="300" ALIGN="Right">
<%=Buttons(ImageCount, ImageNumber)%>
</TD>
</TR>
<TR>
<TD WIDTH="300" ALIGN="Right">
<%
'Displays the current image.
Response.Write("<IMG SRC=""" & Path & "/" & Series & "/" & Series & "_" & ImageNumber & ".jpg" & """>&quot

%>
</TD>
</TR>
<BR>
<%
dim str_link
dim str_name
if ImageNumber = 1 then
str_link = "

http://www.kodak.com"

else
........
end if
%>
<P><A href="

http://"<%str_link%>><%str_link%><</A></P>

<TR>

</TR>
<TR>
<TD WIDTH="300" ALIGN="Right">
<%
'Displays the current image number, and total number of images
Response.Write("<H1>Image " & ImageNumber & " of " & ImageCount & "</H1><BR>&quot

%>
</TD>
</TR>

</TABLE>

</BODY>
</HTML>
</CODE>

Only problem with the above is that you must create an If for every picture.The only why I can think of to avoid the static programming is to use a database to hold the links name.

madHatter1 · Jun 30, 2003

Hello CorenI

Wow! You've given me plenty of food for thought!
Let me experiment a little with what you suggest and I'll be back soon!

Much appreciated.

Hatter

ChrisHirst · Jun 30, 2003

Was this the post you were thinking of?

thread770-515354

this is the link to the original gallery

http://aspfree.com/authors/allenm/Default.asp

And you can see the code running here (somewhat modified)

http://www.itsdownright.com

or here in a less altered state

http://www.hamptonroadsc.co.uk/gallery.asp?P_Id=nightout

the ASP slideshow code is a seperate setup from the gallery BTW

Chris.

Indifference will be the downfall of mankind, but who cares?

madHatter1 · Jul 2, 2003

Hello Chris

Yes, all those links look interesting, too!

Hatter

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Knocking on the right door?

madHatter1

Technical User

corneI

Programmer

madHatter1

Technical User

ChrisHirst

IS-IT--Management

madHatter1

Technical User

Similar threads

Part and Inventory Search

Sponsor