Here is the code snippet:
dim objFSOPIC, objF, objFC
dim f1, w, h, c, strType
Dim objRegExp, filename, foldername, qryid
Set objRegExp = New RegExp
qryid = request.QueryString("qryid")
foldername = "d:\inetpub\wwwroot\ubms1\images\" & qryid
objRegExp.IgnoreCase = True
objRegExp.Global = True
Set objFSOPIC = CreateObject("Scripting.FileSystemObject")
Set objF = objFSOPIC.GetFolder(foldername)
Set objFC = objF.Files
response.write "<table border=""0"" cellpadding=""1"">"
For Each f1 in objFC
if instr(ucase(f1.Name), ".JPG") then
if gfxSpex(f1.Path, w, h, c, strType) = true then
objRegExp.Pattern = ".jpg"
filename = objRegExp.Replace(f1.name, "")
response.write "<tr><td><br><img src=""" & f1.Path & """ " & _
ImageResize(f1.Path, 550, 450) & " border=""1"">"
response.write "<br><b><center>" & filename &
"</center></b></td>"
else
response.write " </td><td align=""center"">bad image</td>"
end if
response.write "</tr>"
end if
Next
Here is the source output:
<table border="0" cellpadding="5"></table><table border="0"
cellpadding="1"><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Amber
Shelley.jpg" width="550" border="1"><br><b><center>Amber
Shelley</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Andrea
Jones.jpg" width="550" border="1"><br><b><center>Andrea
Jones</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Ashley
Kicklighter.jpg" width="550" border="1"><br><b><center>Ashley
Kicklighter</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Carrie
Lauderdale.jpg" width="550" border="1"><br><b><center>Carrie
Lauderdale</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Chao Lin.jpg"
width="550" border="1"><br><b><center>Chao
Lin</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Chris
Seabolt.jpg" width="550" border="1"><br><b><center>Chris
Seabolt</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Danielle
Graham.jpg" width="550" border="1"><br><b><center>Danielle
Graham</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Danielle
Scott.jpg" width="550" border="1"><br><b><center>Danielle
Scott</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Darryl
Smallwood.jpg" width="550" border="1"><br><b><center>Darryl
Smallwood</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\David Crisp.jpg"
width="550" border="1"><br><b><center>David
Crisp</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Dominic
Wolfe.jpg" width="550" border="1"><br><b><center>Dominic
Wolfe</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Donte Davis.jpg"
width="550" border="1"><br><b><center>Donte
Davis</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Ebony
Griffin.jpg" width="550" border="1"><br><b><center>Ebony
Griffin</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Emma Garcia.jpg"
width="550" border="1"><br><b><center>Emma
Garcia</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Heather
Hammett.jpg" width="550" border="1"><br><b><center>Heather
Hammett</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Jennifer
Yang.jpg" width="550" border="1"><br><b><center>Jennifer
Yang</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Jessica
Jones.jpg" width="550" border="1"><br><b><center>Jessica
Jones</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Josh Foster.jpg"
width="550" border="1"><br><b><center>Josh
Foster</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Joshlyn
Coles.jpg" width="550" border="1"><br><b><center>Joshlyn
Coles</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Justina
Hopkins.jpg" width="550" border="1"><br><b><center>Justina
Hopkins</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Katherine
Stokes.jpg" width="550" border="1"><br><b><center>Katherine
Stokes</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Latara
Jones.jpg" width="550" border="1"><br><b><center>Latara
Jones</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Letoria
Draper.jpg" width="550" border="1"><br><b><center>Letoria
Draper</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Machellia
Henderson.jpg" width="550" border="1"><br><b><center>Machellia
Henderson</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Marcus
Luster.jpg" width="550" border="1"><br><b><center>Marcus
Luster</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Marlana
Perry.jpg" width="550" border="1"><br><b><center>Marlana
Perry</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Mary Harris.jpg"
width="550" border="1"><br><b><center>Mary
Harris</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Michael
Green.jpg" width="550" border="1"><br><b><center>Michael
Green</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Nagowski
Yang.jpg" width="550" border="1"><br><b><center>Nagowski
Yang</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Nichole
Nettleton.jpg" width="550" border="1"><br><b><center>Nichole
Nettleton</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Nyasha
Riley.jpg" width="550" border="1"><br><b><center>Nyasha
Riley</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Ramla Osman.jpg"
width="550" border="1"><br><b><center>Ramla
Osman</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Ramon Smith.jpg"
width="550" border="1"><br><b><center>Ramon
Smith</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Ramone.jpg"
width="550"
border="1"><br><b><center>Ramone</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Rashonda
Green.jpg" width="550" border="1"><br><b><center>Rashonda
Green</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Rob Perry.jpg"
width="550" border="1"><br><b><center>Rob
Perry</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Ryan Trow.jpg"
width="550" border="1"><br><b><center>Ryan
Trow</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Shari
Anderson.jpg" width="550" border="1"><br><b><center>Shari
Anderson</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\shawna.jpg"
width="550"
border="1"><br><b><center>shawna</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Stoney
Hooks.jpg" width="550" border="1"><br><b><center>Stoney
Hooks</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Tatianna
Santoro.jpg" width="550" border="1"><br><b><center>Tatianna
Santoro</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Tawny
Versprill.jpg" width="550" border="1"><br><b><center>Tawny
Versprill</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Tori Huger.jpg"
width="550" border="1"><br><b><center>Tori
Huger</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Tori Huger2.JPG"
width="550" border="1"><br><b><center>Tori
Huger2</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Toya
Jackson.jpg" width="550" border="1"><br><b><center>Toya
Jackson</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Travis Best.jpg"
width="550" border="1"><br><b><center>Travis
Best</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Trisha Cook.jpg"
width="550" border="1"><br><b><center>Trisha
Cook</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Tuyet
Nguyen.jpg" width="550" border="1"><br><b><center>Tuyet
Nguyen</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Tyrell
Ellis.jpg" width="550" border="1"><br><b><center>Tyrell
Ellis</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Vanessa
Smalls.jpg" width="550" border="1"><br><b><center>Vanessa
Smalls</center></b></td></tr><tr><td><br><img
src="D:\inetpub\wwwroot\ubms1\images\2k2_ubms\2k2_ indiv\Victoria
Killebrew.jpg" width="550" border="1"><br><b><center>Victoria
Killebrew</center></b></td></tr></table>
Thank you for your help
Wayne
*** Sent via Developersdex
http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!