Cette page fait présentement l'objet d'une mise à jour - Merci de patienter!"
'Create a Query
SQL = "Select photo, francais From musiciens ORDER BY nom, prenom"
'Get a Record Set
Set RS = DBConnection.Execute(SQL)
Select Case RS.eof
Case False
RSArray = RS.getrows
'RSArray(Field, Record)
Number_Of_Fields = Cdbl(UBound(RSArray, 1))
Number_Of_Records = Cdbl(UBound(RSArray, 2))
%>
Ensemble Mahapooram
<% ' Pour récupérer les données
For R = 0 to Number_Of_Records
'pour changer couleurs des rangs
if intRowColor = 0 Then
Response.Write "
"
intRowColor = 1
Else
Response.Write "
"
intRowColor = 0
End if
' Fin code pour changer couleurs
' Si code couleur rangs absent, insérer code ligne suivante à la suite de ligne 54:
' Response.Write "
"
' ... et continuer avec script ci-dessous.
' Pour récupérer les données (suite):
For F = 0 to Number_Of_Fields
Response.Write "
" & RSArray(F, R)& "
"
Next
Response.Write "
"
Next
Response.Write "
"
Case True
Response.Write "No Records were found"
End Select'Destroy Record Set (RS)
Set RS = Nothing
' Response.Write " Database Closed "
%>
Cette page est mise à jour une fois tous les six mois.
<% 'ajout script: dernière mise à jour %>
<% Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set rs = fs.GetFile(Server.MapPath("../creation/musiciens.asp"))
modified = rs.DateLastModified %>
<%= ("Dernière mise à jour le: ") %>
<%response.write("" & (modified) & "")
Set rs = Nothing
Set fs = Nothing%>
<% 'fin script mise à jour %>
Les interprètes qui apparaissent dans la liste, ci-dessus, peuvent envoyer une modification de leur résumé.
<%= EncryptEmail("info", "silentculture", sU + "Modification des notes biographiques de:", cO + "Kalashas")%>
