#!user/local/bin/perl -w
use strict;
use DBI;
use GD;
my ($myobject, $srcimage, $base_path, @games, $game, @subsets,
$subset, $game_name, $subset_name, @images, $image, $width, $height, $alt,
$dbh, $sth, $number, @resultholder, $resultholder);
$base_path = "f:/FFimages/Compleated";
$alt = 'None';
opendir (BASEDIR, "$base_path") or die "Error opening $base_path";
@games = grep {-d "$base_path/$_" && !/\./} readdir(BASEDIR);
closedir (BASEDIR);
foreach $game (@games){
	$game_name = $game;
	opendir (GAMEDIR, "$base_path/$game");
	@subsets = grep {-d "$base_path/$game/$_" && !/\./} readdir (GAMEDIR); #Error Line
	foreach $subset (@subsets){
		$subset_name = $subset;
		opendir (SUBSETDIR, "$base_path/$game/$subset");
		@images = grep {/\.jpg/} readdir (SUBSETDIR);
		foreach $image (@images){
			$myobject = "$base_path/$game/$subset/$image";
			$srcimage = GD::Image -> newFromJpeg($myobject);
			if ($srcimage) {
				($width, $height) = $srcimage -> getBounds();}
			$dbh = DBI -> connect ('dbi:ODBC:read', 'UID', 'PASS') or die "Could not connect to DB";
			$sth = $dbh -> prepare (qq~select ImageNumber from images where SubSet = "$subset_name" order by ImageNumber desc~);
			$sth -> execute ();
			@resultholder = $sth -> fetchrow_array;
			if ($resultholder[0]) {
				$number = $resultholder[0];
			} else {
				$number = 0;
			}
			print $number;
			$sth = $dbh -> prepare (qq~insert into images (Game, SubSet, Image, Width, Height, AltText, ImageNumber) values ('$game_name', '$subset_name', '$image', $width, $height, '$alt', $number)~);
			$sth -> execute();
			$dbh -> disconnect();}}}

Dim intDeltaT ' Declared outside Sub HTMLTimer to preserve values between calls.

Sub HTMLTimer (strParm)
  IF intDeltaT = 0 Then intDeltaT = timT1  '  Setup intDeltaT once.  timT1 = timer() on page load
  intTnow = timer()
  Response.WRite vbCrLf & "<!--" & vbCrLf & _
    FORMATNUMBER(intTnow-timT1,  4) & " sec from page top. " & _
    FORMATNUMBER(intTnow-intDeltaT,  4) & " sec from last check. | " & _
    strParm & vbCrLf & " -->"
  intDeltaT = intTnow
End Sub

quote:

---

Originally posted by Merkin

How does that help with sql syntax Sam ?

---