<%
'INIZIO IMPOSTAZIONI ******************
session.LCID = 1040
dbPath = server.mapPath("/database/Db_Giocatori.mdb")
dbConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& dbpath
'FINE IMPOSTAZIONI *******************
'Lista dei giocatori
'INPUT: connessione
'OUTPUT: array a due dimensioni con le informazioni dei giocatori
sub elencoGiocatori(objConn,byRef elencoGiocatoriOutput)
sql = "SELECT * FROM tGiocatori ORDER BY giocatore_cognome"
set rs = server.createObject("ADODB.Recordset")
rs.open sql, objConn, 1, 3
if not rs.eof then
v = 0 'Contatore giocatori
ReDim elencoGiocatoriOutput((rs.recordCount-1),3)
do while not rs.eof
elencoGiocatoriOutput(v,0) = rs("giocatore_id")
elencoGiocatoriOutput(v,1) = rs("giocatore_cognome")
elencoGiocatoriOutput(v,2) = rs("giocatore_nome")
elencoGiocatoriOutput(v,3) = rs("giocatore_reti")
v = v + 1
rs.moveNext
loop
end if
rs.close
set rs = nothing
end sub
'Modifica reti giocatore
'INPUT: connessione, informazioni dei giocatori provenienti dal modulo di modifica
'OUTPUT: //
sub aggiornaReti(objConn,giocatore_id,giocatore_reti)
strSQL = "UPDATE tGiocatori SET giocatore_reti = "& myReti &" WHERE giocatore_id=" & myID
objConn.Execute(strSQL)
end sub
sub dbConnect(objConn,connString)
set objConn = server.createObject("ADODB.Connection")
objConn.open connString
end sub
sub dbDisconnect(objConn)
objConn.close
set objConn = nothing
end sub
%>