nouveautes

nouveautes

Abonnez-vous et recevez gratuitement
la blague du jour par email !

Abonnez-vous et recevez gratuitement
la blague du jour par email !

Notre serveur de chat mirc est disponible via "mirc" vous devez aller ajouter le nom du serveur dans le programme de mirc...dans "FILE "SETUP" ADD" ajouter ca; DESCRIPTION: chat-rencontre " IRC_SERVEUR: rigoler.dynip.com PORT: 6667 Si vous ne posseder pas le logiciel de mirc "chat"vous pouvez le téléchanger ici immédiatement.. télécharger de mirc et venez nous rejoindre dans rencontre amour et amitié TÉLÉCHARGEMENT DE MIRC CHAT CLIQUE ICI

Abonnez-vous et recevez gratuitement
la blague du jour par email !

rigoler_preservatifs_bladen.gif (90270 octets)

<% dim cn dim rc dim nbre dim sql Set cn = CreateObject("ADODB.Connection") cn.Provider="Microsoft.Jet.OLEDB.4.0" cn.ConnectionString=Server.MapPath("http://rigoler.ca/cgi-bin/compteur/compteur.mdb") cn.Open() Set rc=CreateObject("ADODB.Recordset") sql= " select * from compte" rc.Open sql,cn nbre=rc("nbr") if session ("compteur")=1 then nbre=nbre+1 else nbre=nbre end if session("nbre")=nbre Set rc2=Server.CreateObject("ADODB.Recordset") sql= " Update compte set nbr = '" & nbre & "'" rc2.Open sql,cn cn.Close Set cn = Nothing set rc = Nothing set rc2 = Nothing %> compteur

<% longueur = len(session("nbre")) SELECT CASE longueur CASE 1 for i =1 to 5 %>

<% next for i =1 to longueur numero=mid(session("nbre"),i,1) %>

<%next CASE 2 for i =1 to 4 %>

<% next for i =1 to longueur numero=mid(session("nbre"),i,1) %>

<%next CASE 3 for i =1 to 3 %>

<% next for i =1 to longueur numero=mid(session("nbre"),i,1) %>

<%next CASE 4 for i =1 to 2 %>

<% next for i =1 to longueur numero=mid(session("nbre"),i,1) %>

<%next CASE 5%>

<%for i =1 to longueur numero=mid(session("nbre"),i,1) %>

<%next CASE 6 for i =1 to longueur numero=mid(session("nbre"),i,1) %>