salve a tutti il mio problema è: io voglio inserire in un db access un immagine che scelgo attraverso un form in una pagina asp e l'immagine deve essere inoltre salvata sotto la cartella images del server dell'ISP, in modo da poter essere visulaizzata dinamicamente.
Il problema è che quando faccio questa operazione in local tutto ok , ma quando la pubblico sul web iniziano i dolori perchè mentre il nome dell'immagine e il percorso dove dovrebbere risiedere nel db ci vanno, mentre l'immagine fisicamente non la ritrovo sotto images del server dell'ISP, qualcsuno sa dirmi il perchè??
per l'upload uso il file upload.asp
questo che ho messo è il file dal quale parto per eseguire l'upload
<%
'************** Variabili **************
Dim oUpload,objrs,Con
Dim MioArray(50),i,dbfile,strCon
i = 0
dbfile = Server.MapPath("/raccoglitore.mdb")
strCon = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & dbfile & ";"
'************** Upload **************
Set oUpload = new cUpload
oUpload.SetPath "images"
oUpload.Load()
'***********Definizione dimensioni immagine da importare***********
While Not oUpload.Eof
If oUpload.Files("Height")>=326 or oUpload.Files("Width")>=230 then
Response.write ("Le dimensioni dell'immagine " &_
oUpload.GetFileName() &" non sono corrette (" &_
oUpload.Files("Height") &"x" & oUpload.Files("Width") &"): File non caricato
" )
else
oUpload.Save()
Mioarray(i) = oUpload.GetFileName
i=i+1
Response.write ("Le dimensioni dell'immagine " &_
oUpload.GetFileName() &" sono corrette (" &_
oUpload.Files("Height") &"x" & oUpload.Files("Width") &"): File caricato con successo!
" )
end if
oUpload.MoveNext
Wend
'************** Database **************
set con = Server.CreateObject( "ADODB.Connection" )
set objrs = CreateObject("ADODB.Recordset")
con.open strCon
Rif = oUpload.Form("hiddenRif")
Image = "images\" & Mioarray(0)
con.execute "update T_Foto set Foto = '"&Image&"' where Riferimento = '" & Rif &"'"
'con.execute "update T_Foto set Foto = '"&Image&"' where Prodotto = '" & Pro &"' and Id_Categorie = '" & Cat &"' "
'************** Chiusura **************
con.close
Set objrs = Nothing
Set con = Nothing
Set oUpload = Nothing
%>
<style type="text/css">
<!--
@import url("shop.css");
@import url("shop.css");
-->
</style>
<title>Vic</title><body bgcolor="#FFFFFF" text="#990000" link="#990000" vlink="#990000" alink="#990000">
<table width="100%">
<tr>
<td height="38"><div align="center"><a href="gest_prod.asp" target="_self">
[img]images/left.gif[/img]</a><font color="#990000" size="2"> <a href="gest_prod.asp" target="_self">Torna
Indietro</a></font></div>
</td>
</tr>
Rispondi quotando