EXIF Information ASP version with JPEG files (5)

Hextodec (Exiftemp (Offset + 2) + ((i-1) * 12) + 11)
For j = 0 to Ifddirectory (k) (ifd_idx_components)-1
Ifddirectory (k) (Ifd_idx_value) = Ifddirectory (k) (Ifd_idx_value) & Chr (exiftemp (Offset_to_tiff + ifddirectory (k) ( Ifd_idx_offsettovalue) + j)
Next
End If

Case M_short, M_sshort
Bytespercomponent = 2
If Ifddirectory (k) (ifd_idx_components) * Bytespercomponent <= 4 Then
Ifddirectory (k) (Ifd_idx_value) = _
Hextodec (Exiftemp (Offset + 2) + ((i-1) * 12) + 8) * 256 + _
Hextodec (Exiftemp (Offset + 2) + ((i-1) * 12) + 9)) + _
Hextodec (Exiftemp (Offset + 2) + ((i-1) * 12) + 10) * 256 + _
Hextodec (Exiftemp (Offset + 2) + ((i-1) * 12) + 11)
Else
Ifddirectory (k) (Ifd_idx_offsettovalue) = _
Hextodec (Exiftemp (Offset + 2) + ((i-1) * 12) + 8) * 256 * 256 * 256 + _
Hextodec (Exiftemp (Offset + 2) + ((i-1) * 12) + 9) * 256 * 256 + _
Hextodec (Exiftemp (Offset + 2) + ((i-1) * 12) + 10) * 256 + _
Hextodec (Exiftemp (Offset + 2) + ((i-1) * 12) + 11)
for j = ifddirectory (k) (ifd_idx_components)-1 to 0 Step-1
Ifddirectory (k) (Ifd_idx_value) = Ifddirectory (k) (Ifd_idx_value) & Exiftemp (Offset_to_tiff + ifddirectory (k) (IFD_ Idx_offsettovalue) + j)
Next
End If

Case M_long, M_slong
Bytespercomponent = 4
If Ifddirectory (k) (ifd_idx_components) * Bytespercomponent <= 4 Then
Ifddirectory (k) (Ifd_idx_value) = _
Hextodec (Exiftemp (Offset + 2) + ((i-1) * 12) + 8) * 256 * 256 * 256 + _
Hextodec (Exiftemp (Offset + 2) + ((i-1) * 12) + 9) * 256 * 256 + _
Hextodec (Exiftemp (Offset + 2) + ((i-1) * 12) + 10) * 256 + _
Hextodec (Exiftemp (Offset + 2) + ((i-1) * 12) + 11)
Else
Ifddirectory (k) (Ifd_idx_offsettovalue) = _
Hextodec (Exiftemp (Offset + 2) + ((i-1) * 12) + 8) * 256 * 256 * 256 + _
Hextodec (Exiftemp (Offset + 2) + ((i-1) * 12) + 9) * 256 * 256 + _
Hextodec (Exiftemp (Offset + 2) + ((i-1) * 12) + 10) * 256 + _
Hextodec (Exiftemp (Offset + 2) + ((i-1) * 12) + 11)
For j = 0 to Ifddirectory (k) (ifd_idx_components)-1
Ifddirectory (k) (Ifd_idx_value) = Ifddirectory (k) (Ifd_idx_value) & Exiftemp (Offset_to_tiff + ifddirectory (k) (IFD_ Idx_offsettovalue) + j)
Next
End If

Case M_rational, m_srational
Bytespercomponent = 8
Ifddirectory (k) (Ifd_idx_offsettovalue) = _
Hextodec (Exiftemp (Offset + 2) + ((i-1) * 12) + 8) * 256 * 256 * 256 + _
Hextodec (Exiftemp (Offset + 2) + ((i-1) * 12) + 9) * 256 * 256 + _
Hextodec (Exiftemp (Offset + 2) + ((i-1) * 12) + 10) * 256 + _
Hextodec (Exiftemp (Offset + 2) + ((i-1) * 12) + 11)
Ifddirectory (k) (Ifd_idx_value) = _
Hextodec (exiftemp (Offset_to_tiff + ifddirectory (k) (Ifd_idx_offsettovalue) + 0)) * 256 * 256 * 256 + _
Hextodec (exiftemp (Offset_to_tiff + ifddirectory (k) (Ifd_idx_offsettovalue) + 1)) * 256 * 256 + _
Hextodec (exiftemp (Offset_to_tiff + ifddirectory (k) (Ifd_idx_offsettovalue) + 2)) * 256 + _
Hextodec (exiftemp (Offset_to_tiff + ifddirectory (k) (Ifd_idx_offsettovalue) + 3)) & _
"/" & _
Hextodec (exiftemp (Offset_to_tiff + ifddirectory (k) (Ifd_idx_offsettovalue) + 4)) * 256 * 256 * 256 + _
Hextodec (exiftemp (Offset_to_tiff + ifddirectory (k) (Ifd_idx_offsettovalue)