<%@ Language=VBScript CODEPAGE="936"%>
<!--#include file="../conn.asp"-->
<%
flowNo = Request("flowNo")
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>"
				Response.Write "<![CDATA["
				Response.Write rs("description")
				Response.Write "]]>"& chr(13)
                                Response.Write "</info>"
rs.Close
	Set rs=nothing
	conn.Close
	Set conn=nothing
Response.Write "<extraHeight>60</extraHeight>"& chr(13)
Response.Write "<descriptionGradient visible='true' />"& chr(13)
Response.Write "<draggerGradient visible='true' />"& chr(13)
Response.Write "<bgStroke visible='true'/>"& chr(13)
Response.Write "<draggerStroke visible='true'/>"& chr(13)
Response.Write "<descriptionBackground>0x000000</descriptionBackground>"& chr(13)
Response.Write "<descriptionStroke>0x666666</descriptionStroke>"& chr(13)
Response.Write "<bgGradientColor>0x1E1E1E</bgGradientColor>"& chr(13)
Response.Write "<arrowsOver>0xFFCC00</arrowsOver>"& chr(13)
Response.Write "<arrowsNormal>0xCCCCCC</arrowsNormal>"& chr(13)
Response.Write "<strokeOver>0x666666</strokeOver>"& chr(13)
Response.Write "<strokeNormal>0x333333</strokeNormal>"& chr(13)
Response.Write "<draggerBgOver>0x0D0D0D</draggerBgOver>"& chr(13)
Response.Write "<draggerBgNormal>0x000000</draggerBgNormal>"& chr(13)
Response.Write "<draggerGradientNormal>0x333333</draggerGradientNormal>"& chr(13)
Response.Write "<draggerGradientOver>0x404040</draggerGradientOver>"& chr(13)
Response.Write "</option>"
end if
%>