Discussion :

[Immobilis]

Essaye de remplacer ton code à partir de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Response.Write("<BR> <BR>")

jusqu'à la fin par ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Dim result
Set RS2=Server.CreateObject("ADODB.Recordset")	
	Response.Write("<TABLE Width=20% Align=center>")
	DO UNTIL RS1.EOF 
		FOR k=1 to 10
			Response.Write("<TR>")
			FOR i=0 to 2
				IF not RS1.EOF then
					RS2.Open "SELECT adresse FROM equipement WHERE site='"&RS1(0)&"';", supervisionConnection
					result=true
					DO UNTIL RS2.EOF
						if instr(fncPingHtml(RS2(0)),"Ip success") = 0 then  
							result=false
						else
						end if
						RS2.MoveNext
					LOOP
					RS2.close
					IF result THEN
						Response.Write("<TD Align=center bgColor=#33FF00>")
					ELSE
						Response.Write("<TD Align=center bgColor=#FF0000>")
					END IF
					Response.Write("<IMG SRC=http://127.0.0.1/test/BITMAPS/SUBNET5.ICO Width=40></A><BR>"&RS1("site"))
					Response.Write("</TD>")
				End IF
			NEXT
			Response.Write("</TR>")
		NEXT  
		RS1.MoveNext
	LOOP 
	Response.Write("</TABLE>")
RS1.close
set RS2 = nothing				
set RS1 = nothing

[vever88]

de ton aide, mais le code ne marche pas.

Par contre si je déplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set RS2=Server.CreateObject("ADODB.Recordset")

pour le mettre dans la boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
IF not RS1.EOF then
      Set RS2=Server.CreateObject("ADODB.Recordset")
      RS2.Open "SELECT adresse FROM equipement WHERE site='"&RS1(0)&"';", supervisionConnection

Là ça marche

[vever88]

J'aimerais rajouter une petite chose à mon code :
Lorsque je clique sur un des sites de l'entreprise, je serais redirigé vers une page qui m'affiche tous les équipements de ce site.
J'ai rajouter ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Response.Write("<A HREF=site.asp>")
Response.Write("<IMG SRC=http://127.0.0.1/test/BITMAPS/SUBNET5.ICO Width=40><BR>"&RS1("site")&"</A>")

Ma page site.asp est unique. Donc en fonction du site sur lequel je clic, j'afficherai les équipements correspondant.
Par quel(s) moyen(s) puis-je identifier sur quel lien j'ai cliqué

[Phiss]

Il faut que tu passes un élément unique dans ton url.
tu as pas un champs recupérable dans une table ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<a href='site.asp?id="& champ_unique &"'>

[vever88]

Si ça doit pouvoir se trouver
Après j'utilise Request.QueryString pour exploiter l'élément passé, non ?

[Phiss]

Exactement.

[vever88]

Encore merci de votre aide

++

[vinny_273]

J'ai un site web qui doit diriger les gens vers trois autres.
Les trois autres sites sont identiques, ca sert juste à réguler le traffic sur les serveur.

J'ai fais le script suivant pour savoir si un site est joignable, sinon j'envoi les utilisateurs sur l'une des copies restantes :

Function Ping(url)
Set myXMLHTTP = server.CreateObject("Microsoft.XMLHTTP")
myXMLHTTP.Open "get", url, false
myXMLHTTP.Send(Null)
str = myXMLHTTP.statusText
If UCase(str) = "OK" Then
Ping = True
Else
Ping = False
End If
End Function

Error Type:
Microsoft VBScript runtime (0x800A0005)
Invalid procedure call or argument
/exchange/FRN/connexion.asp, line 47

la ligne où est l'erreur est : myXMLHTTP.Open "get", url, false

Quelqu'un a une idée ?