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

Messages postés
58
Date d'inscription
lundi 6 mars 2006
Statut
Membre
Dernière intervention
7 avril 2009
- - Dernière réponse : cs_ghuysmans99
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
- 7 avril 2009 à 19:53
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,
Afficher la suite 

4 réponses

Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
11
0
Merci
<%
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
%>
Commenter la réponse de cs_ghuysmans99
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
11
0
Merci
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
%>
Commenter la réponse de cs_ghuysmans99
Messages postés
58
Date d'inscription
lundi 6 mars 2006
Statut
Membre
Dernière intervention
7 avril 2009
0
Merci
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
Commenter la réponse de ldevun
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
11
0
Merci
Tu veux dire que tu ne peux pas te connecter directement au serveur ?
Mais connais-tu sa structure ? Est-ce du MySQL ?
Commenter la réponse de cs_ghuysmans99