Aqui voce tem um exemplo de redimensionamento que eu fiz para uma Loja virtual, no exemplo a largura não pode ser superior a 80: caminho = ".\produtos"
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open trim(server.mappath(caminho)) & "\" & mid(trim(nome_foto),2,100)
largura = Jpeg.OriginalWidth
if largura > 80 then
indice = largura/80
Jpeg.Width = Jpeg.OriginalWidth / indice
Jpeg.Height = Jpeg.OriginalHeight / indice
end if
Jpeg.Save trim(server.mappath(caminho)) & "\mini_" & mid(trim(nome_foto),2,100)
Jpeg.close