Caricare foto su asp

[borisgiulivi]

Caricare foto su asp

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 ?:x

<%
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><b>Upload Error:</b> <%=err.description%></td></tr>
<tr><td><br><a href="menu_immagini.asp?codiceimmobile=<%=CodiceImmobile%>">Indietro</a></td></tr>
<%

        Response.end
    else
        img.resize lcase(strPath),lcase(strPaththumbs),144,102,false
        if Err.Number<>0 then
            %>
            <tr><td><b>Upload Error:</b> <%=err.description%></td></tr>
            <tr><td><br><a href="menu_immagini.asp?codiceimmobile=<%=CodiceImmobile%>">Indietro</a></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>&nbsp;</td></tr>
            <tr><td><a href="menu_immagini.asp?codiceimmobile=<%=CodiceImmobile%>">Lista delle immagini</a></td></tr>
            <%
        end if
    end if
On error goto 0
'
Set objUpload = Nothing
Set rs1=Nothing

else