Récupération de données textes à partir d'une page ASP, URL

Signaler
Messages postés
58
Date d'inscription
lundi 6 mars 2006
Statut
Membre
Dernière intervention
7 avril 2009
-
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
-
Bonjour,
Je souhaite récupérer les données textes à partir d'une base de données libre de droit et gratuite en ASP.
Je souhaiterais récupérer toutes les données qui me servent (AOC, AOC autres... e-mail) et pouvoir les transférer vers une page excel de préférence. Mon problème c'est qu'il y a plus de 10000 adresses, et je souhaite pouvoir automatiser les taches.
J'ai remarquer que seul l'id changer, donc je souhaiterais faire un script ou avoir un logiciel qui me permet de dire que de l'id 1 à 1000 je récupére tel et tel données. Voici un exemple de page à partir de laquelle je souhaite extraire les données
http://monaoc.com/annuaire/chateaux/detail_imprime.asp?id=1520

ou

http://www.monaoc.com/annuaire/chateaux/detail.asp?id=3612&nomchateau=&nom=&appellation=G06002

Merci d'avance de votre aide.
Cordialement,

4 réponses

Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
12
<%
Option Explicit

Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment; filename=export_excel.xls"

Dim Conn 'Connection Object
Dim Rs 'Recordset Object

Set Conn = CreateObject("ADODB.Connection")
Conn.ConnectionString = "chaine de connexion ICI"
Conn.Open

Set Rs = Conn.Execute("SELECT * FROM matable")
%>
<COL SPAN=3>
   ----

          Champ1,
       Champ2,
       Champ3,
  
<%
While Not(Rs.EOF)
 %>
   ----

          <%=Rs("Champ1")%>,
       <%=Rs("Champ2")%>,
       <%=Rs("Champ3")%>,
  
 <%
 Rs.MoveNext
Wend
%>
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
12
Oups, j'ai oublié un morceau :

<%
Option Explicit

Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment; filename=export_excel.xls"

Dim Conn 'Connection Object
Dim Rs 'Recordset Object

Set Conn = CreateObject("ADODB.Connection")
Conn.ConnectionString = "chaine de connexion ICI"
Conn.Open

Set Rs = Conn.Execute("SELECT * FROM matable")
%>
<COL SPAN=3>
   ----

          Champ1,
       Champ2,
       Champ3,
  
<%
While Not(Rs.EOF)
 %>
   ----

          <%=Rs("Champ1")%>,
       <%=Rs("Champ2")%>,
       <%=Rs("Champ3")%>,
  
 <%
 Rs.MoveNext
Wend
%>

<%
Rs.Close : Set Rs = Nothing
Conn.Close : Set Conn = Nothing
%>
Messages postés
58
Date d'inscription
lundi 6 mars 2006
Statut
Membre
Dernière intervention
7 avril 2009

Bonjour,
Merci beaucoup pour votre code, mais le problème c'est que ce n'est pas ma base de données, c'est une base de données libre de droit, et je souhaite en récupérer les données, avez vous une solution pour que je puisse les récupérer?
Logiciel ou script.
Merci d'avance
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
12
Tu veux dire que tu ne peux pas te connecter directement au serveur ?
Mais connais-tu sa structure ? Est-ce du MySQL ?