18 messaggi dal 31 marzo 2003
X fare l'upload di testo e foto da un form ho utilizzato lo script che vi ho riportato sotto.
Se lo provo in localhost funziona tutto alla xfezione, ma quando lo metto sul server e provo ad uploadare foto e testo insieme mi da errore 500 errore interno del server.(se invece provo ad uploadare solo testo funziona tutto alla xfezione).
In teoria non dovrebbe usare componenti esterni come dll cui il server magari non può disporre...xò l'errore è simile a quello!
Vi riporto di seguito lo script, facendo notare che le classi sono specificate in un file incluso chiamato class_upload.asp
Sapete risolvere il mio problema?
ecco lo script:

<%
Response.Expires = 0
Response.Buffer = TRUE
'Response.Clear
%>
<!--#include file="adovbs.inc" -->
<!--#include file="connessione.asp" -->
<!--#include file="class_upload.asp" -->
<%
'Creiamo l'oggetto FileUploader ed assegnamogli il nome Uploader

dim miorec
set miorec = server.CreateObject("adodb.recordset")
miorec.open "select * from t_news",miacon, 1, 3
Dim Uploader, File
Set Uploader = New FileUploader

'Impostiamo la dimensione max del file in byte
'Uploader.maxSize = 50000 '50kb

'Impostiamo il tipo di file ammessi
Uploader.fileExt = "jpg,gif,bmp"

'Iniziamo il processo di upload
Uploader.Upload()


'Visualizziamoli
titolo=uploader.form("titolo")
news=uploader.form("corponews")
data=uploader.form("data")
autore=uploader.form("autore")
mail=uploader.form("mail")
%>
<html>
<head>
<title>fm</title>
</head>
<body>
<center>


<%

Function miaFunz()

Set Uploader = Nothing
miorec("titolonews")=titolo
miorec("corponews")=news
miorec("data")=data
miorec("autore")=autore
miorec("mail")=mail
miorec.update
response.redirect("segnalazioneok.asp")

End Function

strPath = Server.MapPath("images") & "\"

'Controlliamo se sono stati inviati dei file


Dim iCounter
iCounter = 0

For Each File In Uploader.Files.Items


File.SaveToDisk strPath

iCounter = iCounter + 1

dim img
img=file.FileName
miorec.addnew
miorec("immagine")=img
miaFunz()

Next

If iCounter = 0 Then
miaFunz2()
End If


Function miaFunz2()

miorec.AddNew
Set Uploader = Nothing
miaFunz()

End Function



%>



</center>
</body>
</html>
78 messaggi dal 19 marzo 2003
sei sicuro che il server dove uppi abbia installato il componente uploder??? nel caso tu sia hostato in uno spazio gratis con supporto asp, ti dico che é difficile che ti mettano a disposizine componenti aggiuntivi, sempre che l'uploader sia un comp. aggiuntivo... non lo so, non l'ho mai usato purtroppo.

____
Ciao :)
18 messaggi dal 31 marzo 2003
EH Shank, anch'io avevo pensato quello...solo che questa parte di script:
titolo=uploader.form("titolo")
news=uploader.form("corponews")
data=uploader.form("data")
autore=uploader.form("autore")
mail=uploader.form("mail")

funziona correttamente...probabilmente ci sarà qualche permesso impostato sulle cartelle del server...bah vedrò:..
78 messaggi dal 19 marzo 2003
Ecco appunto, giusta deduzione la tua... ricordati solo che... se sei hostato su un server linux, i permessi sulle cartelle li puoi impostare tu da remoto con un normale client ftp... se invece sei hostato su un server w2k o NT, allora devi fare esplicita richiesta al tuo hosting provider di cambiarti i diritti su una certa cartella. Il punto é che nonso se su un host gratis accettino richieste di cambio diritti su folder... prova a chiedere.

____
Ciao :)

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.