Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- <!-- METADATA TYPE="typelib" NAME="Microsoft ActiveX Data Objects 2.8 Library" UUID="{2A75196C-D9EB-4129-B803-931327F72D5C}" VERSION="2.8" -->
- <%
- ' Questa parte non è necessaria per l'esempio.
- ' È mia abitudine includerla per assicurarmi che le pagine siano servite come dico io.
- Response.Clear
- Response.CodePage = 65001
- Response.CharSet = "utf-8"
- Response.ContentType = "application/xhtml+xml"
- ' Dichiara la variabile che conterrà il recordset restituito dalla funzione.
- Dim Prodotti
- ' Questa funzione si occupa di leggere un recordset dal database e di restituirlo.
- Function LeggiProdotti
- ' Dichiara le variabili per gli oggetti ADO.
- Dim Connection, Command, Recordset
- ' Inizializza gli oggetti ADODB.
- Set Connection = Server.CreateObject("ADODB.Connection")
- Set Command = Server.CreateObject("ADODB.Command")
- Set Recordset = Server.CreateObject("ADODB.Recordset")
- ' Imposta e apri la connessione al database.
- Connection.ConnectionString = "Provider=SQLNCLI10; Server=SERVER; Database=DATABASE; Uid=UTENTE; Pwd=PASSWORD;"
- Connection.Open
- ' Imposta il comando ADO.
- Command.ActiveConnection = Connection
- Command.CommandText = "select id_prodotto as id, nome_prodotto as nome from prodotti where quantita > 0"
- ' Popola il recordset coi dati.
- ' Queste impostazioni sono necessarie per rendere il recordset disconnettibile.
- Recordset.CursorLocation = adUseClient
- Recordset.Open Command, , adOpenForwardOnly, adLockReadOnly
- ' Disconnetti il recordset.
- Set Recordset.ActiveConnection = Nothing
- ' Restituisci il recordset.
- Set LeggiProdotti = Recordset
- ' Chiudi la connessione al database.
- Connection.Close
- ' Dereferenzia gli oggetti ADO utilizzati.
- Set Recordset = Nothing
- Set Command = Nothing
- Set Connection = Nothing
- End Function
- %>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement