<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include virtual="/Connections/dbconnect.asp" -->
<%
Dim shop_gear__MMColParamTID
shop_gear__MMColParamTID = "SAS"
If (Request("MM_EmptyValue") <> "") Then
shop_gear__MMColParamTID = Request("MM_EmptyValue")
End If
%>
<%
Dim shop_gear
Dim shop_gear_cmd
Dim shop_gear_numRows
Set shop_gear_cmd = Server.CreateObject ("ADODB.Command")
shop_gear_cmd.ActiveConnection = MM_dbconnect_STRING
shop_gear_cmd.CommandText = "SELECT * FROM dbo.shop_gear WHERE shop_gear.TID = ? AND shop_gear.SHOW_SHOP_1_DK = '1' ORDER BY shop_gear.BRID ASC FOR XML RAW, ROOT"
shop_gear_cmd.Prepared = true
shop_gear_cmd.Parameters.Append shop_gear_cmd.CreateParameter("param1", 200, 1, 255, shop_gear__MMColParamTID) ' adVarChar
Set shop_gear = shop_gear_cmd.Execute
shop_gear_numRows = 0
%>
<%= "<?xml version=""1.0"" encoding=""UTF-8""?>" %>
<%=(shop_gear.Fields.Item("XML_F52E2B61-18A1-11d1-B105-00805F49916B").Value)%>
<%
shop_gear.Close()
Set shop_gear = Nothing
%>
|