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!

  • Congratulations biv343 on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

How do I got about creating something like this?

Status
Not open for further replies.

cvasquez

MIS
Feb 28, 2001
88
US
I would like to create a weekly circular on a page with thumb images and when you click on them I would like to show the full image.
Here is an example of a website that is already doping it.


Please let me know where I could find some code to do this or a program that we can purchase for this process.

Thanks.

Carlo
cvasquez@optonline.net
 
This code reads the contents of the folder its located in and displays all *.jpg images located in the same directory as a thumbnail in a table with a link to the fullsize image.


<TABLE WIDTH=&quot;700&quot; CELLPADDING=&quot;3&quot; CELLSPACING=&quot;2&quot; BORDER=&quot;0&quot;>
<TR>
<%
rowctr = 0
for each objImg in objFSO.GetFolder(server.MapPath(&quot;.\.&quot;)).Files
if rowctr = 5 then
Response.Write (&quot;</TR>&quot; & vbCR & &quot;<TR>&quot; & vbCR)
rowctr = 0
end if
if UCase(right(objImg.name, 3)) = &quot;JPG&quot; then

%>
<TD><A HREF=&quot;<%=objImg.name%>&quot;><IMG SRC=&quot;<%=objImg.name%>&quot; HEIGHT=&quot;120&quot; WIDTH=&quot;85&quot; BORDER=&quot;0&quot;></A></TD>
<%
end if
rowctr = rowctr + 1
next
%>
</TABLE>
 
Wow...by the look of the code it looks like this is what I am looking for.

Thanks for the info and I will let you know if it worked.


Thanks again;

Carlo
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top