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
| <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/xml"/>
<title></title>
</head>
<body>
<%
Dim oCmd, sSQL
sSQL = "<root><sql:query xmlns:sql='urn:schemas-microsoft-com:xml-sql'>SELECT p.fprod_codeu, p.fprod_ref, p.fprod_lib, p.fprod_descro, p.fprod_vignette, p.fprod_image, p.fprod_unite, p.fprod_condi, p.fprod_coloris, p.fprod_special, t.ftva_val, sc.fsclass_lib FROM FPRODUITS p left outer join FCODESTVA t on t.fprod_codetva = p.fprod_codetva left outer join FSCLASS sc on sc.fsclass_codeu = p.fsclass_codeu WHERE p.fprod_visible = 'T' AND p.fsclass_codeu IN(SELECT fsclass_codeu from FSCLASS WHERE fclass_codeu in (1924,2404)) ORDER BY p.fprod_lib ASC FOR XML AUTO</sql:query></root>"
Set oCmd = Server.CreateObject("ADODB.Command")
oCmd.ActiveConnection = "ma chaine de connexion"
oCmd.CommandText = sSQL
oCmd.Dialect = "{5D531CB2-E6Ed-11D2-B252-00C04F681B71}"
oCmd.Properties("Output Stream") = Response
oCmd.Execute , , 1024
Set oCmd = Nothing
%>
</body>
</html> |
Partager