%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim Sql, rs, i, title Set rs = Server.CreateObject("Adodb.RecordSet") %>