<% 'object initialisation Dim oExiv2 Set oExiv2 = Server.CreateObject("exiv2com.Exif") 'filename Dim strFileName strFileName = Server.MapPath("./") & "\sample.jpg" 'GetExif method Response.Write "GetExif method
" Response.Write oExiv2.GetExif(strFileName, "Exif.Image.Model") & "

" 'GetExifInterpreted method Response.Write "GetExifInterpreted method
" Response.Write Replace(oExiv2.GetExifInterpreted(strFileName), vbLf, "
") %>