SITE DYNAMIQUE + GÉNÉRATEUR DE STATS + ESPACE SÉCURISÉE EN FULL ASP

codacode

Messages postés: 8
Date d'inscription: lundi 1 décembre 2003
Statut: Membre
Dernière intervention: 19 mai 2004

- 22 févr. 2004 à 20:47
cs_Dannyc

Messages postés: 14
Date d'inscription: samedi 21 décembre 2002
Statut: Membre
Dernière intervention: 22 avril 2006

- 20 avril 2006 à 07:59

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/20623-site-dynamique-generateur-de-stats-espace-securisee-en-full-asp

cs_Dannyc

Messages postés: 14
Date d'inscription: samedi 21 décembre 2002
Statut: Membre
Dernière intervention: 22 avril 2006

20 avril 2006 à 07:59

Bonjour,

Pour moi, j'ai un souci d'affichage dans la fenêtre central du menu. Pourtant le lien que j'indique et bien celui de mes pages. Dans la BBD dans le champ chemin, j'indique http://www.monsite.com/default.asp et _parent dans le champ intégration. Il m'indique lien non trouvé. Par contre si je mets _blank celui-ci s'ouvre en plein écran.

Avez-vous une solution à me donner, je ne connais pas grand chose en code asp.

Merci et mes salutations

kwassi73

Messages postés: 1
Date d'inscription: jeudi 5 mai 2005
Statut: Membre
Dernière intervention: 6 février 2006

6 févr. 2006 à 23:15

est-ce que quelqu'un aurait trouver la solution par hasard?

merci

riko007

Messages postés: 3
Date d'inscription: vendredi 13 mai 2005
Statut: Membre
Dernière intervention: 13 mai 2005

13 mai 2005 à 16:11

Quelqu'un peut-il m'aider ... ?

riko007

Messages postés: 3
Date d'inscription: vendredi 13 mai 2005
Statut: Membre
Dernière intervention: 13 mai 2005

13 mai 2005 à 16:11

Quelqu'un peut-il m'aider...?

riko007

Messages postés: 3
Date d'inscription: vendredi 13 mai 2005
Statut: Membre
Dernière intervention: 13 mai 2005

13 mai 2005 à 16:10

bonjour,
j'utilise une bdd sous access 2000 et la connexion se fait sous asp.

la chaine de connexion est correcte et cela fonctionnait sous windows2000.

Voivi ce que j'obtiens sous windowsXP:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][Pilote ODBC Microsoft Access]Mise à jour impossible. La base de données ou l'objet est en lecture seule.

codacode

Messages postés: 8
Date d'inscription: lundi 1 décembre 2003
Statut: Membre
Dernière intervention: 19 mai 2004

22 févr. 2004 à 20:47

Bonjour, voilà je suis un newbies en programmation asp, je tiens à le préciser pour que certains d'entre vous puisse m'aiguiller.

J'ai testé mais il m'affiche rien :(

----------------------------------------------------------

'Connexion à la base (code de mon hebergeur - http://www.aspserveur.com/support.htm)

<%
Set Conn = Server.CreateObject("ADODB.Connection")
chemin = Server.MapPath("../"&thepath)&"\databases\counter.mdb"
Conn.open "driver={Microsoft Access Driver (*.mdb)};DBQ="&chemin
%>

<%
IP=request.serverVariables("REMOTE_ADDR") 'On récupère l'adresse du visiteur

Datefr = split(Date,"/") 'On crée un tableau pour séparation de la date d'aujourd'hui
Dateus = Datefr(2) & "/" & Datefr(1) &"/"& Datefr(0) 'On la converti en date US pour Access

Set RS_Utilisateur = Server.CreateObject("ADODB.Recordset")
SQL_Utilisateur "SELECT * FROM [T_Visiteurs] WHERE Adresse_Ip'" & IP & "' AND Date = #" & Dateus & "#" 'On créé une requête recherchant si ce visiteur est déjà venu aujourd'hui
RS_Utilisateur.open SQL_Utilisateur ,Conn ,3 ,3

if RS_Utilisateur.eof then 'Si le recordset ne contient pas d'enregistrement
RS_Utilisateur.addnew 'C'est que c'est la première visite
RS_Utilisateur("Adresse_IP") = IP 'Dans ce cas on ajoute son adresse dans la table T_Visiteurs
RS_Utilisateur("Date") = Date() 'On inscrit également la date
RS_Utilisateur("Heure") = Time() 'Ainsi que l'heure
RS_Utilisateur("Nb_Session") 1 'On fixe le nombre de session à 1> Normale première visite
RS_Utilisateur.update 'MAJ de la base

elseif (Datediff ("d",RS_Utilisateur("Date"), Date()) > 0 )OR Datediff ("n",RS_Utilisateur("Heure"), Time()) > 5 then 'Sinon cela signifie que ce n'est pas la première visite
RS_Utilisateur("Nb_Session") = RS_Utilisateur("Nb_Session") + 1 'Dans ce cas on incrémente le compteur du visiteur
RS_Utilisateur("Date") = Date() 'On y indique de nouveau la date
RS_Utilisateur("Heure") = Time() 'Ainsi que l'heure
RS_Utilisateur.update 'Et on met à jour
end if

RS_Utilisateur.close

SQL_NbVisite = "SELECT SUM(Nb_Session) AS ND_VISITE FROM [T_VISITEURS]" 'Requete indiquant le nombre de visite depuis la mise en ligne du site
SQL_Visiteurs_simult "SELECT * FROM [T_VISITEURS] WHERE DATE # " & Dateus & " # AND HEURE > #" & DateAdd ("n", -5, Time()) & " #" 'Requete indiquant le nombre de visiteur simultanée
SQL_Visite_today "SELECT * FROM [T_VISITEURS] WHERE DATE # " & Dateus & " # " 'Requete indiquant le nombre de visite aujourd'hui
SQL_test = "SELECT DATE, SUM(Nb_Session) AS ND_Today From [T_VISITEURS] Group By Date Having DATE= # " & Dateus & " # "

RS_Utilisateur.Open SQL_NbVisite, Conn 'On obtient le nombre de visite

Nb_Visite = RS_Utilisateur("ND_VISITE")

RS_Utilisateur.close

RS_Utilisateur.Open SQL_Visiteurs_simult, Conn 'Le nombre d'utilisateur simultanée

Nb_Visiteur = RS_Utilisateur.RecordCount

RS_Utilisateur.close

RS_Utilisateur.Open SQL_test, Conn 'Le nombre de visite aujourd'hui

Nb_today = RS_Utilisateur("ND_Today")

RS_Utilisateur.close

%>

------->> et dans la page ou je veux que cela s'affiche :

<% = Nb_Visite %>
<% = Nb_Visiteur%>
<% = Nb_today %>

-------------------------------------------------

Voilà, je fait pas un coup de pouce sur mon hébergeur, mais j'ai testé la connexion avec d'autres codes mais les pages s'affichait pas ! :s

Merci d'avance, je rame je rame, mais le bout du tunnel n'est pas loin !

Afficher les 32 commentaires