Asp İmage Upload Acil Yardım

<% 
  	Set Upload = Server.CreateObject("Persits.Upload") 
  		Upload.Save Server.MapPath(StrUploadAdminPathName) 
   
  		For Each File in Upload.Files 
  		    
  		   If File.ImageType = "UNKNOWN" Then 
  			  Response.Redirect "message.asp?Str2=" & Err.Description & "&Str1=" & Err.Number 
  			  Response.End 
  		   End If 
   
  			IntoSQL = "INSERT INTO TblPhotos " 
  			IntoSQL = IntoSQL & "(PID,StrImageThumb,StrHeight,StrWidth) " 
  			IntoSQL = IntoSQL & "VALUES " 
  				IntoSQL = IntoSQL & "('"& Upload.Form("PID") &"', " 
  				IntoSQL = IntoSQL & "'"& File.FileName &"', " 
  				IntoSQL = IntoSQL & "'"& File.ImageHeight &"', " 
  				IntoSQL = IntoSQL & "'"& File.ImageWidth &"')" 
  			ObjConn.Execute(IntoSQL) 
   
  			If Err <> 0 Then 
  				Response.Redirect "message.asp?Str2=" & Err.Description & "&Str1=" & Err.Number 
  				Response.End 
  			Else 
  				Response.Redirect "add_photo.asp?PID=" & Upload.Form("PID") 
  				Response.End 
  			End If 
   
  		Next 
   
  		Upload.Close() 
  	Set Upload = Nothing 
  %>

 
  Date zaman = new Date(); 
  zaman.getDate(); 
  

 
  String myName = File.Filename.subString( *** ) + zaman.toString() + ".jpg"; 
   // subString içindeki *** ların yerinde resim.jpg den ".jpg" stringini ayırmak istiyorum, argümanları ne şekilde hatırlamıyorum, ayarlarsın 
   
  // veya substringlerle ugraşmak istemiyorum dersen, yüklenen file'ın orijinal isminden vazgeçersin bu şekilde 
  String myName = "yuklenenresim" + zaman.toString() + ".jpg";