<!-- #include file="_fpclass/fpdblib.inc" -->
<html><head>
<title> Utilizzo delle
funzioni di FrontPage per la gestione di archivi</title>
</head>
<body>
<!--
' La tabella Anagrafico contenuta nell'archivio Clienti ha la seguente
struttura:
' ID contatore/codice del cliente
' Nome testo
' Cognome testo
' Indirizzo testo
-->
<table width= "100%"
border="1">
<thead>
<tr>
<td><b>ID</b></td>
<td><b>Nome</b></td>
<td><b>Cognome</b></td>
<td><b>Indirizzo</b></td>
</tr>
</thead>
<tbody>
<%
' Stringa SQL
fp_sQry="SELECT * FROM Anagrafico"
' Se la stringa puó essere scritta
tramite form dal visitatore
' la variabile seguente deve avere il valore True
fp_fCustomQuery=False
fp_sDataConn="Clienti"
' Connessione
set fp_conn = Server.CreateObject("ADODB.Connection")
' Nel file global.asa FrontPage ha assegnato a delle variabili
Application
' tutti i dati relativi ai vari archivi.
' In questo esempio, le variabili hanno il prefisso (fp_sDataConn)
"clienti"
' Ovviamente questi valori possono essere modificati manualmente.
fp_conn.ConnectionTimeout = Application(fp_sDataConn & "_ConnectionTimeout")
fp_conn.CommandTimeout = Application(fp_sDataConn & "_CommandTimeout")
fp_sConn = Application(fp_sDataConn & "_ConnectionString")
fp_sUid = Application(fp_sDataConn & "_RuntimeUserName")
fp_sPwd = Application(fp_sDataConn & "_RuntimePassword")
' La funzione FP_OpenConnection, per l'attivazione della
connessione, si trova in
' _fpclass/fpdblib.inc
FP_OpenConnection fp_conn, fp_sConn, fp_sUid, fp_sPwd, Not(fp_fCustomQuery)
set fp_cmd = Server.CreateObject("ADODB.Command")
fp_cmd.CommandText = fp_sQry
fp_cmd.CommandType = 1 'fp_iCommandType
set fp_cmd.ActiveConnection = fp_conn
set fp_rs = Server.CreateObject("ADODB.Recordset")
set fp_rs.Source = fp_cmd
' Anche le seguenti funzioni si trovano in _fpclass/fpdblib.inc
FP_SetCursorProperties(fp_rs)
FP_OpenRecordset(fp_rs)
Do
if fp_rs.EOF then exit do
' I valori dei vari campi vengono letti tramite la funzione
' FP_FieldVal, che usa server.HTMLEncode per visualizzarli
%>
<tr>
<td><%=FP_FieldVal(fp_rs,"ID")%></td>
<td><%=FP_FieldVal(fp_rs,"Nome")%></td>
<td><%=FP_FieldVal(fp_rs,"Cognome")%></td>
<td><%=FP_FieldVal(fp_rs,"Indirizzo")%></td>
</tr>
<%
fp_rs.MoveNext
Loop
' Anche FP_Cloce fa parte della libreria fpdblib.inc
if IsObject(fp_rs) then
FP_Close(fp_rs)
FP_Close(fp_conn)
end if
set fp_rs = Nothing
set fp_cmd = Nothing
set fp_conn = Nothing
%>
</tbody>
</table>
</body>
</html>
|
