This page is being updated - Thank you for coming back! "
'Create a Query
SQL = "Select photo, anglais 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))
%>
Mahapooram Ensemble
<% ' 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 57
'Response.Write "
"
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 "
%>
This page is updated once every six month
<% 'ajout script: dernière mise à jour %>
<% Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set rs = fs.GetFile(Server.MapPath("../creation/musicians.asp"))
modified = rs.DateLastModified %>
<%= ("Last modified on: ") %>
<%response.write("" & (modified) & "")
Set rs = Nothing
Set fs = Nothing%>
<% 'fin script mise à jour %>
The musicians whose name appear in the above list, may request an update of their resume.
<%= EncryptEmail("info", "silentculture", sU + "Update resume of: (name)", cOe + "Kalashas")%>
