Dim path As String
Dim fname As String
path = "http://www.yorsite.com/uploads"
If Not (filename.PostedFile.FileName.Length = 0) Then
Dim ServerPath As String = "inja address maghsade uploda ro bede mese : c:\inetpub\wwwroot\uplodads" & Mid(filename.PostedFile.FileName, InStrRev(filename.PostedFile.FileName, "\", -1, 1), filename.PostedFile.FileName.Length)
filename.PostedFile.SaveAs(ServerPath)
fname = path + Mid(filename.PostedFile.FileName, InStrRev(filename.PostedFile.FileName, "\", -1, 1))
' bad in fname ro beriz too database filet ham too directori ke entekhab kardi save mishe
