Le ho provate tutte: errore upload immagini su database

[goosite]

salve, ho caricato sul web una galleria fotografica nel 2005 ed ha sempre funzionato fino a qualche mese fa, ora non funziona più, carico le immagini che vengono salvate dentro una cartella del server, ma se le voglio modificare, o cancellare mi da errore.. la pagina è http://www.djlux.it/public/photogall...n/pictures.asp se cerco di moficare o cancellare foto inserite anni fa non mi da nessun errore, se cerco di farlo in una foto nuova come la prima marco4.jpg mida l'errore

Microsoft VBScript runtime error '800a000d'

Type mismatch: '[string: ""]'

/public/photogallery/admin/inc_edit.asp, line 192


che devo fare? ho provato di tutto, può essere che ci sono troppe foto? buu grazie a chi mi aiuta..

[goosite]

se cerco invece di visualizzare la foto mi da questo errore

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

/public/photogallery/inc_detail.asp, line 13

[goosite]

questo è il codice della pagina che mi da il secondo errore che ho postato, cioè l'errore quando cerco di visualizzare la foto:





<%
if(Request.QueryString("iPic") <> "") then cmdView__var_id = Request.QueryString("iPic")
%>
<%
set cmdView = Server.CreateObject("ADODB.Command")
cmdView.ActiveConnection = MM_connDUgallery_STRING
cmdView.CommandText = "UPDATE PICTURES SET PIC_VIEW = PIC_VIEW + 1 WHERE PIC_ID = " + Replace(cmdView__var_id, "'", "''") + ""
cmdView.CommandType = 1
cmdView.CommandTimeout = 0
cmdView.Prepared = true
cmdView.Execute()
%>
<%
Dim rsDetail__MMColParam
rsDetail__MMColParam = "1"
If (Request.QueryString("iPic") <> "") Then
rsDetail__MMColParam = Request.QueryString("iPic")
End If
%>
<%
Dim rsDetail
Dim rsDetail_numRows

Set rsDetail = Server.CreateObject("ADODB.Recordset")
rsDetail.ActiveConnection = MM_connDUgallery_STRING
rsDetail.Source = "SELECT * FROM PICTURES, TYPES WHERE PIC_APPROVED = 1 AND PIC_TYPE = TYPE_ID AND PIC_ID = " + Replace(rsDetail__MMColParam, "'", "''") + ""
rsDetail.CursorType = 0
rsDetail.CursorLocation = 2
rsDetail.LockType = 1
rsDetail.Open()

rsDetail_numRows = 0
If rsDetail.EOF Then Response.Redirect("default.asp")
%>


<%
Dim rsDetailPrev
Dim rsDetailPrev_numRows

Set rsDetailPrev = Server.CreateObject("ADODB.Recordset")
rsDetailPrev.ActiveConnection = MM_connDUgallery_STRING
rsDetailPrev.Source = "SELECT TOP 1 * FROM PICTURES WHERE PIC_APPROVED = 1 AND PIC_TYPE = " & Request.QueryString("iType") & " AND PIC_ID < " & Request.QueryString("iPic") & " ORDER BY PIC_ID DESC"
rsDetailPrev.CursorType = 0
rsDetailPrev.CursorLocation = 2
rsDetailPrev.LockType = 1
rsDetailPrev.Open()
rsDetailPrev_numRows = 0
%>


<%
Dim rsDetailNext
Dim rsDetailNext_numRows

Set rsDetailNext = Server.CreateObject("ADODB.Recordset")
rsDetailNext.ActiveConnection = MM_connDUgallery_STRING
rsDetailNext.Source = "SELECT TOP 1 * FROM PICTURES WHERE PIC_APPROVED = 1 AND PIC_TYPE = " & Request.QueryString("iType") & " AND PIC_ID > " & Request.QueryString("iPic") & " ORDER BY PIC_ID ASC"
rsDetailNext.CursorType = 0
rsDetailNext.CursorLocation = 2
rsDetailNext.LockType = 1
rsDetailNext.Open()
rsDetailNext_numRows = 0
%>


<%
Dim imgWidth, imgHeight, imgPercent, imgFixWidth, imgFixHeight

imgWidth = rsDetail.Fields.Item("PIC_WIDTH").Value
imgHeight = rsDetail.Fields.Item("PIC_HEIGHT").Value

If imgWidth > 580 Then

imgFixWidth = 580

imgPercent = (imgFixWidth/imgWidth)

imgFixHeight= (imgHeight*imgPercent)

Else
imgFixWidth = imgWidth
imgFixHeight = imgHeight

End If

%>
<SCRIPT LANGUAGE="JavaScript">

<!-- Begin
function OpenImage(img){
foto1= new Image();
foto1.src=(img);
Controlla(img);
}
function Controlla(img){
if((foto1.width!=0)&&(foto1.height!=0)){
viewFoto(img);
}
else{
funzione="Controlla('"+img+"')";
intervallo=setTimeout(funzione,20);
}
}
function viewFoto(img){
largh=foto1.width+20;
altez=foto1.height+20;
stringa="width="+largh+",height="+altez;
finestra=window.open(img,"",stringa);
}
// End -->
</script>
<link href="assets/DUgallery.css" rel="stylesheet" type="text/css">
<div class = "links">
<table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
<td align="left" valign="middle" class="textBold">PHOTOGALLERY
&raquo; "><%=UCASE(rsDetail.Fields.Item("TYPE_NAME").Value )%>
&raquo; DETTAGLI</td>
<td align="right" valign="middle" class="textBold"></td>
</tr>
<tr>





<tr class="textBold">

<td width="50%" align="left" valign="middle">
<% If Not rsDetailNext.EOF Then %>
<a href="detail.asp?iPic=<%=(rsDetailNext.Fields.Item ("PIC_ID").Value)%>&iType=<%=(rsDetailNext.Fields. Item("PIC_TYPE").Value)%>">
&laquo;
INDIETRO </a>
<% End If %>

</td>
<td width="50%" align="right" valign="middle">
<% If Not rsDetailPrev.EOF Then %>
<a href="detail.asp?iPic=<%=(rsDetailPrev.Fields.Item ("PIC_ID").Value)%>&iType=<%=(rsDetailPrev.Fields. Item("PIC_TYPE").Value)%>">
AVANTI &raquo; </a>
<% End If %>
</td>
</tr>







<td colspan="2" align="left" valign="top"><table border="0" cellpadding="2" cellspacing="2" align="center">
<tr align="center" valign="middle">
<td> <table border="0" cellspacing="1" cellpadding="0">
<tr>
<td height="100" align="left" valign="top"> <table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr class="generalText">
<td height="20" align="left" valign="middle" class="text">
Nome foto: <font color="#666666"><%=(rsDetail.Fields.Item("PIC_NAME ").Value)%></font>
</td>
<td height="20" align="right" valign="middle" class="text">Misure:<font color="#666666">
<%=(rsDetail.Fields.Item("PIC_WIDTH").Value)%>x<%= (rsDetail.Fields.Item("PIC_HEIGHT").Value)%></font></td>
</tr>
<tr class="generalText">
<td height="20" align="left" valign="middle" class="text"><b class="text">File:[/b]
<font color="#666666"><%=(rsDetail.Fields.Item("PIC_IMAG E").Value)%></font></td>
<td height="20" align="right" valign="middle" class="text">Vista:
<font color="#666666"><%=(rsDetail.Fields.Item("PIC_VIEW ").Value)%></font></td>
</tr>
<tr>
<td colspan="2" align="center" class="text"> <table border="0" cellspacing="1" cellpadding="0" bgcolor="#000000">
<tr>
<td align="center" valign="middle" bgcolor="#CCCCCC">')" BORDER="0">[img]images/<%=(rsDetail.Fields.Item([/img]" width = "<%= imgFixWidth %>" height = "<%= imgFixHeight %>" alt = "Scarica <%=(rsDetail.Fields.Item("PIC_NAME").Value)%> (<%=(rsDetail.Fields.Item("PIC_WIDTH").Value)%> x <%=(rsDetail.Fields.Item("PIC_HEIGHT").Value)%>) " border="0" align="absmiddle"></td>
</tr>
</table></td>
</tr>
<tr class="generalText">
<td height="21" colspan="2" align="left" valign="middle" class="text">Descrizione:
<font color="#666666"><%=(rsDetail.Fields.Item("PIC_DESC RIPTION").Value)%></font></td>
</tr>
</table></td>
</tr>


</table></td>
</tr>




</table></td>
</tr>

<tr class="textBold">

<td width="50%" align="left" valign="middle">
<% If Not rsDetailNext.EOF Then %>
<a href="detail.asp?iPic=<%=(rsDetailNext.Fields.Item ("PIC_ID").Value)%>&iType=<%=(rsDetailNext.Fields. Item("PIC_TYPE").Value)%>">
&laquo;
INDIETRO </a>
<% End If %> </td>

<td width="50%" align="right" valign="middle"><% If Not rsDetailPrev.EOF Then %>
<a href="detail.asp?iPic=<%=(rsDetailPrev.Fields.Item ("PIC_ID").Value)%>&iType=<%=(rsDetailPrev.Fields. Item("PIC_TYPE").Value)%>">
AVANTI &raquo; </a>
<% End If %>
</td>
</tr>






</table>
</div>


<%
rsDetail.Close()
Set rsDetail = Nothing
%>



<%
rsDetailPrev.Close()
Set rsDetailPrev = Nothing
%>


<%
rsDetailNext.Close()
Set rsDetailNext = Nothing
%>

[goosite]

questo la pagina che mi da errore quando cerco di modificare o cancellare l'immagine:







<%
Dim rsPicEdit__MMColParam
rsPicEdit__MMColParam = "1"
if (Request.QueryString("iPic") <> "") then rsPicEdit__MMColParam = Request.QueryString("iPic")
%>

<%
set rsPicEdit = Server.CreateObject("ADODB.Recordset")
rsPicEdit.ActiveConnection = MM_connDUgallery_STRING
rsPicEdit.Source = "SELECT * FROM PICTURES WHERE PIC_ID = " + Replace(rsPicEdit__MMColParam, "'", "''") + ""
rsPicEdit.CursorType = 0
rsPicEdit.CursorLocation = 2
rsPicEdit.LockType = 3
rsPicEdit.Open()
rsPicEdit_numRows = 0
%>
<%
' *** Edit Operations: declare variables

MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Update Record: set variables

If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then

MM_editConnection = MM_connDUgallery_STRING
MM_editTable = "PICTURES"
MM_editColumn = "PIC_ID"
MM_recordId = "" + Request.Form("MM_recordId") + ""
MM_editRedirectUrl = "pictures.asp"
MM_fieldsStr = "PIC_TYPE|value|PIC_NAME|value|PIC_HEIGHT|value|PI C_WIDTH|value|PIC_DATED|value|PIC_APPROVED|value|P IC_DESCRIPTION|value"
MM_columnsStr = "PIC_TYPE|none,none,NULL|PIC_NAME|',none,''|PIC_HE IGHT|',none,''|PIC_WIDTH|',none,''|PIC_DATED|',non e,NULL|PIC_APPROVED|none,none,NULL|PIC_DESCRIPTION |',none,''"

' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")

' set the form values
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
Next

' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If

End If
%>
<%
' *** Delete Record: declare variables

if (CStr(Request("MM_delete")) <> "" And CStr(Request("MM_recordId")) <> "") Then

MM_editConnection = MM_connDUgallery_STRING
MM_editTable = "PICTURES"
MM_editColumn = "PIC_ID"
MM_recordId = "" + Request.Form("MM_recordId") + ""
MM_editRedirectUrl = "pictures.asp"

' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If

End If
%>
<%
' *** Delete File Before Delete Record 1.6.0
If (CStr(Request("MM_delete")) <> "" And CStr(Request("MM_recordId")) <> "") Then
Dim DF_filesStr, DF_path, DF_suffix
DF_filesStr = "PIC_IMAGE"
DF_path = "../images"
DF_suffix = "_small"
DeleteFileBeforeRecord DF_filesStr,DF_path,MM_editConnection,MM_editTable ,MM_editColumn,MM_recordId,DF_suffix
end if
%>
<%
' *** Update Record: construct a sql update statement and execute it

If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then

' create the sql update statement
MM_editQuery = "update " & MM_editTable & " set "
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
FormVal = MM_fields(i+1)
MM_typeArray = Split(MM_columns(i+1),",")
Delim = MM_typeArray(0)
If (Delim = "none") Then Delim = ""
AltVal = MM_typeArray(1)
If (AltVal = "none") Then AltVal = ""
EmptyVal = MM_typeArray(2)
If (EmptyVal = "none") Then EmptyVal = ""
If (FormVal = "") Then
FormVal = EmptyVal
Else
If (AltVal <> "") Then
FormVal = AltVal
ElseIf (Delim = "'") Then ' escape quotes
FormVal = "'" & Replace(FormVal,"'","''") & "'"
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i <> LBound(MM_fields)) Then
MM_editQuery = MM_editQuery & ","
End If
MM_editQuery = MM_editQuery & MM_columns(i) & " = " & FormVal
Next
MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId

If (Not MM_abortEdit) Then
' execute the update
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>
<%
' *** Delete Record: construct a sql delete statement and execute it

If (CStr(Request("MM_delete")) <> "" And CStr(Request("MM_recordId")) <> "") Then

' create the sql delete statement
MM_editQuery = "delete from " & MM_editTable & " where " & MM_editColumn & " = " & MM_recordId

If (Not MM_abortEdit) Then
' execute the delete
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>
<%
set rsCat = Server.CreateObject("ADODB.Recordset")
rsCat.ActiveConnection = MM_connDUgallery_STRING
rsCat.Source = "SELECT * FROM TYPES ORDER BY TYPE_NAME ASC"
rsCat.CursorType = 0
rsCat.CursorLocation = 2
rsCat.LockType = 3
rsCat.Open()
rsCat_numRows = 0
%>

<%
Dim imgWidth, imgHeight, imgPercent, imgFixWidth, imgFixHeight

imgWidth = rsPicEdit.Fields.Item("PIC_WIDTH").Value
imgHeight = rsPicEdit.Fields.Item("PIC_HEIGHT").Value

imgFixWidth = 580

imgPercent = (imgFixWidth/imgWidth)

imgFixHeight= (imgHeight*imgPercent)

%>

<script language="JavaScript">
<!--
function MM_findObj(n, d) { //v4.0
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && document.getElementById) x=document.getElementById(n); return x;
}

function MM_validateForm() { //v4.0
var i,p,q,nm,test,num,min,max,errors='',args=MM_valida teForm.arguments;
for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
if (val) { nm=val.name; if ((val=val.value)!="") {
if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';
} else if (test!='R') {
if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';
if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
min=test.substring(8,p); max=test.substring(p+1);
if (val<min || max<val) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }
} if (errors) alert('The following error(s) occurred:\n'+errors);
document.MM_returnValue = (errors == '');
}
//-->
</script>
<link href="../assets/DUgallery.css" rel="stylesheet" type="text/css">

<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>

<td align="left" valign="top">
<table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
<td align="left" valign="top">
<table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor="#000000">

<tr>
<td align="left" valign="top" bgcolor="#FFFFFF">
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr class="generalTextBold" align="center">
<form method="POST" action="<%=MM_editAction%>" name="form1">
<td valign="middle" colspan="2"> <table align="center" cellpadding="2" cellspacing="2" class="textBold">
<tr align="center" valign="middle">
<td nowrap colspan="2">MODIFICA <%= UCase((rsPicEdit.Fields.Item("PIC_NAME").Value)) %>
</td>
</tr>
<tr valign="middle">
<td nowrap align="right">GALL:</td>
<td> <select name="PIC_TYPE" class="form">
<%
While (NOT rsCat.EOF)
%>
<option value="<%=(rsCat.Fields.Item("TYPE_ID").Value)%>" <%if (CStr(rsCat.Fields.Item("TYPE_ID").Value) = CStr(rsPicEdit.Fields.Item("PIC_TYPE").Value)) then Response.Write("SELECTED") : Response.Write("")%>><%=(rsCat.Fields.Item("TYPE_N AME").Value)%></option>
<%
rsCat.MoveNext()
Wend
If (rsCat.CursorType > 0) Then
rsCat.MoveFirst
Else
rsCat.Requery
End If
%>

[goosite]

</select> </td>
</tr>
<tr valign="middle">
<td nowrap align="right">NOME:</td>
<td> <input type="text" name="PIC_NAME" value="<%=(rsPicEdit.Fields.Item("PIC_NAME").Value )%>" size="25" class="form" maxlength="20">
<font color="#999999">(Max. 20 car.)</font></td>
</tr>
<tr valign="middle">
<td nowrap align="right">ALTEZ:</td>
<td> <input type="text" name="PIC_HEIGHT" value="<%=(rsPicEdit.Fields.Item("PIC_HEIGHT").Val ue)%>" size="5" class="form" maxlength="3">
</td>
</tr>
<tr valign="middle">
<td nowrap align="right">LARGH:</td>
<td> <input type="text" name="PIC_WIDTH" value="<%=(rsPicEdit.Fields.Item("PIC_WIDTH").Valu e)%>" size="5" class="form" maxlength="3">
</td>
</tr>
<tr valign="middle">
<td nowrap align="right">DATA:</td>
<td> <input type="text" name="PIC_DATED" value="<%=(rsPicEdit.Fields.Item("PIC_DATED").Valu e)%>" size="15" class="form" maxlength="15">
</td>
</tr>
<tr valign="middle">
<td nowrap align="right">APPROVED:</td>
<td> <input type="text" name="PIC_APPROVED" value="<%=(rsPicEdit.Fields.Item("PIC_APPROVED").V alue)%>" size="2" class="form" maxlength="1" readonly="readonly">
</td>
</tr>
<tr valign="middle">
<td nowrap align="right" valign="top">DESCRIZ.:</td>
<td> <textarea name="PIC_DESCRIPTION" cols="40" rows="5" class="form"><%=(rsPicEdit.Fields.Item("PIC_DESCRI PTION").Value)%></textarea>
</td>
</tr>
<tr valign="middle" align="center">
<td nowrap colspan="2"> <input type="submit" value="Aggiorna questa foto" onClick="MM_validateForm('PIC_NAME','','R','PIC_HE IGHT','','RisNum','PIC_WIDTH','','RisNum','PIC_DAT ED','','R','PIC_APPROVED','','RisNum','PIC_DESCRIP TIONO','','R');return document.MM_returnValue" class="form">
</td>
</tr>
<tr valign="middle" align="center">
<td nowrap colspan="2"></td>
</tr>
</table> <input type="hidden" name="MM_update" value="form1">
<input type="hidden" name="MM_recordId" value="<%= rsPicEdit.Fields.Item("PIC_ID").Value %>">
</td>
</form>
</tr>
<tr>
<form name="delete" method="POST" action="<%=MM_editAction%>">
<td align="center" valign="top" colspan="2"> <input type="submit" name="Submit" value="Cancella questa foto" class="form">
<input type="hidden" name="MM_delete" value="delete">
<input type="hidden" name="MM_recordId" value="<%= rsPicEdit.Fields.Item("PIC_ID").Value %>">
</td>
</form>
</tr>
<tr>
<td align="center" valign="top" colspan="2">[img]../images/<%=(rsPicEdit.Fields.Item([/img]" width = "<%= imgFixWidth %>" height = "<%= imgFixHeight %>">



<%
rsPicEdit.Close()
%>
<%
rsCat.Close()
%>

[AL2008]

da inesperto se non hai toccato lo script, salva una copia del db access, e l'altro lo apri e modifichi le proprietà dei campi 0-255 ecc..

se l'ahi toccato inizia a fare tagli mirati, scopri il blocco incriminato e ci porti una stringa su cui ragionare, così è un mattone

[zazoom]

Ciao...Usi dream che prevede l'uso di un solo comportamento "MM_editAction" per ogni pagina!
Hai due form che richiamano lo stesso comportamento
Quindi o dividi in più pagine o rinomini i vari insert, update e delete.