E ti pareva...
Ciao Regà..,
eccoci di nuovo qui.... ho seguito le indicazioni sul sito per la cancellazione dei recors ma non funge.
E' chiaro che dimentico qualcosa, eppure sui commenti della lezione è scritto che è cosa semplice.
Vi mando lo script che comprende, come da lezione, la prima parte ( funzionante) della lettura del mdb , e la seconda in rosso che comprende lo script aggiunto per la cancellazione.
Gli dareste un'occhiata?
L'occhio esperto vede tutto la volo!
Ok grazie
Dario
:faraone:
<%@LANGUAGE = VBScript%>
<!--#include file="connessione.asp"-->
<%
Dim cn, rs ' Variabili per la connessione e per il Recordset
' Creo un'istanza per la connessione ed una per il Recordset
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
cn.Open str_cn ' Apro la connessione al database
Dim SQL ' Creo la query SQL
SQL = "SELECT * FROM itemsordered"
' Apro il Recordset
rs.Open SQL, cn
%>
<html>
<head>
<title>Lettura dei dati da un database</title>
</head>
<body>
<%
' Verifico che la tabella contenga dati
' Se non ne contiene lancio un messaggio di avviso
If rs.EOF = True Then
%>
<p><font face="Verdana">Nessun dato trovato</font></p>
<font face="Verdana">
<%
' Se invece ne contiene visualizzo i dati in funzione
' della query SQL specificata
Else
While rs.EOF = False
%>
</font>
<p align="center">
<font color="#FF0000" face="Verdana" size="2"><u><b>INDICE PRODOTTI PER
QUANTITA'</b></u></font></p>
<p>
</p>
<p>
<font face="Verdana" size="2">
<b><font color="#0000FF">ID Ordine</font>:</b> <%=rs("orderID")%>
<br>
<b><font color="#0000FF">ID Prodotto</font>:</b> <%=rs("productID")%>
<br>
<b><font color="#0000FF">Quantità</font>:</b> <%=rs("quantity")%>
</font>
</p>
<%
rs.MoveNext
Wend
End If
%>
</body>
</html>
<%
' Chiudo il Recordset
rs.Close
Set rs = Nothing
' Chiudo la connessione
cn.Close
Set cn = Nothing
%>
<%@LANGUAGE = VBScript%>
<%
Dim sc, cn, rs
sc = "driver={Microsoft Access Driver (*.mdb)};dbq="
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open sc & Server.MapPath("/database/metacart.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Dim id
id = Request.QueryString("id")
If id <> "" Then
cn.Execute("DELETE * FROM ItemsOrdered WHERE aut_id = " & id)
End If
%>
<html>
<head>
<title>Cancellazione dei dati</title>
</head>
<body>
<h1>Cancellazione dei dati</h1>
<%
rs.Open "SELECT * FROM itemsordered ORDER BY aut_id ASC", cn, 1
If rs.EOF Then
%>
<p>Nessun record trovato!</p>
<%
Else
While rs.EOF = False
%>
<p>
<a href="cancella.asp?id=<%=rs("aut_id")%>">CANCELLA</a>
(ID: <%=rs("aut_id")%>)
Nome: <%=rs("aut_nome")%>
</p>
<%
rs.MoveNext
Wend
End If
rs.Close
%>
</body>
</html>
<%
Set rs = Nothing
cn.Close
Set cn = Nothing
%>