Merhaba aşağıdaki kod ile başka sunucudaki resmi kendi sunucuma çekebiliyorum ama boyutlandırma yapamıyorum daha önce asp jpg ile boyutlandırma yapıyordum ama sunucu değişikliği yaptım şuan ki sunucuda asp jpg bileşeni yüklü olmadığı için boyutlandırma yapamıyorum aşağıdaki koda ek olarak boyutlandırma yapılabilir mi acaba yardımcı olabilir misiniz?

arrUzantilar = Array("jpg", "JPG", "jpeg", "JPEG", "gif", "GIF", "png", "PNG")
strAdres = Trim(Request.Form("resim"))
If strAdres = "" Then

Else
blnGecerli_Uzanti = False
For i = 0 To UBound(arrUzantilar)
If arrUzantilar(i) = Right(strAdres, Len(arrUzantilar(i))) Then
blnGecerli_Uzanti = True
strGecerli_Uzanti = arrUzantilar(i)
Exit For
End If
Next
If blnGecerli_Uzanti = False Then

Else
strDosya_Adi = seo(Request.form("baslik"))

strDosya = ""&strDosya_Adi&"."&strGecerli_Uzanti&""
Set XmlHttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
XmlHttp.Open "GET", strAdres, false
XmlHttp.Send
dosyam = XmlHttp.ResponseBody
'Response.Write XmlHttp.Status
Set XmlHttp = Nothing
Set BinaryStream = Server.CreateObject("ADODB.Stream")
BinaryStream.Type = 1
BinaryStream.Open
BinaryStream.Write dosyam
BinaryStream.SaveToFile Server.MapPath("/img/"&strDosya&""), 2
Set BinaryStream = Nothing
        
    
End If
End If
resim=siteurl&"/img/"&strDosya