Bonjour tout le monde,

Après x heures de recherche de modélisation de ma page et de programmation à tout va, j'ai perdu le bout du fil et je rame....

Je vous explique mon souhait, j'ai une page où je choisis par le biais d'une liste le type d'exploitation de système de serveurs (ex: Linux, Windows 2K3, Windows 2000...), et en cliquant sur le bouton appuyer ça me valide mon formulaire et on accède à notre fameuse page qui récupère la valeur donnée par le formulaire et l'intègre à notre requête SQL, ensuite la requête devrait être interprétée par mon serveur et qu'il me ressorte le résultat de cette requête sous forme d'un fichier excel pour du reporting.

Ce qu'il me manque c'est de la cohésion et une certaine compréhension de mon problème dans mon code ASP afin d'avancer dans ma tâche.

Je vous remercie d'avance messieurs pour l'aide apportée !

Cordialement,

Kév'


ps: voici le code de la page.

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 item
db_SQL = "SELECT Serveur, OS FROM THardware WHERE OS='"&OS&"' AND AEteSupprime=No"
 
set oRSt = server.CreateObject("ADODB.RecordSet")
db_conn="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=C:\Inetpub\wwwroot\Bdd\ServeursGy.mdb;" 
 
Response.ContentType="Application/xls"
Response.AddHeader "Content-Disposition", "filename=ReportingServeursGy.xls;" ' le nom du fichier
 
oRSt.open db_SQL, db_conn, 3, 1 
if not oRst.EoF then %>
	<table><tr>
	<%
		for each item in oRst.fields
			response.write "<td>" & item.name & "</td>"
		next %>
	</tr>
	<%
	do while not oRst.EoF
		response.write "<tr>"
		for each item in oRst.fields
			response.write "<td>" & item.value & "</td>"
		next
		response.write "</tr>"
		oRst.MoveNext
	Loop %>
	</table>
	<%
else %>
	<table><tr><td>Rien à exporter</td></tr></table><%
end if 
set oRst = nothing
%>