|
|
Vous êtes ici : Forums > Langage XML > ASP et XML
ASP et XML
Je souhaite allimenter une page XML avec un code ASP (voir code ci-dessous). Je ne recois aucun message d'erreur mais rien ne fonctionne et je ne vois pas pourquoi. Si quelqu'un peut m'aider. Merci d'avance.
<?xml version="1.0"?>
<!-- Nom de fichier : AfficheContrat.xml -->
<![CDATA[
<!--#include file="../Includes/ModuleVB.asp" -->
<!--#include file="../Connections/conn_budget.asp" -->
<%
Dim conn
Dim RsContrat
Dim SqlContrat
Dim connstring
Dim afficher
Dim VarDate
VarDate = "03"
If Request.Form("OK") = "OK" then
Select Case Request.Form("TheYear")
Case 1
VarDate = Year(Date) - 1
VarDate = Right(VarDate, 2)
Case 2
VarDate = right(Date,2)
Case 3
VarDate = Year(Date) + 1
VarDate = Right(VarDate, 2)
End select
Else
If Request.QueryString("TheVarDate") <> "" Then
VarDate = request.QueryString("TheVarDate")
Else
VarDate = right(Date,2)
End If
End If
set conn=server.createObject ("ADODB.connection")
conn.ConnectionString = ConnBudgetStr
on error resume next
conn.open
if err.number <> 0 then
Response.Write("This page is not accessible for this moment. Clic on the 'refresh button' !!")
response.End()
end if
SqlContrat = "SELECT [N° Contrat], [Millésime], [LDI],[ArtNR], [Cat],[Denomination] FROM [Tlkp_N° catalogue] " _
& "GROUP BY [N° Contrat], [Millésime], [LDI], [ArtNr], [Cat],[Denomination] " _
& "Having ([Millésime]= '" & VarDate & "' AND [Cat]='262') or ([Millésime]= '" & VarDate & "' AND [Cat]='264')" _
& "ORDER BY [N° Contrat];"
Set RsContrat = Server.CreateObject ("ADODB.Recordset")
RsContrat.Open SqlContrat,conn,3,3
if RsContrat.RecordCount>0 then
i=1
afficher = RsContrat.recordCount
RsContrat.MoveFirst
response.write"<INVENTAIRE>"
do while not RsContrat.EOF AND i<=afficher
response.write"<LIVRE>"
response.write"<TITRE>"&RsContrat.fields("LDI")&"</TITRE>"
response.write"<AUTEUR>"&RsContrat.fields("N° Contrat")&"</AUTEUR>"
response.write"<RELIURE>"&jlNS(RsContrat.Fields("Denomination"))&"</RELIURE>"
response.write"<PAGES>"&jlNS(RsContrat.Fields("ArtNt"))&"</PAGES>"
response.write"<PRIX>"&jlNS(RsContrat.Fields("Cat"))&"</PRIX>"
response.write"</LIVRE>"
i=i+1
RsContrat.MoveNext
loop
response.write"</INVENTAIRE>"
end if
RsContrat.Close
Set RsContrat=nothing
Conn.Close
Set Conn = Nothing
%>
]]> :( :-(
Message posté le 11/06/2003
par JLD
Répondre à ce message |
|
|
|
A RETENIR CETTE SEMAINE |
08/01/2009 -
Les markup extensions en WPF
Ce tutoriel présente le concept des markup extensions, qui permettent d'enrichir la syntaxe du langa ...
|
08/01/2009 -
Utiliser un MOSS 2007 Search avec SPS 2003
Microsoft Office SharePoint Server 2007 (MOSS) fournit de nombreuses fonctionnalités qui ne sont pas ...
|
07/01/2009 -
SharePoint et les technologies 3.5 : utilisation de l'AJAX dans les webparts
Le train technologique poursuivant sa course effreinée, voici un tutoriel qui se décline en plusieur ...
|
07/01/2009 -
Windows Seven : commercialisation fin de l'année ?
Alors que la version bêta de Windows Seven devrait officiellement être lancée à la mi-janvier, le pr ...
|
07/01/2009 -
SharpDevelop 3.0 proche d'une release
SharpDevelop est un IDE gratuit qu'on a tendance à oublier comparé à la gamme Express de Microsoft. ...
|
06/01/2009 -
Comment appeler Biztalk via un Web Service ?
Souvent les exemples Biztalk prennent en entrée des fichiers qui sont ensuite consommés avant d’être ...
|
06/01/2009 -
TechDays - Téléchargez les goodies officiels
Si vous ne les avez pas encore téléchargés, il est encore temps : les goodies officiels des TechDays ...
|
|
|
