modifica dati

[Prof_Mauri]

Ciao a tutti, ho un problemino nella creazione di una pagina di modifica dati; in particolare richiamando i vari campi inseriti precedentemente in una tabella database access, il campo "Importo" (valuta con 2 decimali) mi da il seguente errore :

 <font face=
Microsoft VBScript runtime error '800a000d' 
Type mismatch: 'objRS' 
/riservato/modifica_appuntamento_cliente.asp, line 115

nella pagina in cui visualizzo la query viene mostrato correttamente tramite il seguente codice:

<%=" € "&(formatNumber(objRs("Importo"),2))%>

e lo sto richiamando per modificarlo, così :

<INPUT TYPE="text" NAME="Importo" value="<%=objRs("Importo")%>" size="50">

?

[optime]

ti dà errore solo il campo dell'importo ?

[Prof_Mauri]

Si, solo lui

[optime]

fa' vedere come hai scritto gli altri

[Prof_Mauri]

ok, ti mostro tutto il codice così posso chiederti se è corretta anche la parte relativa ai campi "option value" che ancora non ho potuto vedere se vanno bene dal momento che il codice mi da errore sul campo importo:

<%
id = trim(request.querystring("id"))
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = d:\inetpub\webs\....mdb")
Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute("SELECT * FROM Trattamenti WHERE IDTrattamento="&id )
Do while NOT objRs.EOF
%>
<form method="POST" action="conferma_modifica_appuntamento_cliente.asp?id=<%=objRs("IDTrattamento")%>">
<table cellpadding="6">
<tr>
<td align="left"><font size="4">Data</font>
</td>
<td></td>
<td align="left" bgcolor="#FFFFFF"><font size="3">
<INPUT TYPE="text" NAME="Data" value="<%=objRs("Data")%>" size="50">
</td>
</tr>
<tr>
<td align="left"><font size="4">Ora</font>
</td>
<td></td>
<td align="left" bgcolor="#FFFFFF"><font size="3">
<INPUT TYPE="text" NAME="OraInizio" value="<%=objRs("OraInizio")%>" size="50">
</td>
</tr>
<tr>
<td align="left"><font size="4">Trattamento</font>
</td>
<td></td>
<td>
<select name="IDTipo Trattamento">
<option value="">seleziona</option>
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = d:\inetpub\webs\....mdb")
Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute("SELECT [IDTipo Trattamento],[Descrizione Trattamento] FROM [Tipologie Trattamenti]")
if not objRs.eof then
do until objRs.eof
%>
<option value="<%=objRs("IDTipo Trattamento")%>"><%=objRs("Descrizione Trattamento")%></option>
<%
objRs.moveNext
loop
%>
</select>
<%
end if
Loop
objRs.close
set objRs = nothing
objConn.close
set objConn = nothing
%>
</select>
</td>
</tr>
<tr>
<td align="left"><font size="4">Operatore</font>
</td>
<td></td>
<td>
<select name="IDImpiegato">
<option value="">seleziona</option>
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = d:\inetpub\webs\....mdb")
Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute("SELECT IDImpiegato,[Cognome e Nome] FROM Dipendenti")
if not objRs.eof then
do until objRs.eof
%>
<option value="<%=objRs("IDImpiegato")%>"><%=objRs("Cognome e Nome")%></option>
<%
objRs.moveNext
loop
%>
</select>
<%
end if
objRs.close
set objRs = nothing
objConn.close
set objConn = nothing
%>
</select>
</td>
</tr>
<tr>
<td align="left"><font size="4">Importo</font>
</td>
<td></td>
<td align="left" bgcolor="#FFFFFF"><font size="3">
<INPUT TYPE="text" NAME="Importo" value="<%=objRs("Importo")%>" size="50">
</td>
</tr>
<tr>
<td></td>
</tr>
<tr>
<td>
<button type="submit" style="width: 206px; height: 43px">


<font size="5px">Modifica</font></p>
</button>
</td>
</form>
</tr>
<tr>
<td>
<form method="post" action="report_appuntamenti_cliente.asp?id=<%=objRs("IDCliente")%>">
<button type="submit" style="width: 206px; height: 43px">


<font size="5px">Annulla</font></p>
</button>
</form>
</td>
</tr>
<%objRs.Movenext
objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
%>
</table>

[optime]

hai fatto bene a postare tutto. ti sarai quindi accorto che quando arivi ad usare il campo importo hai già bello che distrutto l'oggetto objrs...

[Prof_Mauri]

scusa ma ho provato a togliere i vari objRs.Close che ci sono prima dell'ultimo ma non cambia nulla, cos'è che devo correggere?

[optime]

devi anche togliere la distruzione

[Prof_Mauri]

se ti riferisci all'objRs=nothing l'ho provato ma ho lo stesso errore

[optime]

posta il codice pulito