Asp upload width og height

Hej jeg har et lille upload script som uploader billedet til både mappe og db, men hvordan får jeg den til også at finde width og height på billedet og uploade dem i db sammen med billedenavn?

her er mit script:

<%
dim strAction
strAction = request("action")

select case strAction
  case "upload"
    UploadFile
  case else
    ShowForm
end select


sub ShowForm
  %>
  <form enctype="multipart/form-data" action="img.asp?action=upload" method=post>
  <table width="350" border="0" align="center" cellpadding="4" cellspacing="4">
    <tr>
     
      <td width="94%">Billede<br>
      <input  name="file" type="file" size="40" /></td>
    </tr>
    <tr>
     
      <td><input name="submit" type="submit" value="Upload" /></td>
    </tr>
  </table>
 
  </form>
  <%
end sub


sub UploadFile
  dim intPosMIMEHeader, intPosFileDataStart
  dim intPosFileNameStart, intPosFileNameEnd
  dim intPosFileDataEnd, intDataSize
  dim binData, binFileData, binFileName, binStart
  dim strFileName
  dim objFSO, objFile

  intDataSize = request.totalbytes
  binData = request.binaryread(intDataSize)

  intPosMIMEHeader = instrB(binData,chrB(13) & chrB(10)) - 1
  intPosFileDataStart = instrB(binData, chrB(13) & chrB(10) & chrB(13) & chrB(10)) + 4
  intPosFileNameStart = instrB(binData,cstrB("filename=")) + 10 
  intPosFileNameEnd = instrB(intPosFileNameStart,binData,chrB(34))
  binStart = midB(binData,1,intPosMimeHeader)
  binFileName = midB(binData,intPosFileNameStart, _
                    intPosFileNameEnd - intPosFileNameStart)
  intPosFileDataEnd = instrB(intPosMIMEHeader, binData, binStart) - 2

  strFileName = bin2str(binFileName)
  strFileName = right(strFileName, len(strFileName) - instrrev(strFileName,"\"))

  set objFSO = server.createobject("Scripting.FileSystemObject")
  set objFile = objFSO.CreatetextFile(server.mappath("img\" & Map & "\" & strFileName), _
                                      true, false)
  objFile.write bin2str(midB(binData, intPosFileDataStart, _
                        intPosFileDataEnd - intPosFileDataStart))
 

  set rs = server.CreateObject("ADODB.Recordset")
  rs.Open "billed ",  Conn, 2, 2
     
   
    rs.addnew
       
            rs("img_navn") = strFileName
                       
            rs.update
   
  objFile.close
  set objFile = Nothing
  set objFSO = Nothing
end sub


function bin2str(byref binS)
  ' omdanner en binær følge til en tekststreng
  dim i, strRes
  for i = 1 to lenB(binS)
    strRes = strRes & chr(ascB(midB(binS, i, 1)))
  next
  bin2str = strRes
end function


function cstrB(strS)
  ' omdanner en tekststreng til en binær følge
  dim i, binRes
  for i = 1 to len(strS)
    binRes = binRes & chrB(asc(mid(strS,i,1)))
  next
  cstrB = binRes
end function

%>