Upload com AspJpeg

Pessoal, to a 2 dias na guerra com um upload.

peguei um site para corrigir alguns erros e reformular algumas partes.

Nele possui um tipo de upload e nele o arquivo é renomeado e salvo no bd, at´ai tudo bem.

Porem me parece uma parte que eu não sei o que significa, parece que ele coia do local e manda para outras pastas, alguem pode me ajudar ?

Dim PastadeDestino, Pasta,cat_id,cat_id2,cat_id1

cat_id = Request.QueryString("folder")

cat_id=Replace(cat_id, "DOMINIO", "", 1, -1, 1)
cat_id=Replace(cat_id, "admin", "", 1, -1, 1)
cat_id=Replace(cat_id, "httpdocs", "", 1, -1, 1)
cat_id=Replace(cat_id, "/", "", 1, -1, 1)

dim vetor
vetor=array()
vetor=cat_id
vetor = Split(vetor,"-")
cat_id=vetor(0)
cat_id2=vetor(1)

if cat_id="S" then
Pasta = "admin/fotos/g"
else
Pasta = "admin/fotos2"
end if

PastadeDestino = Server.mapPath(Pasta)

Dim Form: Set Form = New ASPForm %>
<!--#INCLUDE FILE="./upload.asp"-->
<%

Server.ScriptTimeout = 2000
Form.SizeLimit = &HA00000

If Form.State = 0 Then
Dim File, NomedoArquivo,strFN,fso,f1
For Each File In Form.Files.Items
If Len(File.FileName) > 0 Then
NomedoArquivo = ArquivoNomeUnico(DecodeUTF8(File.FileName), PastadeDestino)

File.SaveAs PastadeDestino & "\" & DecodeUTF8(NomedoArquivo)

set con = Server.CreateObject("ADODB.Connection")
con.ConnectionString = "Driver={SQL Server};Server=MEUSERVIDOR;Database=MEUBANCO;Uid=MEUUSUARIO;Pwd=MINHASENHA;"
con.open

dim busca_user
set busca_user = con.execute("select max(id) as novoid from foto3")

'nome = "imagem"&day(now)&"_"&hour(now)&"_"&minute(now)&"_"&second(now)&".jpg"
nome="imagem_"&busca_user("novoid")+1&".jpg"

if cat_id="S" then

renomeiafoto "admin/fotos/g/"&DecodeUTF8(NomedoArquivo),"admin/fotos/g/"&nome
'não sei o que estas 3 linhas faz
AspJpeg "admin/fotos/g/","admin/fotos/g/",nome,1,300,600,100,130
AspJpeg2 "admin/fotos/g/","admin/fotos/",nome,1,300,338,100,130
AspJpeg2 "admin/fotos/g/","admin/fotos/p/",nome,1,100,95,100,130

con.Execute("INSERT INTO foto3(id,foto,legenda,anuncio_id,dt_cad,disp,ordena,numera) VALUES ('"&busca_user("novoid")+1&"','"&nome&"','SEM LEGENDA',"&cat_id2&",'"&Now&"','"&cat_id&"',1,1)")

 else

 renomeiafoto "admin/fotos2/"&DecodeUTF8(NomedoArquivo),"admin/fotos2/"&nome

 if cat_id="L" then

AspJpeg2 "admin/fotos2/","admin/fotos2/",nome,2,100,600,100,130 else AspJpeg2 "admin/fotos2/","admin/fotos2/",nome,1,450,338,100,130 end if

 set busca_user = con.execute("select max(id) as novoid from foto")
con.Execute("INSERT INTO foto(id,foto,legenda,anuncio_id,dt_cad,disp,ordena,tipo) VALUES('"&busca_user("novoid")+1&"','"&nome&"','SEM LEGENDA',"&cat_id2&",'"&Now&"','S',1,'"&cat_id&"')")

 end if

 con.Close
 set con = Nothing

 Response.Write "<br>Arquivo salvo em <b>" & PastadeDestino & "</b> com o nome de <b>" & NomedoArquivo & "</b>"

 End If

a parte que eu não sei o que significa é esta.

'não sei o que estas 3 linhas faz
AspJpeg "admin/fotos/g/","admin/fotos/g/",nome,1,300,600,100,130
AspJpeg2 "admin/fotos/g/","admin/fotos/",nome,1,300,338,100,130
AspJpeg2 "admin/fotos/g/","admin/fotos/p/",nome,1,100,95,100,130