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

**tizianina** · 04-11-2005, 11:30

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:

codice:

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
=======================

codice:






<%
' *** 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)

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

Strumenti discussione

Ricerca discussione

Visualizza

Visualizzazione discussione

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

Permessi di invio