Ciao a tutti.
Sempre la solita storia.... Questo baol mi fi impazzire!
Mi spigo meglio.
Io sto facendo una tesi in asp per un'ufficio dell'ospedale dove abito.
Hanno bisogno di caricare dei file sul server e ho trovato questo script potentisimo.
Con qualche difficoltà alla fine, IN LOCALE, tutto ha funzionato alla perfezione.
Ma quando l'ho caricato sulla intranet dell'ospedale BAOL ha smesso di funzionare.
Ovvero, lui si carica e alcune funzioni le compie. Difatti quando chiedo il nome del file lui me lo restituisce, se deve creare un nuovo nome di file lui mi passa il nuovo nome.
Il problema è quando deve salvare il file su disco! Infatti il file non me lo salva!
QUesto è il codice del file che uso:
codice:
<%
dim data
data = Date()
Dim oUpload, idCorso, strTitolo
Set oUpload = new cUpload
oUpload.AutoRename = True
oUpload.Overwrite = False
oUpload.SetPath "\upload\" 'Impostazione del percorso
oUpload.Load
strTitolo = oUpload.Form("titolo")
if (strTitolo<>"") then
oUpload.Save()
FileName = oUpload.GetFileName()
'response.write(FileName & "<<>>")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=D:\Intranet\Formazione\data\areaFormazione.mdb"
sql=" SELECT * FROM modulistica"
Set Rs=server.CreateObject("ADODB.Recordset")
Rs.Open sql ,Conn,3,3
Rs.addnew
Rs("nome") = oUpload.Form("titolo")
Rs("nomeFile") = FileName
Rs("area") = oUpload.Form("area")
Rs("data") = data
Rs.update
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn=Nothing
Set oUpload = Nothing
response.Redirect("modulistica.asp?azione=ins&esito=corretto")
else
response.Redirect("modulistica.asp?azione=ins&esito=negativo")
end if
%>
Il file si deve salvare sulla cartella:
codice:
D:\intranet\Formazione\upload\
Riuscite a darmi una mano? PLEASE
PS: Premetto che i permessi per fare l'upload sono corretti. infatti il database funziona correttamente e le due cartelle sono settate nella stessa maniera.