第一段代码,通过查询数据库生成 Option 选项.

<!--#include file="../data/conn.asp"-->
<!--#include file="../lang/zh-cn/Zizhi.asp"-->
<%
Function GetZizhi(a,b)
Dim strList, StrA
dim rs
Dim i, j
    Set rs = Server.CreateObject("ADODB.Recordset")
    Sql="select * from cZizhi where 1<>1"
    rs.open sql,Conn,1,1
    strList = "<Select name=""" & a & """ selfValue=""" & b & """ class=""int"">" & vbcrlf
    j=rs.Fields.count
    For i=0 to (j-1)
        StrA = "G_SG_" & rs.Fields(i).Name
        dim StrB
        'StrB = Execute("StrA")
        StrB = StrA
        strList = strList & "    <Option value=""" & rs.Fields(i).Name & """>" & StrB & "</Option>" &vbcrlf
    Next
    'rs.Close
    'Set rs = Nothing
    strList = strList & "</Select>"
    Getzizhi = strList
End Function
%>

<%=GetZizhi("aa","bb")%>



第二段代码,<!--#include file="../lang/zh-cn/Zizhi.asp"--> 下的部分代码

<%
'公司信息下，资质表格
G_z_form_ZhuXiang="主 项 资 质："
G_z_form_ZengXiang="增 项 资 质："
G_z_form_BeiAn="各地方备案信息："

'建筑业企业资质

'施工, 总承包
'G_施工_总承包_资质名称

G_SG_Zb_Dianli="电力工程施工总承包"
G_SG_Zb_Fangjian="房屋建筑工程施工总承包"
G_SG_Zb_Gangkou="港口与航道工程施工总承包"
G_SG_Zb_Gonglu="公路工程施工总承包"
G_SG_Zb_HuagongShiyou="化工石油工程施工总承包"
G_SG_Zb_JidianAnzhuang="机电设备安装工程施工总承包"
G_SG_Zb_ShiyouGongcheng="石油工程施工总承包"
G_SG_Zb_Shizheng="市政公用工程施工总承包"
G_SG_Zb_Shuili="水利水电工程施工总承包"
G_SG_Zb_Tielu="铁路工程施工总承包"
G_SG_Zb_Tongxin="通信工程施工总承包"
G_SG_Zb_Yelian="冶炼工程施工总承包"


%>

现在输出的是这样的代码.

<Option value="Zb_Dianli">G_SG_Zb_Dianli</Option>
<Option value="Zb_Fangjian">G_SG_Zb_Fangjian</Option>
<Option value="Zb_Gangkou">G_SG_Zb_Gangkou</Option>

请问,我如何才能得到这样的输出的代码?
    
    <Option value="Zb_Dianli">电力工程施工总承包</Option>
    <Option value="Zb_Fangjian">房屋建筑工程施工总承包</Option>
    <Option value="Zb_Gangkou">港口与航道工程施工总承包</Option>

十分感谢.