2015-05-10
355
Возьмем шаблон из первого примера раздела «Шаблоны» (код на ASP):
| <%' Нужно указать это:Response.ContentType = "text/xml" ' Определяем константы ADO.Const adCmdText = 1Const adExecuteStream = &H400 ' Создаем объектыDim cmd,connSet cmd = Server.CreateObject("ADODB.Command")Set conn = Server.CreateObject("ADODB.Connection") conn.Provider = "sqloledb"conn.Open "Data Source=server;Initial catalog=pubs;", "user","password" ' ШаблонDim ss = "<?xml version='1.0'?>" & _ "<my_root xmlns:sql='urn:schemas-microsoft-com:xml-sql'>" & _ "<sql:query>" & _ "select au_fname,au_lname,address from authors " & _ "where au_fname like 'M%' for xml auto" & _ "</sql:query>" & _ "</my_root>" Set cmd.ActiveConnection = conncmd.CommandType = adCmdTextcmd.CommandText = s ' Диалект шаблонаcmd.Dialect = "{5D531CB2-E6Ed-11D2-B252-00C04F681B71}"cmd.Properties("Output Stream") = Responsecmd.Execute,, adExecuteStream Set cmd = nothingSet conn = nothing%> |
