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.QuerySt ring("qryid")
foldername = "d:\inetpub\www root\ubms1\imag es\" & qryid
objRegExp.Ignor eCase = True
objRegExp.Globa l = True
Set objFSOPIC = CreateObject("S cripting.FileSy stemObject")
Set objF = objFSOPIC.GetFo lder(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.Patte rn = ".jpg"
filename = objRegExp.Repla ce(f1.name, "")
response.write "<tr><td><br><i mg 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><i mg
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Ambe r
Shelley.jpg" width="550" border="1"><br> <b><center>Ambe r
Shelley</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Andr ea
Jones.jpg" width="550" border="1"><br> <b><center>Andr ea
Jones</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Ashl ey
Kicklighter.jpg " width="550" border="1"><br> <b><center>Ashl ey
Kicklighter</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Carr ie
Lauderdale.jpg" width="550" border="1"><br> <b><center>Carr ie
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>Ch ao
Lin</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Chri s
Seabolt.jpg" width="550" border="1"><br> <b><center>Chri s
Seabolt</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Dani elle
Graham.jpg" width="550" border="1"><br> <b><center>Dani elle
Graham</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Dani elle
Scott.jpg" width="550" border="1"><br> <b><center>Dani elle
Scott</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Darr yl
Smallwood.jpg" width="550" border="1"><br> <b><center>Darr yl
Smallwood</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Davi d Crisp.jpg"
width="550" border="1"><br> <b><center>Davi d
Crisp</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Domi nic
Wolfe.jpg" width="550" border="1"><br> <b><center>Domi nic
Wolfe</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Dont e Davis.jpg"
width="550" border="1"><br> <b><center>Dont e
Davis</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Ebon y
Griffin.jpg" width="550" border="1"><br> <b><center>Ebon y
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>Em ma
Garcia</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Heat her
Hammett.jpg" width="550" border="1"><br> <b><center>Heat her
Hammett</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Jenn ifer
Yang.jpg" width="550" border="1"><br> <b><center>Jenn ifer
Yang</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Jess ica
Jones.jpg" width="550" border="1"><br> <b><center>Jess ica
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>Jo sh
Foster</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Josh lyn
Coles.jpg" width="550" border="1"><br> <b><center>Josh lyn
Coles</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Just ina
Hopkins.jpg" width="550" border="1"><br> <b><center>Just ina
Hopkins</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Kath erine
Stokes.jpg" width="550" border="1"><br> <b><center>Kath erine
Stokes</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Lata ra
Jones.jpg" width="550" border="1"><br> <b><center>Lata ra
Jones</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Leto ria
Draper.jpg" width="550" border="1"><br> <b><center>Leto ria
Draper</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Mach ellia
Henderson.jpg" width="550" border="1"><br> <b><center>Mach ellia
Henderson</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Marc us
Luster.jpg" width="550" border="1"><br> <b><center>Marc us
Luster</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Marl ana
Perry.jpg" width="550" border="1"><br> <b><center>Marl ana
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>Ma ry
Harris</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Mich ael
Green.jpg" width="550" border="1"><br> <b><center>Mich ael
Green</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Nago wski
Yang.jpg" width="550" border="1"><br> <b><center>Nago wski
Yang</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Nich ole
Nettleton.jpg" width="550" border="1"><br> <b><center>Nich ole
Nettleton</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Nyas ha
Riley.jpg" width="550" border="1"><br> <b><center>Nyas ha
Riley</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Raml a Osman.jpg"
width="550" border="1"><br> <b><center>Raml a
Osman</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Ramo n Smith.jpg"
width="550" border="1"><br> <b><center>Ramo n
Smith</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Ramo ne.jpg"
width="550"
border="1"><br> <b><center>Ramo ne</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Rash onda
Green.jpg" width="550" border="1"><br> <b><center>Rash onda
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>Ro b
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>Ry an
Trow</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Shar i
Anderson.jpg" width="550" border="1"><br> <b><center>Shar i
Anderson</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\shaw na.jpg"
width="550"
border="1"><br> <b><center>shaw na</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Ston ey
Hooks.jpg" width="550" border="1"><br> <b><center>Ston ey
Hooks</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Tati anna
Santoro.jpg" width="550" border="1"><br> <b><center>Tati anna
Santoro</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Tawn y
Versprill.jpg" width="550" border="1"><br> <b><center>Tawn y
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>To ri
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>To ri
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>To ya
Jackson</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Trav is Best.jpg"
width="550" border="1"><br> <b><center>Trav is
Best</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Tris ha Cook.jpg"
width="550" border="1"><br> <b><center>Tris ha
Cook</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Tuye t
Nguyen.jpg" width="550" border="1"><br> <b><center>Tuye t
Nguyen</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Tyre ll
Ellis.jpg" width="550" border="1"><br> <b><center>Tyre ll
Ellis</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Vane ssa
Smalls.jpg" width="550" border="1"><br> <b><center>Vane ssa
Smalls</center></b></td></tr><tr><td><br> <img
src="D:\inetpub \wwwroot\ubms1\ images\2k2_ubms \2k2_indiv\Vict oria
Killebrew.jpg" width="550" border="1"><br> <b><center>Vict oria
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!