Fichier XML de test

<%
' récupération du paramètre
idimage_get = Request.QueryString("idimage")

' création de la connexion à la base de données
Set conn = Server.CreateObject("ADODB.Connection")
' ouverture de la connexion
conn.Open chainedeconnexion ' chainedeconnexion est à préciser suivant votre sgbd et nom de base

' création de la requete
requete = "SELECT type_image, bin_image FROM images WHERE idimage=" & idimage_get

' exécution de la requête
Set rs = conn.Execute(requete)

' positionnement du content-type
Response.ContentType = rs("type_image")

' écriture du contenu du champ blob
Response.BinaryWrite(rs("bin_image"))

' fermeture et destruction de la connexion
conn.close
Set conn = Nothing
%>

<asp:calendar id="Calendar1"  runat="server"
Width="47px" Height="40px">
   <TodayDayStyle Font-Names="Arial" Font-Bold="True" ForeColor="Red"></TodayDayStyle>
   <SelectorStyle Font-Names="Arial"></SelectorStyle>
   <DayStyle Font-Names="Arial" ForeColor="#006600"></DayStyle>
   <DayHeaderStyle Font-Names="Arial" ForeColor="White" BorderColor="#006600" 
        BackColor="#006600"></DayHeaderStyle>
   <!-- The big boss -->
   <OtherMonthDayStyle Font-Names="Arial" ForeColor="#006600" BorderColor="White" 
        BackColor="White"></OtherMonthDayStyle>
</asp:calendar>

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TButton *Button;
    Button = dynamic_cast <TButton *> (Sender);
    if (Button == Button1)
    ShowMessage("Button1");
    else
    if (Button == Button2)
    ShowMessage("Button2");
    else
    ShowMessage("C'est louche");
    Button->Caption = "Appuyé";
}

char c1, c2, c3, c4;

c1 = 5; /* ..00000101 */
c2 = 4; /* ..00000100 */
c3 = c1 <<2; /* 00000101(c1) -> 00010100(c3)*/

if (a==b) {
    x = 5; 
} else {
    x = 10; 
} 

#define c
// commentaire
#endif 
// commentaire

class Base { 
public: 
  void a() { cout << "Base::a" << endl; } 
  virtual void b(); { cout << "Base::b" << endl; } 
}; 

int main() 
{ 
  Base x; 
  x.a(); // affiche Base::a 
  x.b(); // affiche Base::b 

  // le cas intéressant 
}

         // Déclaration des variables 
         ArrayList CompteurXML = new ArrayList(); 
         ArrayList CompteurSQL = new ArrayList(); 

         string sNomTable = Table.TableName; 

         // CompteurXML contient maintenant la liste des champs de la table 
         // passée en paramètre (provenant du fichier XML) 

         for ( int i = 0; i < dsTableSQL.Tables[0].Rows.Count - 1; i++ ) 
         { 
            object [] ligne = dsTableSQL.Tables[0].Rows[i].ItemArray; 

         } 

/* définition du style de la police, et largeur du select */
select {
font-family : Courier ;
font-size : 10px ;
width : 200px;
}

/* élément de couleur bleu */
option.bleu 
{
color : #0000FF ;
background-color :#00CCFF ;

background : blue url(img.png) ; 
background-color : blue ; 
background-image : url(img.png) ; 

}

{
Un commentaire sur
plusieurs lignes }
Var i:Integer;
(*
Et un autre
*)
begin
  For i:=Onglet.PageCount-1 DownTo 0 Do
  Begin
    Onglet.ActivePageIndex:=i;
    // En commentaire d ON ' euuuuuu
    ShowMessage('Truc muche !'kqjhsd'jhkjh''hghghg'); // c'est un comment !
    { et un autre }
    FileName:= 'Document.doc'; // ou 'Document.rtf'
    URL ='http://toto.com';
  End;
end;

[EditeurXML]
Nouveau=
Recent0="C:\BRUNO\HTML\kit.4.0.17\documents\tables\tables.xml"
Recent1="C:\BRUNO\HTML\kit.4.0.17\documents\srcdelphi\srcdelphi.xml"
SommaireWidth=310
WINDOWSTATE=2
WIDTH=696
HEIGHT=480
LEFT=162
TOP=44
TimerMAJSommaire=1000

public class MaClasse{
   public static Map uneVariableStatique = new HashMap();
   static{
      uneVariableStatique.put("une clef","une http://valeur");
      uneVariableStatique.put("une autre clef","une autr\"e valeur\\\"");
      //etc .
   }
}

variable1 = document.formulaire.champs1.value; 
/*variable1 = 12 */
variable2 = "qhkjqhfkq"; 
/*variable2 = 20 */
total = variable1 + variable2; 
/*total = 1220 */

CREAte TABLE	hr.emp
(
	empno	NUMBER(5)		PRIMARY KEY,
	ename	VARCHAR2(15)	NOT NULL,
	job	VARCHAR2(10),
	mgr	NUMBER(5),
	hiredate	DATE		DEFAULT sysdate,
	sal	NUMBER(7,2),
	com	NUMBER(7,2),
	deptno	NUMBER(3)		NOT NULL
		CONSTRAINT dept_fk REFERENCES hr.departments
		(department_id)
)
TABLESPACE	tbs1
 -- on prend tous les entiers de la table #n moins les entiers de la table #n pour 
STORAGE
(
	INITIAL		50K
	NEXT		50K
	MAXEXTENTS	10
	PCTINCREASE	25
) ;

COPY *.* C:\TEMP\BACKUP

if ( $reponse_site == 'OK' ) 
   { 
      // MAJ table users 
      if ( $userdata['user_level'] != ADMIN && $userdata['user_level'] != MOD ) 
      { 
         // 31 * 1 * 86400 = 1 mois 
         $findateabo = time() + 31 * 1 * 86400; 

         $sql = "UPDATE " . USERS_TABLE . " 
            SET user_level = " . VIP_SILVER . ", 
            user_findateabo = $findateabo, 
            user_finabo = 1             
            WHERE user_id = $user_id"; 

           if(!$result = $db->sql_query($sql)) 
           { 
              message_die(GENERAL_ERROR, "Couldn't update user level", "", __LINE__, __FILE__, $sql); 
           } 
      } 


      message_die(GENERAL_MESSAGE, $message, 'Information'); 
   } 
   else 
   { 
      message_die(GENERAL_MESSAGE, $message, 'Information'); 
   } 

' Initialisation de l'accès aux données
Private Sub Form_Load()
   ' Initialisation de l'accès aux données
    Dim MaBD As String
    Dim i as Integer
    
 
   ' Initialisation du graphique simple
    MSChart1.AllowSelections = False    ' Interdit la sélection dans le graphe
    MoyMax = Format(MoyMax / 12, "#0.0 \' ")
End Sub

Imports System
Imports System.Text.RegularExpressions

NameSpace ExemplesRegEx
	Public Class Verification
		Shared Sub Main()
			Dim verif as Regex = new Regex("[0-9]{10}")
			Dim numero as String = "0123456789"
			Dim isNumero As Boolean = verif.IsMatch(numero)
			If isNumero Then
				Console.WriteLine("Le numéro de téléphone est valide ")
			Else
				Console.WriteLine("Le numéro de téléphone n'est pas valide ")
			End If
		End Sub
	End Class
End NameSpace

<?xml version="1.0" encoding="ISO-8859-1"?>
<document>
	<xiti>
		<!-- compteur Dotnet-->
		<alias>Dotnet</alias>
		<logger>logv99</logger>
		<id>12345</id>
	</xiti>
</document>