Caricare foto su asp

[borisgiulivi]

Salve a tutti ho questo script che non mi consente di caricare le foto da altri computer se non dal server dove è allocato il sito e il DB , come risolvere ?

<%
Dim objUpload
Dim strFileName
Dim strPath
'----------------------------
CodiceImmobile=request.querystring("CodiceImmobile ")
'
set img =server.CreateObject ("image_module.resize_image")


Set objUpload = new clsUpload
strFileName = objUpload.Fields("File1").FileName
strPath = Server.MapPath("user\Img_Immobili") & "\" & Codiceimmobile & "_" & strFileName
'
strPaththumbs=Server.MapPath("user\thumbs") & "\" & Codiceimmobile & "_" & strFileName

SqlText = "SELECT * FROM Immagini " &_
" WHERE immagine= '" & codiceimmobile & "_" & strFileName & "'"&_
" AND codiceimmobile = " & codiceimmobile &" "
Set Rs1 = Server.CreateObject("ADODB.RecordSet")
Rs1.Open SqlText, ConnettiDatabase,3,1
'-----------------------------------------------------------------------------------
if rs1.recordcount=0 then
On error resume next
objUpload("File1").SaveAs strPath
if Err.Number<>0 then
%>
<tr><td>Upload Error: <%=err.description%></td></tr>
<tr><td>
Indietro</td></tr>
<%


Response.end
else
img.resize lcase(strPath),lcase(strPaththumbs),144,102,false
if Err.Number<>0 then
%>
<tr><td>Upload Error: <%=err.description%></td></tr>
<tr><td>
Indietro</td></tr>
<%
Response.end
else
SqlText = "INSERT INTO Immagini(immagine,codiceimmobile) " &_
" VALUES('" & codiceimmobile & "_" & strFileName & "'," & codiceimmobile &") "
Set RsInsert = Server.CreateObject("ADODB.RecordSet")
RsInsert.Open SqlText, ConnettiDatabase,3,1
Set RsInsert=Nothing
%>
<tr><td>Il file è stato salvato correttamente.</td></tr>
<tr><td></td></tr>
<tr><td>Lista delle immagini</td></tr>
<%
end if
end if
On error goto 0
'
Set objUpload = Nothing
Set rs1=Nothing
else

[borisgiulivi]

Nessun aiuto ?

[AntoQuanto]

E' possibile che il problema non sia dovuto al codice ma alle autorizzazioni in scrittura delle singole cartelle.