Code Lotus Notes

IT-Room CMS

Function valQS(QS As String, ref As String)    Dim p1 As Integer
   Dim p2 As Integer
   Dim tmp As String

   p1 = Instr(QS, ref)

   If p1 = 0 Then
       Exit Function
   Else
       tmp = Mid$(QS, p1 + Len(ref))
       p2 = Instr(tmp, "&")
       If p2 = 0 Then
          valQS = tmp
       Else
          valQS = Mid$(tmp, 1, p2-1)
       End If
   End If
End Function

Dernières actualités

Création site Internet - Challenge VTT

Ouverture du site ChallengeVTT-BassinMinier.com, une nouvelle épreuve est arrivée dans le Bassin Minier.

Référencement Naturel

Afibel reconduit pour la deuxième année notre mission d'accompagnement SEO SEM de sa boutique eCommerce

Phildar - eCommerce

Réalisation d'un extranet distributeurs - Boutique eCommerce à accès restreint - Connexion Cylande...

Création site Internet

Ouverture du site Pavages.fr, PME de 10 personnes. Le gérant trop occupé par son quotidien nous a confié, délégué son projet Internet: réalisation du Design, des contenus, des photos et optimisation au Ref Nat

It-Room ©2016 IT-ROOM Tous droits réservés
Suivez-nous
03 20 82 82 45