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> </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