Salve a tutti,
ringrazio chiunque possa darmi una mano a risolvere il mio problema.
Spiego la questione, praticamente in una pagina ho una tabella dove sono presenti
delle checkbox, le vorrei utilizzare per andare a inserire i campi in una tabella, creata con il codice. In poche parole se la check è spuntata nella tabella inserisci "vero" se non è spuntata allora falso. L'errore che mi da è
Errore di run-time di Microsoft VBScript error '800a01a8'
Necessario oggetto: ''
/Carrello/ordine.asp, riga 57
ecco il codice:
<html>
<head>
<title>Effettua il tuo ordine</title>
</head>
<body>
<form action="carrelloarray.asp">
<%
dim objconn
dim query0
dim query1
dim query2
dim query3
dim sqltable
set objconn = server.createobject("adodb.connection")
objconn.open "provider = microsoft.jet.oledb.4.0; data source =" & server.mappath("database.mdb")
sqltable = "CREATE TABLE opzione"
sqltable =sqltable & " (id_articolo CHAR(10) NOT NULL PRIMARY KEY,"
sqltable =sqltable & " selezione CHAR(10));"
objconn.Execute sqltable
%>
<table border = 1>
<tr>
<td>COD ART</td>
<td>DESCRIZIONE</td>
<td>PREZZO</td>
<td></td>
</tr>
<tr>
<td>B77</td>
<td>POLO</td>
<td>15.00</td>
<td><input type="checkbox" name="option0" value="polo"></td>
</tr>
<tr>
<td>A52</td>
<td>COPERTA</td>
<td>25.50</td>
<td><input type="checkbox" name="option1" value="coperta"></td>
</tr>
<tr>
<td>J15</td>
<td>CARTA DA PARATI</td>
<td>10.00</td>
<td><input type="checkbox" name="option2" value="cartadaparati"></td>
</tr>
<tr>
<td>Q87</td>
<td>CUSCINO</td>
<td>20.00</td>
<td><input type="checkbox" name="option3" value="cuscino"></td>
</tr>
</table>
<input type="submit" value="INVIA"></br>
</form>
<%
if option0.checked = true then
query0 ="INSERT INTO opzione"
query0 =query0 & "VALUES ('B77','TRUE')"
objconn.Execute query0
else
query0 ="INSERT INTO opzione"
query0 =query0 & "VALUES ('B77','FALSE')"
objconn.Execute query0
end if
if option1.checked = true then
query0 ="INSERT INTO opzione"
query0 =query0 & "VALUES ('A52','TRUE')"
objconn.Execute query1
else
query0 ="INSERT INTO opzione"
query0 =query0 & "VALUES ('A52','FALSE')"
objconn.Execute query1
end if
if option2.checked = true then
query0 ="INSERT INTO opzione"
query0 =query0 & "VALUES ('J15','TRUE')"
objconn.Execute query2
else
query0 ="INSERT INTO opzione"
query0 =query0 & "VALUES ('J15','FALSE')"
objconn.Execute(query2)
end if
if option3.checked = true then
query0 ="INSERT INTO opzione"
query0 =query0 & "VALUES ('Q87','TRUE')"
objconn.Execute(query3)
else
query0 ="INSERT INTO opzione"
query0 =query0 & "VALUES ('Q87','FALSE')"
objconn.Execute(query3)
end if
objconn.close
set objconn = nothing
%>
</body>
</html>
Rispondi quotando
