<%@ Language=VBScript CODEPAGE="936"%>
<!--#include file="../conn.asp"-->
<%
flowNo = 5
if flowNo <> "" then
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from xmlContent where flowNo="&flowNo
rs.Open rs.Source,conn,3,1

Response.Write "<?xml version='1.0' encoding='utf-8'?>"&chr(13)
Response.Write "<option>" & chr(13)
Response.Write "<info><![CDATA[<Text_Preset_2>"
Response.Write rs("tx")
Response.Write "<br></Text_Preset_2><normal_small_shadow>"
Response.Write rs("description")
Response.Write "</normal_small_shadow>]]></info>" & chr(13)
                              
rs.Close
	Set rs=nothing
	conn.Close
	Set conn=nothing
Response.Write "<extraHeight>30</extraHeight>"
Response.Write "<scrollerWidth>900</scrollerWidth>"
Response.Write "<scrollerHeight>400</scrollerHeight>"
Response.Write "<scrollerMargins>14</scrollerMargins>"
Response.Write "<image></image>"
Response.Write "<imageWidth></imageWidth>"
Response.Write "<imageHeight></imageHeight>"
Response.Write "<imageMargins></imageMargins>"
Response.Write "<imageToScrollerDistance>8</imageToScrollerDistance>"
Response.Write "<equalScrollerHeightToImageHeight value='false' />"
Response.Write "</option>"
end if
%>