FreeASPUpload modificar nomes

pessoal estou com um pequeno problema, utilizo de um upload sem componentes chamado FreeASPUpload.

o problema e o seguinte, preciso renomear as fotos antes de fazer o upload pois caso alguem adicione fotos diferentes com o mesmo nome não aconteça de substituir a foto antiga.

outra coisa que precisava saber é como restringir o envio a apenas arquivos de imagem tipo jpg, gif, png e também como restringir o tamanho dos arquivos exemplo 1MB?

vou postar o codigo que eu uso e se alguem puder me ajudar eu agradeço.

<!-- #include file="freeaspupload.asp" -->
<!-- #include file = "seg_con_banco.asp" -->

<%
Dim uploadsDirVar
uploadsDirVar = "caminho das fotos"
%>

<%
npid = request.QueryString("npid")
function SaveFiles
Dim Upload, fileName, fileSize, ks, i, fileKey

Set Upload = New FreeASPUpload
Upload.Save(uploadsDirVar)

' If something fails inside the script, but the exception is handled
If Err.Number<>0 then Exit function

SaveFiles = ""
ks = Upload.UploadedFiles.keys

if (UBound(ks) <> -1) then
imagem = "ImagensPerfil/" & Upload.UploadedFiles("procurar").FileName
End If

SQLup = "UPDATE tab_usuario_cadastro SET foto_perfil = '" & imagem & "' WHERE id_usuario ="& npid &""
'response.Write SQLup
conn.Execute(SQLup)

'SQL="UPDATE tab_usuario_cadastro SET foto_perfil='"& imagem &"' id_usuario ="& request.QueryString("npid") &""
'conexao.Execute(SQL)
'conn.Execute(SQL)

end function

response.write SaveFiles()

Response.Write("<meta http-equiv='refresh' content='0;URL=updatefoto.asp' />")
%>