<%
Sub creaFormUpd()
'dicharazione delle variabili
dim oRS
dim sql
'creazione di una istanza di un oggetto di tipo recordset
Set oRS=Server.CreateObject("ADODB.recordset")
'preparazione della query per il database
sql = "SELECT DISTINCT titolo FROM articoli ORDER BY titolo;"
'apro la connessione con il database ed eseguo la query
oRS.Open sql, "DSN=progetto"
If oRS.EOF Then
Response.Write "
"
Response.Write ""
Response.Write Chr(10) & Chr(13)
Response.End
Else
'sposto il cursore sul primo record che soddisfa la query
oRS.MoveFirst
Response.Write "Seleziona articolo e premi Modifica"
Response.Write " "
Response.Write ""
End If
'chiudo la connessione con il DB e rilascio la memoria
oRS.Close
Set oRS=Nothing
End Sub
%>
"
End If
'chiudo la connessione con il DB e rilascio la memoria
oRS.Close
Set oRS=Nothing
End Sub
%>