ho questo problema ho questo codice per l'aggiornamento però ho mi viene sempre fuori questo errore ADODB.Recordset (0x800A0CB3) localizzato nella linea 35 che sarebbe objrs.AddNew qualcuno mi può aiutare
<html>
<head>
<title>Bungalow</title>
</head>
<body>
<form method="POST" action = "insb.asp">
Id bungalow:</p> <input type="text" name="txt_id_bungalow">
</br>
Stato:</p> <input type="RADIO" name="txt_stato" value="Libero"checked>Libero
<input type="RADIO" name="txt_stato" value="Ocupato">Occupato
</br>
Data di arrivo:</p> <input type="text" name="txt_data_arrivo">
</br>
Data di partenza:</p> <input type="text" name="txt_data_partenza">
</br>
Costo settimanale bassa stagione:</p> <input type="text" name="txt_costo_sbs">
</br>
Costo settimanale media stagione:</p> <input type="text" name="txt_costo_sms">
</br>
Costo settimanale alta stagione:</p> <input type="text" name="txt_costo_sas">
</br>
numero massimo di persone:</p> <input type="text" name="persone">
</br>
descrizione:</p> <input type="text" name="descrizione">
</br>
<input type="submit" name="invia" value="invia">
</form>
</body>
</html>
<%
Dim objconn
Dim objrs
Dim SQL
Dim tid_bungalow
Dim tstato
Dim tdata_arrivo
Dim tdata_partenza
Dim tcosto_sbs
Dim tcosto_sms
Dim tcosto_sas
Dim tdescrizione
Dim tpersone
tid_bungalow = Request.Form("txt_id_bungalow")
tstato = REQUEST.Form("txt_stato")
tdata_arrivo = Request.Form("txt_data_arrivo")
tdata_partenza = Request.Form("txt_data_partenza")
tcosto_sbs = Request.Form("txt_costo_sbs")
tcosto_sms = Request.Form("txt_costo_sms")
tcosto_sas = Request.Form("txt_costo_sas")
tpersone = Request.Form("txt_persone")
tdescrizione = Request.Form("txt_descrizione")
set objconn = server.createobject("adodb.connection")
set objrs = server.createobject("adodb.recordset")
objconn.open = " PROVIDER = Microsoft.Jet.OLEDB.4.0; DATA SOURCE= " & server.Mappath("villaggio.mdb")
SQL = "SELECT * FROM BUNGALOW"
SQL =SQL&" where '" & tid_bungalow & "' = id_bungalow"
objrs.open SQL, objconn, 3, 3
if objrs.bof=(true) and objrs.eof=(true) then
response.write "ok"
objrs.AddNew
objrs("id_bungalow")= tid_bungalow
objrs("stato")= tstato
objrs("data_arrivo")= tdata_arrivo
objrs("data_partenza")= tdata_partenza
objrs("costo_sbs")= tcosto_sbs
objrs("costo_sms")= tcosto_sms
objrs("costo_sas")= tcosto_sas
objrs("numero_pm")= tpersone
objrs("descrizione")= tdescrizione
objrs.update
else
response.write "bungalow già inserito"
end if
objrs.close
objconn.close
set objconn= nothing
set objrs= nothing
%>
set objrs= nothing
%>
Rispondi quotando
)
