"
end if
ctr=ctr+1
'*************Start of Code to calculate height and width of image*************
img = rscat("image1")
Set objFSO = CreateObject("Scripting.FileSystemObject")
path = server.MapPath("products.asp")
path1 = left(path,InStr(path,"\html_en\products.asp"))
Set objF = objFSO.GetFolder(path1 &"media\catimg\")
Set objFC = objF.Files
For Each f1 in objFC
if f1.Name = img then
fname = f1.name
fpath = f1.path
end if
next
if not (fpath = "") then
strWH=gfxSpex(fPath)
arrwh=Split(strWH,",")
width=int(arrwh(0))
height=int(arrwh(1))
if (width > 165) then
width = 165
end if
end if
'*************End of Code to calculate height and width of image*************
%>

"
end if
ctr1=ctr1+1
'*************Start of Code to calculate height and width of image*************
img = rscat("image1")
Set objFSO = CreateObject("Scripting.FileSystemObject")
path = server.MapPath("products.asp")
path1 = left(path,InStr(path,"\html_en\products.asp"))
Set objF = objFSO.GetFolder(path1 &"media\catimg\")
Set objFC = objF.Files
For Each f1 in objFC
if f1.Name = img then
fname = f1.name
fpath = f1.path
end if
next
if not (fpath = "") then
strWH=gfxSpex(fPath)
arrwh=Split(strWH,",")
width=int(arrwh(0))
height=int(arrwh(1))
if (width > 165) then
width = 165
end if
end if
'*************End of Code to calculate height and width of image*************
%>

"
end if
ctr2=ctr2+1
'*************Start of Code to calculate height and width of image*************
img = rsestmt("imagefile")
Set objFSO = CreateObject("Scripting.FileSystemObject")
path = server.MapPath("products.asp")
path1 = left(path,InStr(path,"\html_en\products.asp"))
Set objF = objFSO.GetFolder(path1 &"media\products\")
Set objFC = objF.Files
For Each f1 in objFC
if f1.Name = img then
fname = f1.name
fpath = f1.path
end if
next
if not (fpath = "") then
strWH=gfxSpex(fPath)
arrwh=Split(strWH,",")
width=int(arrwh(0))
height=int(arrwh(1))
if (width > 165) then
width = 165
end if
end if
'*************End of Code to calculate height and width of image*************
%>