"rs.Open sql, conn, 1, 1"--> conn對象沒有定義,在此句前加入代碼:set conn = server.CreateObject("adodb.connection")
conn.Open "driver={SQL Server};server=[服務器名];uid=[帳號];pwd=[密碼]"