Either BOF or EOF is True, record delete

**gsflash** · 09-12-2004, 14:01

e perchè la mia pagina come questa che non ha nessun EOF, nè BOF, nè loop. Quale sarebbe il motivo?

ecco il codice:

------------------------------------------------------------------
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"
if request.form("disabilita")<>"" then
MM_editquery2 = "UPDATE db_badge SET stato = 'S', note_disab ='"& Request.Form("motivi") &"', data_disab='"& request.Form("data_disab") &"', ora_disab='"& request.Form("ora_disab") &"' WHERE num_badge=" & request.querystring("num_badge")
nome@dominio.it?SUBJECT=Disabilitare il badge n. " & request.querystring("num_badge") & "&BODY=Ciao Nome di Nessuno, disabilita questo badge " & request.querystring("num_badge") & "")
set miamail=server.createobject("cdonts.newmail")
miamail.from="nome@dominio.it"
miamail.to="altronome@dominio.it"
miamail.subject="Oggetto: Disabilitare il badge n. " & request.querystring("num_badge") & ""
miamail.body="Ciao Nome di Nessuno, disabilita questo badge " & request.querystring("num_badge") & ""
miamail.send
set miamail=nothing
else
MM_editquery2 = "UPDATE db_badge SET stato = 'D' WHERE num_badge=" & request.querystring("num_badge")
end If
MM_editquery3 = "DELETE from assegnatario WHERE num_badge=" & request.querystring("num_badge")

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

Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery2
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery3
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

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

End If
%>
<%
Dim consegna__MMColParam
'consegna__MMColParam = "1"
If (Request.QueryString("num_badge") <> "") Then
consegna__MMColParam = Request.QueryString("num_badge")
End If
%>
<%
Dim consegna
Dim consegna_numRows

Set consegna = Server.CreateObject("ADODB.Recordset")
consegna.ActiveConnection = MM_autentica_STRING
consegna.Source = "SELECT * FROM dbo.assegnatario WHERE num_badge = " + Replace(consegna__MMColParam, "'", "''") + ""
consegna.CursorType = 0
consegna.CursorLocation = 2
consegna.LockType = 1
consegna.Open()

consegna_numRows = 0
%>
<%
Dim utente__MMColParam
'utente__MMColParam = "1"
If (Session("MM_Username") <> "") Then
utente__MMColParam = Session("MM_Username")
End If
%>
<%
Dim utente
Dim utente_numRows

Set utente = Server.CreateObject("ADODB.Recordset")
utente.ActiveConnection = MM_autentica_STRING
utente.Source = "SELECT * FROM dbo.utente WHERE Cogn = '" + Replace(utente__MMColParam, "'", "''") + "'"
utente.CursorType = 0
utente.CursorLocation = 2
utente.LockType = 1
utente.Open()

utente_numRows = 0
%>
<%
Dim stato__MMColParam
stato__MMColParam = "1"
If (Request.QueryString("num_badge") <> "") Then
stato__MMColParam = Request.QueryString("num_badge")
End If
%>
<%
Dim stato
Dim stato_numRows

Set stato = Server.CreateObject("ADODB.Recordset")
stato.ActiveConnection = MM_autentica_STRING
stato.Source = "SELECT * FROM dbo.db_badge WHERE num_badge = " + Replace(stato__MMColParam, "'", "''") + ""
stato.CursorType = 0
stato.CursorLocation = 2
stato.LockType = 1
stato.Open()

stato_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
function DoDateTime(str, nNamedFormat, nLCID)
dim strRet
dim nOldLCID
strRet = str
If (nLCID > -1) Then
oldLCID = Session.LCID
End If
On Error Resume Next
If (nLCID > -1) Then
Session.LCID = nLCID
End If
If ((nLCID < 0) Or (Session.LCID = nLCID)) Then strRet = FormatDateTime(str, nNamedFormat)
End If
If (nLCID > -1) Then Session.LCID = oldLCID
End If
DoDateTime = strRet
End Function
</SCRIPT>
poi

<body>
<form action="<%=MM_editAction%>" method="POST" name="consegna" id="consegna">
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>
<td>[img]immagini/spacer.gif[/img]</td>
<td>[img]immagini/spacer.gif[/img]</td>
<td>[img]immagini/spacer.gif[/img]</td>
<td>[img]immagini/spacer.gif[/img]</td>
<td>[img]immagini/spacer.gif[/img]</td>
</tr>
<tr>
<td colspan="4">[img]immagini/dettaglio_r1_c1.jpg[/img]</td>
<td>[img]immagini/spacer.gif[/img]</td>
</tr>
<tr>
<td colspan="3">[img]immagini/dettaglio_r2_c1.jpg[/img]</td>
<td rowspan="4" valign="top" bgcolor="#003366"><table width="313" border="0" align="center">
<tr>
<td colspan="3"><div align="center">
<input name="utente_ass" type="hidden" id="utente_ass" value="<%=(consegna.Fields.Item("utente").Value)%> ">
<input name="num_badge" type="hidden" id="num_badge" value="<%=request.querystring("num_badge")%>">
<input name="matricola" type="hidden" id="matricola" value="<%=consegna.Fields.Item("matricola")%>">
<input name="Cognome" type="hidden" id="Cognome" value="<%=(consegna.Fields.Item("Cognome").Value)% >">
<input name="Nome" type="hidden" id="Nome" value="<%=(consegna.Fields.Item("Nome").Value)%>">
<input name="tipologia" type="hidden" id="tipologia" value="<%=(consegna.Fields.Item("tipologia").Value )%>">
<input name="data_cons" type="hidden" id="data_cons" value="<%= DoDateTime((consegna.Fields.Item("ora_cons").Value ), 4, 1033) %>">
<input name="ora_cons" type="hidden" id="ora_cons" value="<%= DoDateTime((consegna.Fields.Item("data_cons").Valu e), 2, 1030) %>">
<input name="utente_cons" type="hidden" id="utente_cons" value="<%=(utente.Fields.Item("Cogn").Value)%>">
</div></td>
</tr>
<tr>
<td width="119"><div align="right">Cognome:</div></td>
<td width="157"><span class="style11"><%=(consegna.Fields.Item("Cognome" ).Value)%></span></td>
<td width="15"> </td>
</tr>
<tr>
<td><div align="right">Nome:</div></td>
<td><span class="style11"><%=(consegna.Fields.Item("Nome").V alue)%></span></td>
<td> </td>
</tr>
<tr>
<td><div align="right">Data Consegnato:</div></td>
<td><span class="style11"><%= DoDateTime((consegna.Fields.Item("data_cons").Valu e), 2, 1030) %></span></td>
<td> </td>
</tr>
<tr>
<td><div align="right">Ora Consegnato: </div></td>
<td><span class="style11"><%= DoDateTime((consegna.Fields.Item("ora_cons").Value ), 4, 1033) %></span></td>
<td> </td>
</tr>
<tr>
<td><div align="right">Tipologia:</div></td>
<td><span class="style11">
<%
if consegna.Fields.Item("tipologia").Value = "1" then
response.write "Dipendente"
end if
%>
<%
if consegna.Fields.Item("tipologia").Value = "2" then
response.write "Consulente"
end if
%>
<% if consegna.Fields.Item("tipologia").Value = "3" then
response.write "Fornitore"
end if
%>
<% if consegna.Fields.Item("tipologia").Value = "4" then
response.write "Cliente"
end if%>
</span></td>
<td> </td>
</tr>
<tr>
<td><div align="right"> Note:</div></td>
<td><%
'if consegna.Fields.Item("note").Value = "vuoto" then
'note.notefield.visible = "false"
'end if
%>
<textarea name="notefield" cols="15" rows="3" wrap="VIRTUAL" id="notefield" type="hidden"><%=(consegna.Fields.Item("note").Val ue)%></textarea>
</td>
<td> </td>
</tr>
</table>

<input type="hidden" name="MM_insert" value="consegna">

<input type="submit" name="Submit" value="Assegna" onClick="return confirm('Sicuro di assegnare?')" >
</p></td>
<td></td>
</tr>
<tr>
<td rowspan="2">[img]immagini/dettaglio_r3_c1.jpg[/img]</td>
<td valign="top" bgcolor="#FFFFFF"><p align="center"><span class="style6"><%=request.querystring("num_badge")%></span></p></td>
<td rowspan="2">[img]immagini/dettaglio_r3_c3.jpg[/img]</td>
<td>[img]immagini/spacer.gif[/img]</td>
</tr>
<tr>
<td>[img]immagini/dettaglio_r4_c2.jpg[/img]</td>
<td>[img]immagini/spacer.gif[/img]</td>
</tr>
<tr>
<td colspan="3" valign="top" bgcolor="#003366">

</p>
<table width="200" border="1">
<tr>
<td>data ritiro </td>
<td><div align="center">
<input name="data_disab" type="text" id="data_disab" value="<%
varData = now
Response.Write(formatDateTime(varData, vbShortDate))%>
" size="10">
</div></td>
</tr>
<tr>
<td>ora ritiro</td>
<td><div align="center">
<input name="ora_disab" type="text" id="ora_disab" value="<%
function orario()
dim intOra
intOra=datepart("h", time() )
if len(intOra)="1" then
intOra="0" & intOra
end if
dim intMin
intMin=datepart("n", time() )
if len(intMin)="1" then
intMin="0" & intMin
end if
dim intSec
intSec=datepart("s", time() )
if len(intSec)="1" then
intSec="0" & intSec
end if
orario= intOra&":"&intMin&":"&intSec
end function
response.write orario()
%>
" size="10">
</div></td>
</tr>
</table>

Disabilita
<input name="disabilita" type="checkbox" id="disabilita" onClick="document.all.motivi.style.display = (document.all.motivi.style.display == 'none') ? '' : 'none';" >
<select name="motivi" id="motivi" style="display:none">
<option value="Furto">Furto</option>
<option value="Spezzato">Spezzato</option>
<option value="Foto illeggibile">Foto illeggibile</option>
<option value="Lettura non corretta">Lettura non corretta</option>
</select>
</p>

</p></td>
<td>[img]immagini/spacer.gif[/img]</td>
</tr>
</table>
</form>
</body>
</html>
<%
consegna.Close()
Set consegna = Nothing
%>
<%
utente.Close()
Set utente = Nothing
%>
<%
stato.Close()
Set stato = Nothing
%>
<%session("start") = true
session.timeout = 4 %>

<%if not session("start") then
response.redirect ("login.asp")
end if
%>
----------------------------------------------------------------------

Vediamo che cosa mi direte il motivo.... Grazie e so che è lunga ma non riesco a capire qual'è il problema e per questo ho postato tutta la pagina....
Poi per cortesia di dare un'occhiata su setmail o mailto, poi anche vorrei lasciare il fields con ora e data, così potranno essere modificabili con precisa data....
Grazie

**teorema55** · 09-12-2004, 14:10

Comincerei a sostituire i vari segni "+" presenti nel testo delle query con altrettanti segni "&" e poi a testare di nuovo.

**gsflash** · 10-12-2004, 11:39

buongiorno teoroma55, ho provato a fare quello che mi hai detto anche se mi sembrava che non c'entrava niente, infatti non è successo niente e sempre lo stesso errore......

**4everskiff** · 10-12-2004, 11:55

ehm... il codice non è proprio un esempio di ordine e pulizia... se costringi i navigatori del forum a pipparsi un codice così lingo e incasinato riceverai un aiuto utile forse fra 30 anni!

mi potresti postare l'errore esatto che ti da il codice?

Discussione: Either BOF or EOF is True, record delete

Strumenti discussione

Ricerca discussione

Visualizza

Either BOF or EOF is True, record delete

Permessi di invio