[DW-MX] errore '800a0bcd' (davvero non capisco...)

[tizianina]

Ciao a tutti! []
Avrei la necessità di inserire i dati relativi a un evento (data, ora, luogo, titolo e resoconto) su un DB Access.
Le 2 pagine ASP che intervengono nella procedura sono:

serate_aggiungi.asp (form di inserimento serata)
|
[avvenuto inserimento dei dati sul DB]
|
serate_aggiungi_foto.asp (riepilogo dei dati inseriti e possibilità di aggiungere fotografie)

Prendendo spunto da un esempio perfettamente funzionante (copia/incolla del vecchio codice e relative scrupolose modifiche per adattarlo al nuovo caso specifico), ottengo tuttavia il seguente errore:

ADODB.Field error '800a0bcd' 

Il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione richiesta è necessario disporre di un record corrente. 

/sito/manager/serate_aggiungi_foto.asp, line 82

Per i "puristi" del codice ASP [8D] sottolineo che le pagine erano (e sono) sviluppate con Dreamweaver MX... insomma, non odiatemi!!! [B)]

Riporto di seguito i codici delle 2 pagine asp in oggetto:

=======================
serate_aggiungi.asp
=======================

<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
MM_abortEdit = false

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

Dim vardataserata
vardataserata = Request.Form("input_aaaa") & Request.Form("input_mm") & Request.Form("input_gg") 

Dim varoraserata
varoraserata = Request.Form("input_hrs") & Request.Form("input_min")

If (CStr(Request("MM_insert")) = "form1") Then

  MM_editConnection = MM_MM_sito_conn_STRING_STRING
  MM_editTable = "serate"
  MM_editRedirectUrl = "serate_aggiungi_foto.asp"
  MM_fieldsStr  = "titoloevento|value|dataserata|value|oraserata|value|luogo|value|resoconto|value"
  MM_columnsStr = "titoloevento|',none,''|dataserata|none,none,NULL|oraserata|none,none,NULL|luogo|',none,''|resoconto|',none,''"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  
  ' set the form values
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    If MM_fields(MM_i) = "dataserata" Then 
	MM_fields(MM_i+1) = vardataserata
	'ElseIf MM_fields(MM_i) = "oraserata" Then 
	'MM_fields(MM_i+1) = varoraserata
	Else
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
	End If
  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
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(Request("MM_insert")) <> "") Then

  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),",")
    MM_delim = MM_typeArray(0)
    If (MM_delim = "none") Then MM_delim = ""
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = "none") Then MM_altVal = ""
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = "none") Then MM_emptyVal = ""
    If (MM_formVal = "") Then
      MM_formVal = MM_emptyVal
    Else
      If (MM_altVal <> "") Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = "'") Then  ' escape quotes
        MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
      Else
        MM_formVal = MM_delim + MM_formVal + MM_delim
      End If
    End If
    If (MM_i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End If
    MM_tableValues = MM_tableValues & MM_columns(MM_i)
    MM_dbValues = MM_dbValues & MM_formVal
  Next
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

  If (Not MM_abortEdit) Then
    ' execute the insert
    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
%>

<%
resoconto = Request.Form("resoconto")
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>AREA DI AMMINISTRAZIONE</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link href="sito.css" rel="stylesheet" type="text/css">

</head>

<body>



<span class="testo1grassetto">LE SERATE</span>



ELENCO SERATE PUBBLICATE | <span class="testo1grassetto">AGGIUNGI SERATA</span>




<%response.write session("foto")%>

<form action="<%=MM_editAction%>" method="post" name="form1">
  <table>
    <tr valign="baseline">
      <td nowrap align="right">Titoloevento:</td>
      <td>
        <input type="text" name="titoloevento" value="" size="64">
      </td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">Dataserata:</td>
      <td>

<%
myM =  cint(month(Date))
myY=   year(Date)
myD=   cint(day(Date))
myHours= Hour(Now())
myMinutes= Minute(Now())
mySeconds= Second(Now())
if myM < 10 then myM = "0" & myM end if
if myD < 10 then myD = "0"&  myD end if
if myHours < 10 then myHours = "0" & myHours end if
if myMinutes < 10 then myMinutes = "0" & myMinutes end if
if mySeconds < 10 then mySeconds = "0" & mySeconds end if
myDate= myY & ""& myM & "" & myD
%>

	  <select name="input_gg">
<option SELECTED value="<%=myD%>"><%=myD%></option>
<option value="01">1</option>
<option value="02">2</option>
<option value="03">3</option>
<option value="04">4</option>
<option value="05">5</option>
<option value="06">6</option>
<option value="07">7</option>
<option value="08">8</option>
<option value="09">9</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>
<option value="25">25</option>
<option value="26">26</option>
<option value="27">27</option>
<option value="28">28</option>
<option value="29">29</option>
<option value="30">30</option>
<option value="31">31</option>
</select>

<select name="input_mm">
<option SELECTED value="<%=myM%>">

<%
If myM = "01" Then 
Response.write("Gennaio") 
elseif myM = "02" Then 
Response.write("Febbraio") 
elseif myM = "03" Then 
Response.write("Marzo") 
elseif myM = "04" Then 
Response.write("Aprile") 
elseif myM = "05" Then 
Response.write("Maggio") 
elseif myM = "06" Then 
Response.write("Giugno") 
elseif myM = "07" Then 
Response.write("Luglio") 
elseif myM = "08" Then 
Response.write("Agosto") 
elseif myM = "09" Then 
Response.write("Settembre") 
elseif myM = "10" Then 
Response.write("Ottobre") 
elseif myM = "11" Then 
Response.write("Novembre") 
elseif myM = "12" Then 
Response.write("Dicembre") 
end if
%>

</option>
<option value="01">Gennaio</option>
<option value="02">Febbraio</option>
<option value="03">Marzo</option>
<option value="04">Aprile</option>
<option value="05">Maggio</option>
<option value="06">Giugno</option>
<option value="07">Luglio</option>
<option value="08">Agosto</option>
<option value="09">Settembre</option>
<option value="10">Ottobre</option>
<option value="11">Novembre</option>
<option value="12">Dicembre</option>
</select>

<select name="input_aaaa">
<option SELECTED value="<%=myY%>"><%=myY%></option>
<option value="2005">2005</option>
<option value="2006">2006</option>
</select>

      </td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">Oraserata:</td>
      <td>

	  <select name="input_hrs">
<option SELECTED value="<%=myHours%>"><%=myHours%></option>
<option value="00">00</option>
<option value="01">01</option>
<option value="02">02</option>
<option value="03">03</option>
<option value="04">04</option>
<option value="05">05</option>
<option value="06">06</option>
<option value="07">07</option>
<option value="08">08</option>
<option value="09">09</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
</select>
:
	  <select name="input_min">
<option SELECTED value="<%=myMinutes%>"><%=myMinutes%></option>
<option value="00">00</option>
<option value="01">01</option>
<option value="02">02</option>
<option value="03">03</option>
<option value="04">04</option>
<option value="05">05</option>
<option value="06">06</option>
<option value="07">07</option>
<option value="08">08</option>
<option value="09">09</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>
<option value="25">25</option>
<option value="26">26</option>
<option value="27">27</option>
<option value="28">28</option>
<option value="29">29</option>
<option value="30">30</option>
<option value="31">31</option>
<option value="32">32</option>
<option value="33">33</option>
<option value="34">34</option>
<option value="35">35</option>
<option value="36">36</option>
<option value="37">37</option>
<option value="38">38</option>
<option value="39">39</option>
<option value="40">40</option>
<option value="41">41</option>
<option value="42">42</option>
<option value="43">43</option>
<option value="44">44</option>
<option value="45">45</option>
<option value="46">46</option>
<option value="47">47</option>
<option value="48">48</option>
<option value="49">49</option>
<option value="50">50</option>
<option value="51">51</option>
<option value="52">52</option>
<option value="53">53</option>
<option value="54">54</option>
<option value="55">55</option>
<option value="56">56</option>
<option value="57">57</option>
<option value="58">58</option>
<option value="59">59</option>
</select>

      </td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">Luogo:</td>
      <td>
        <input type="text" name="luogo" value="" size="64">
      </td>
    </tr>
    <tr>
      <td nowrap align="right" valign="top">Resoconto:</td>
      <td valign="baseline">
        <textarea name="resoconto" cols="50" rows="20"></textarea>
      </td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right"></td>
      <td>
        <input type="submit" name="submit" value="Inserisci serata">
      </td>
    </tr>
  </table>
  
<input type="hidden" name="MM_insert" value="form1">
</form>


</p>
</body>
</html>

(segue mio reply con codice seconda pagina)

[tizianina]

(segue da mio messaggio precedente)

===========================
serate_aggiungi_foto.asp
===========================

<%
If Request.QueryString("chiudi") = "si" then
%>
<SCRIPT Language="JavaScript">
 window.opener.document.location.reload(); 
 parent.close();
</SCRIPT>
<%
End if
%>

<%
If session("IDserata") <> "" then

Dim RSidserata__MMColParam
RSidserata__MMColParam = "1"
If (Session("IDserata") <> "") Then 
  RSidserata__MMColParam = Session("IDserata")
End If

Dim RSidserata
Dim RSidserata_numRows

Set RSidserata = Server.CreateObject("ADODB.Recordset")
RSidserata.ActiveConnection = MM_MM_sito_conn_STRING_STRING
RSidserata.Source = "SELECT titoloevento FROM serate WHERE IDserata = " + Replace(RSidserata__MMColParam, "'", "''") + ""
RSidserata.CursorType = 0
RSidserata.CursorLocation = 2
RSidserata.LockType = 1
RSidserata.Open()

RSidserata_numRows = 0

End if

%>

<%'=(RSidserata.Fields.Item("rif").Value)%>

<%

ssIDserata = session("IDserata")

Dim RSpreview__MMColParam
RSpreview__MMColParam = "1"
If ssIDserata <> "" then

variabilona = RSidserata.Fields.Item("titoloevento").Value

Else

variabilona = Request.Form("titoloevento")

End if

  RSpreview__MMColParam = variabilona

%>

<%
Dim RSpreview
Dim RSpreview_numRows

Set RSpreview = Server.CreateObject("ADODB.Recordset")
RSpreview.ActiveConnection = MM_MM_sito_conn_STRING_STRING
RSpreview.Source = "SELECT * FROM serate WHERE titoloevento = '" + Replace(RSpreview__MMColParam, "'", "''") + "'"
RSpreview.CursorType = 0
RSpreview.CursorLocation = 2
RSpreview.LockType = 1
RSpreview.Open()

RSpreview_numRows = 0
%>

<%
Dim RSfoto__MMColParam
RSfoto__MMColParam = "1"
If (RSpreview.Fields.Item("IDserata").Value <> "") Then 
  RSfoto__MMColParam = RSpreview.Fields.Item("IDserata").Value
End If
%>

<%
Dim RSfoto
Dim RSfoto_numRows

Set RSfoto = Server.CreateObject("ADODB.Recordset")
RSfoto.ActiveConnection = MM_MM_sito_conn_STRING_STRING
RSfoto.Source = "SELECT * FROM foto WHERE IDserata = '" + Replace(RSfoto__MMColParam, "'", "''") + "'"
RSfoto.CursorType = 0
RSfoto.CursorLocation = 2
RSfoto.LockType = 1
RSfoto.Open()

RSfoto_numRows = 0
%>

<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
RSpreview_numRows = RSpreview_numRows + Repeat1__numRows
%>

<%
Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = -1
Repeat2__index = 0
RSfoto_numRows = RSfoto_numRows + Repeat2__numRows
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>DETTAGLI SERATA INSERITA</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<SCRIPT Language="JavaScript">
function visualizzafoto(file2)
{
//window.location.reload();
searchWin2 = window.open(file2,'mostra_comunicazioni','scrollbars=yes,resizable=no,width=500,height=200,top=5,left=0,status=yes,location=no,toolbar=no');
}
</SCRIPT>

<SCRIPT Language="JavaScript">
function visualizzaallegato(file)
{
//window.location.reload();
searchWin = window.open(file,'mostra_comunicazioni','scrollbars=yes,resizable=no,width=500,height=200,top=5,left=0,status=yes,location=no,toolbar=no');
}
</SCRIPT>

<SCRIPT Language="JavaScript">
function chiudiaggiorna
{
 window.opener.document.location.reload(); 
 parent.close();
}
</SCRIPT>

<link href="sito.css" rel="stylesheet" type="text/css">

</head>

<body>

<% If Request.QueryString("finestra") = "risultati" Then %>

<% Else %>

<div align="right">Torna al menu principale</div>

<% End if %>

<% 'Response.write(RSidserata.Fields.Item("rif").Value)%>

<font class="testo1grassetto">DETTAGLI SERATA INSERITA</font>



<table border="0" cellpadding="0" cellspacing="0" class="testo1">
  <tr>	
    <td valign="top" width="120"><font class="testo1grassetto">Titolo evento</font></td>
	<td valign="top"><%=(RSpreview.Fields.Item("titoloevento").Value)%></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#B6DBEE">[img]images/spacer.gif[/img]</td>
  </tr>
  <tr>
    <td valign="top"><font class="testo1grassetto">Data serata</font></td>
	<td valign="top"><%=(RSpreview.Fields.Item("dataserata").Value)%></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#B6DBEE">[img]images/spacer.gif[/img]</td>
  </tr>
  <tr>
    <td valign="top"><font class="testo1grassetto">Ora serata</font></td>
	<td valign="top"><%=(RSpreview.Fields.Item("oraserata").Value)%></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#B6DBEE">[img]images/spacer.gif[/img]</td>
  </tr>
  <tr>
    <td valign="top"><font class="testo1grassetto">Luogo</font></td>
	<td valign="top"><%=(RSpreview.Fields.Item("luogo").Value)%></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#B6DBEE">[img]images/spacer.gif[/img]</td>
  </tr>
  <tr>
    <td valign="top"><font class="testo1grassetto">Resoconto</font></td>
	<td valign="top"><%=(RSpreview.Fields.Item("resoconto").Value)%></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#B6DBEE">[img]images/spacer.gif[/img]</td>
  </tr>
</table>




" target="_blank">Aggiorna i dati sopra riportati





<table border="1" cellspacing="0" cellpadding="5" width="500">
  <tr>
    <td>

Inserisci fotografia



	<table border="0" cellspacing="0" class="testo1">
	
	<% If RSfoto.EOF = 0 then %>
	
	  <tr>
	    <td colspan="5">
		<font class="testo1grassetto">Fotografie già inserite</font>


		</td>
	  </tr>
	  
	<% end if %>
	  
	<% While ((Repeat1__numRows <> 0) AND (NOT RSfoto.EOF)) %>
	
	  <tr valign="middle">
	    <td>
		" target="_blank">[img]/public/sito/foto/<%=(RSfoto.Fields.Item([/img]" border="0" width="80" alt="<%=(RSfoto.Fields.Item("filename_p").Value)%>">
	    </td>
		<td width=4></td>
	    <td>
		<%=(RSfoto.Fields.Item("filename_p").Value)%>
	    </td>
		<td width=4></td>
		<td>
		&IDfoto=<%=(RSfoto.Fields.Item("IDfoto").Value)%>">Cancella
		</td>
	  </tr>
	
	<% 
    Repeat2__index=Repeat2__index+1
    Repeat2__numRows=Repeat2__numRows-1
    RSfoto.MoveNext()
    Wend
    %>

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




<% If Request.QueryString("finestra") = "risultati" Then %>

Termina aggiornamento offerta 

<% Else %>

Termina inserimento offerta 

<% End If %>

</body>
</html>



<%
RSpreview.Close()
Set RSpreview = Nothing
%>
<%
RSfoto.Close()
Set RSfoto = Nothing
%>
<%
If session("IDserata") <> "" then
RSidserata.Close()
End if
Set RSidserata = Nothing
%>

<%
session.Contents.Remove("IDserata")
%>

Grazie molte per l'aiuto!!! []

tizz