I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
nicola_prw
nicola_prw
il 16 maggio 2001 alle 18:42
63 messaggi dal 06 settembre 2002
dovrei importare i dati da un db a dei campi text per poi modificarli, con il codice che segue, però, da quando inizio il ciclo do.. mi dice che:"Il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione richiesta dall'applicazione è necessario disporre di un record corrente. "

come devo correggere il listato?
grazie, nicola

PS il codice è un po' lungo, ma per piacere aiutatemi...

<%
Dim Cnn, Rst, strSQL
Set Cnn = Server.CreateObject("ADODB.Connection")
Cnn.Open Application("Cnn")

Set Rst = Server.CreateObject("ADODB.Recordset")


Azione = Trim(UCase(Request("cmdupdate")))
IF azione = "aggiorna" then

RST.Open "lastminute", cnn, 1, 3
RST.update
RST("ID").Value = cInt(Request("state"))
RST("nome_offer").Value = Request("T8")
RST("nomehotel").Value = Request("T7")
RST("categoria").Value = Replace(Request("S1"), "'", "''")
RST("descrizione").Value = Replace(Request("S2"), "'", "''")
RST("prezzo").Value = Request("T10")
RST("emailhotel").Value = Request("T11")

RST.Update
'RST.Close

End IF
%>
<html>

<head>
<title>Inserimento nuovo evento</title>
</head>

<body>

<form method="POST" name="FrontPage_Form1" action="newoffert.asp">
<p align="center"><b><font color="#FF0000">Inserimento nuova offerta</font></b></p>
<p> </p>
<%
StrSql = "SELECT * FROM lastminute "
StrSql = sTRsQL & " WHERE lastminute.id_ = "& cint(request("state"))
Rst.Open StrSql, Cnn
%>

<%Do while rst.eof = true%>
<p>Nome dell'offerta</p>
<p><input type="text" name="t8" width="350" value="<%=rst("nome_offer")%>"></p>
<p>Nome Hotel</p>
<p><input type="text" name="T7" size="54" value="<%=rst("nomehotel")%>"> </p>
<p>Email hotel</p>
<p><input type="text" name="T11" size="54"> </p>
<P>Categoria</p>
<p><input type="text" name="s1" size="54">
<p>Descrizione Offerta</p>
<p><textarea rows="7" name="S2" cols="46"></textarea></p>
<p>Prezzo</p>
<p><input type="text" name="T10" size="54"> </p>
<p>(*) Opzionale</p>
<p><input type="submit" value="Salva" name="cmdupdaete"><input type="reset" value="Reimposta" name="B2"></p>
<%
Rst.movenext
Loop
%>
<%
Rst.close
Cnn.close
Set Rst = Nothing
Set Cnn = Nothing
%>
</form>
</body>
</html>
RispondiQuoting
hamish
hamish
il 16 maggio 2001 alle 19:26
4 messaggi dal 21 marzo 2001
Azione = Trim(UCase(Request("cmdupdate")))
IF azione = "aggiorna" then

RST.Open "lastminute", cnn, 1, 3
RST.update
RST("ID").Value = cInt(Request("state"))
RST("nome_offer").Value = Request("T8")
RST("nomehotel").Value = Request("T7")
RST("categoria").Value = Replace(Request("S1"), "'", "''")
RST("descrizione").Value = Replace(Request("S2"), "'", "''")
RST("prezzo").Value = Request("T10")
RST("emailhotel").Value = Request("T11")

RST.Update
'RST.Close

End IF

Non ho ben capito a cosa serve ma la connessione al recordset e' rimasta aperta.
se ti si impianta su "Rst.Open StrSql, Cnn "
prova a togliere il commento da rst.close e settarla a nothing

ciao

RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.