Moved Servers, need to convert Code

<% @ Language=VBScript %>
<% 'Option Explicit %>
<% Response.Buffer = True %>
<% Server.ScriptTimeout = 90000 %>
<% Response.Expires = 0 %>


<%
strPathEntire2 = "c:\websites\171939tg9\_Upload\MemberPhotos\"
strPathEntire = "/_Upload/MemberPhotos/"
Set Upload = Server.CreateObject("Persits.Upload")
strAutoNumber = Request.Querystring("MemberID")
strName = Request.QueryString("Name")

'DELETE IMAGES
If Request.Querystring("Delete") > "" Then
	strDeleteFile1 = Request.Querystring("Delete") &"-"& strPicID &"s.jpg"
	strDeleteFile2 = Request.Querystring("Delete") &"-"& strPicID &".jpg"
	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	objFSO.DeleteFile strPathEntire2 & strDeleteFile1, False
	objFSO.DeleteFile strPathEntire2 & strDeleteFile2, False
	Set objFSO = Nothing
	Response.Redirect "../add-image.asp?MemberID="& strAutoNumber & "&Name=" & strName
End If

'UPLOAD IMAGE
Upload.OverwriteFiles = False 
Count = Upload.SaveVirtual(strPathEntire)
Set File = Upload.Files("image")
NewName = strAutoNumber & ".jpg"
For Each File in Upload.Files 
	File.CopyVirtual strPathEntire & NewName
	File.Delete 
Next 


'RESIZE THUMBNAIL
Set Image = Server.CreateObject("AspImage.Image") 
Image.LoadImage strPathEntire2 & NewName 
Image.FileName = strPathEntire2 & Replace(NewName,".jpg","s.jpg")
Image.ImageFormat = 1 
Image.JPEGQuality = 60 
divX = Image.MaxX / 80
intXsize = Image.MaxX / divx
intYSize = Image.MaxY / divx
Image.ResizeR intXSize,intYSize
IMAGE.SaveImage


'RESIZE IMAGE AND SAVE OVER ORIGINAL
Set Image = Server.CreateObject("AspImage.Image") 
Image.LoadImage strPathEntire2 & NewName 
Image.FileName = strPathEntire2 & NewName
Image.ImageFormat = 1 
Image.JPEGQuality = 90
divX = Image.MaxX / 270
intXsize = Image.MaxX / divx
intYSize = Image.MaxY / divx
Image.ResizeR intXSize,intYSize
IMAGE.SaveImage

Response.Redirect "../add-image.asp?MemberID="& strAutoNumber & "&Name=" & strName & "&Msg=Uploaded"
%>