salve, non sono un programmatore asp ma mi trovo ad dover installare un sito che precedentemente era funzionante su un altro dominio.
Effettuo un un upload di immagini con inserimento in db access.
nel farlo mi da il seguente errore
Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/prova/_admin2/engine_itinerari.asp, line 25
al rigo 25 si trova:
Set Upload = Server.CreateObject("Persits.Upload")
tutto lo script è il seguente:
'--> Richiesta dati
Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save
Cartella = Server.MapPath("../_immagini/tecnica")
operazione = Upload.Form("operazione")
ID = Upload.Form("id")
H_PROVENIENZA = Upload.Form("provenienza")
If operazione="" Then
%>
<SCRIPT SRC="winlike/winman/wininit.js"></SCRIPT>
<SCRIPT SRC="winlike/winman/winman.js"></SCRIPT>
<SCRIPT SRC="winlike/winman/winxtra.js"></SCRIPT>
<SCRIPT>
actionWinLIKE_("alert('Bad request'); var winNr=WinLIKE.searchwindow('wSchedaTecnica'); WinLIKE.windows[winNr].close();", event);
</SCRIPT>
<%
End If
'--> Seleziona operazione
Select Case operazione
Case "add"
H_TITOLO = Upload.Form("titolo")
H_SOTTOTITOLO = Upload.Form("sottotitolo")
H_TESTO = Upload.Form("testo")
H_SCHEDA = Upload.Form("scheda")
H_PRODUTTORE = Upload.Form("produttore")
H_DIDASCALIA = Upload.Form("didascalia")
If H_TITOLO = "" OR H_SOTTOTITOLO = "" OR H_TESTO = "" OR H_SCHEDA = "" OR H_PRODUTTORE="" OR H_DIDASCALIA = "" Then
Response.write("<SCRIPT>alert('Mancano i dati');history.go(-1);")
End If
'--> Carica i dati su DB
Set objDBTecnica = Server.CreateObject("ADODB.Connection")
objDBTecnica.Open NEWS_CONNECTION_STRING
Set objRSTecnica = Server.CreateObject("ADODB.Recordset")
objRSTecnica.Open "tb_Tecnica", objDBTecnica, 2,2
objRSTecnica.AddNew
objRSTecnica("titolo") = H_TITOLO
objRSTecnica("sottotitolo") = H_SOTTOTITOLO
objRSTecnica("testo") = H_TESTO
objRSTecnica("scheda") = H_SCHEDA
objRSTecnica("produttore") = H_PRODUTTORE
objRSTecnica("didascalia") = H_DIDASCALIA
objRSTecnica.Update
objRSTecnica.MoveLast
ID = objRSTecnica("id")
objRSTecnica.Close
Set objRSTecnica = Nothing
objDBTecnica.Close
Set objDBTecnica = Nothing
Set H_FOTO_APERTURA = Upload.Files("file_apertura")
Set H_FOTO1 = Upload.Files("file1")
Set H_FOTO2 = Upload.Files("file2")
If (Not H_FOTO_APERTURA Is Nothing) AND (Not H_FOTO1 Is Nothing) AND (Not H_FOTO2 Is Nothing) Then
If (H_FOTO_APERTURA.Ext=".jpg") Then
H_FOTO_APERTURA.SaveAs Cartella & "\tecnica_apertura_" & ID & "" & H_FOTO_APERTURA.Ext
Else
Response.write("<script>alert('Errore nel formato dei file immagine (solo JPG)');history.go(-1);</script>")
End If
If (H_FOTO1.Ext=".jpg") Then
H_FOTO1.SaveAs Cartella & "\tecnica_foto1_" & ID & "" & H_FOTO1.Ext
Else
Response.write("<script>alert('Errore nel formato dei file immagine (solo JPG)');history.go(-1);</script>")
End If
If (H_FOTO2.Ext=".jpg") Then
H_FOTO2.SaveAs Cartella & "\tecnica_foto2_" & ID & "" & H_FOTO2.Ext
Else
Response.write("<script>alert('Errore nel formato dei file immagine (solo JPG)');history.go(-1);</script>")
End If
Else
Response.write("<SCRIPT>alert('Mancano le immagini');history.go(-1);")
End If
'--> /Carica i dati su DB
'OK, segnala
%>
<SCRIPT SRC="winlike/winman/wininit.js"></SCRIPT>
<SCRIPT SRC="winlike/winman/winman.js"></SCRIPT>
<SCRIPT SRC="winlike/winman/winxtra.js"></SCRIPT>
<SCRIPT>
var reloadWin = "elenco_tecnica"
alert('Operazione eseguita.');
for(i=0;i<top.window.length;i++){
tmpName = top.window[i].location.href;
tmpTest = tmpName.indexOf(reloadWin);
if(tmpTest>0){
top.window[i].location.reload();
}
}
actionWinLIKE_("var winNr=WinLIKE.searchwindow('wSchedaTecnica'); WinLIKE.windows[winNr].close();", event);
</SCRIPT>
<%
Case "upd"
H_TITOLO = Upload.Form("titolo")
H_SOTTOTITOLO = Upload.Form("sottotitolo")
H_TESTO = Upload.Form("testo")
H_SCHEDA = Upload.Form("scheda")
H_PRODUTTORE = Upload.Form("produttore")
H_DIDASCALIA = Upload.Form("didascalia")
If H_TITOLO = "" OR H_SOTTOTITOLO = "" OR H_TESTO = "" OR H_SCHEDA = "" OR H_PRODUTTORE="" OR H_DIDASCALIA = "" Then
Response.write("<SCRIPT>alert('Mancano i dati');history.go(-1);")
End If
Set H_FOTO_APERTURA = Upload.Files("file_apertura")
Set H_FOTO1 = Upload.Files("file1")
Set H_FOTO2 = Upload.Files("file1")
If Not H_FOTO_APERTURA Is Nothing Then
If (H_FOTO_APERTURA.Ext=".jpg") Then
H_FOTO_APERTURA.SaveAs Cartella & "\tecnica_apertura_" & ID & "" & H_FOTO_APERTURA.Ext
Else
Response.write("<script>alert('Errore nel formato del file (solo JPG)');history.go(-1);</script>")
End If
End If
If Not H_FOTO1 Is Nothing Then
If (H_FOTO1.Ext=".jpg") Then
H_FOTO1.SaveAs Cartella & "\tecnica_foto2_" & ID & "" & H_FOTO1.Ext
Else
Response.write("<script>alert('Errore nel formato del file (solo JPG)');history.go(-1);</script>")
End If
End If
If Not H_FOTO2 Is Nothing Then
If (H_FOTO2.Ext=".jpg") Then
H_FOTO2.SaveAs Cartella & "\tecnica_foto2_" & ID & "" & H_FOTO2.Ext
Else
Response.write("<script>alert('Errore nel formato del file (solo JPG)');history.go(-1);</script>")
End If
End If
'--> Carica i dati su DB
Set objDBTecnica = Server.CreateObject("ADODB.Connection")
objDBTecnica.Open NEWS_CONNECTION_STRING
Set objRSTecnica = Server.CreateObject("ADODB.Recordset")
objRSTecnica.Open "SELECT * FROM tb_Tecnica WHERE id=" & ID, objDBTecnica, 2,2
objRSTecnica("titolo") = H_TITOLO
objRSTecnica("sottotitolo") = H_SOTTOTITOLO
objRSTecnica("testo") = H_TESTO
objRSTecnica("scheda") = H_SCHEDA
objRSTecnica("produttore") = H_PRODUTTORE
objRSTecnica("didascalia") = H_DIDASCALIA
objRSTecnica.Update
objRSTecnica.Close
Set objRSTecnica = Nothing
objDBTecnica.Close
Set objDBTecnica = Nothing
'--> /Carica i dati su DB
'OK, segnala
%>
<SCRIPT SRC="winlike/winman/wininit.js"></SCRIPT>
<SCRIPT SRC="winlike/winman/winman.js"></SCRIPT>
<SCRIPT SRC="winlike/winman/winxtra.js"></SCRIPT>
<SCRIPT>
var reloadWin = "elenco_tecnica"
alert('Operazione eseguita.');
for(i=0;i<top.window.length;i++){
tmpName = top.window[i].location.href;
tmpTest = tmpName.indexOf(reloadWin);
if(tmpTest>0){
top.window[i].location.reload();
}
}
actionWinLIKE_("var winNr=WinLIKE.searchwindow('wSchedaTecnica'); WinLIKE.windows[winNr].close();", event);
</SCRIPT>
<%
End Select
il form nella pagina html è il seguente
<FORM NAME="frmSchedaTecnica" ACTION="engine_tecnica.asp" METHOD="POST" ENCTYPE="multipart/form-data">
<INPUT TYPE="hidden" NAME="id" VALUE="<GODOT>H_ID_TECNICA</GODOT>">
<INPUT TYPE="hidden" NAME="operazione" VALUE="<GODOT>H_OPERAZIONE</GODOT>">
<INPUT TYPE="hidden" NAME="provenienza" VALUE="<GODOT>H_PROVENIENZA</GODOT>">
<INPUT NAME="titolo" TYPE="text" CLASS="textbox" VALUE="<GODOT>H_TITOLO</GODOT>" SIZE="66" MAXLENGTH="70" /> <INPUT NAME="sottotitolo" TYPE="text" CLASS="textbox" VALUE="<GODOT>H_SOTTOTITOLO</GODOT>" SIZE="66" MAXLENGTH="255" />
<TEXTAREA NAME="testo" COLS="65" ROWS="7" WRAP="VIRTUAL" CLASS="textbox"><GODOT>H_TESTO</GODOT></TEXTAREA>
<TEXTAREA NAME="scheda" COLS="65" ROWS="7" WRAP="VIRTUAL" CLASS="textbox"><GODOT>H_SCHEDA</GODOT></TEXTAREA>
<TEXTAREA NAME="produttore" COLS="65" ROWS="7" WRAP="VIRTUAL" CLASS="textbox"><GODOT>H_PRODUTTORE</GODOT></TEXTAREA>
<INPUT NAME="didascalia" TYPE="TEXT" CLASS="textbox" VALUE="<GODOT>H_DIDASCALIA</GODOT>" SIZE="66" MAXLENGTH="255" />
<INPUT NAME="file_apertura" TYPE="FILE" CLASS="textbox" VALUE="<GODOT>H_FILE</GODOT>" SIZE="56" MAXLENGTH="255" />
<INPUT NAME="file1" TYPE="FILE" CLASS="textbox" VALUE="<GODOT>H_FILE</GODOT>" SIZE="56" MAXLENGTH="255" />
<INPUT NAME="file2" TYPE="FILE" CLASS="textbox" VALUE="<GODOT>H_FILE</GODOT>" SIZE="56" MAXLENGTH="255" />
<input type="submit">
</FORM>
Rispondi quotando
