<%@ LANGUAGE="VBScript" %>
<%
Dim serverAdresse 'adresse du serveur
Dim user 'utilisateur
Dim password 'mot de passe
Dim nomBase 'nom de la base a utiliser
Dim Maconnexion
Dim conn
Dim nbcol
Dim Temp 'une chaine de caractere
%>
<%
'On ce connecte a la base de donnees
'Parametre de connection a la base
serverAdresse = "blabla\blibli" 'adresse du serveur
user = "leLogin" 'utilisateur
password = "lePassword" 'mot de passe
nomBase = "resultats" 'nom de la base a utiliser
'Ouverture de la connection
Set Maconnexion = Server.CreateObject("ADODB.Connection")
conn = "driver={SQL Server};server="& serverAdresse &";db=" & nomBase & ";user id=" & user & ";pwd=" & password ' & ";option=16386"
Maconnexion.open conn
set nbcol = server.CreateObject("ADODB.Recordset")'on crer l'objet recordset
nbcol.open "SELECT nomTest,etat,plageHoraire FROM resultats_tests WHERE CAST(FLOOR(CAST(laDate AS FLOAT)) AS DATETIME) = '20090519' AND environnement = 'Maison'", Maconnexion, 3, 3, 1 nbcol.movefirst'on ce place sur le 1ere enregistrement du recordset
Temp = Temp &"<TABLE BORDER=1><TR>"
Temp = Temp &"<TD><B>Fonction</B></TD>"
Temp = Temp &"<TD><B>Etat</B></TD>"
Temp = Temp &"<TD><B>Plage Horaire</B></TD>"
Temp = Temp &"</TR>"
DO while Not nbcol.EOF 'tant que on est pas a la fin des enregistrements
Temp = Temp &"<TR>"
Temp = Temp &"<TD>" & nbcol("NomTest") & "</TD>"
Temp = Temp &"<TD>" & nbcol("etat") & "</TD>"
Temp = Temp &"<TD>" & nbcol("plageHoraire") & "</TD>"
Temp = Temp &"</TR>"
nbcol.movenext 'on pas a l'enregistrement suivant
LOOP 'fin de la boucle
nbcol.Close 'on referme l'objet recordset
Set nbcol=Nothing 'on le met a rien pour liberer de la memoire
Maconnexion.Close 'Déconnexion de SQL une fois tout les résultats affiché
Set Maconnexion = Nothing 'Affectation a rien de l'objet Maconnexion
Temp = Temp &"</TABLE>"
HttpContext.Current.Response.ContentEncoding = System.Text.Encoding.Default
HttpContext.Current.Response.ContentType = "application/vnd.ms-excel"
HttpContext.Current.Response.Write(Temp)
%>
Vous n'aimez pas le lifting de Facebook ? Le site Mashable propose cinq étapes pour revenir à l'ancienne présentation du réseau social.
