求解语句的写法，好心人进
<%
Dim   c_id,S,StrTime_Name,real_id

Randomize   Timer
S                             =   Int((8999)   *   Rnd   +   1000)
Str                         =   Asc(Hex(S))

Print_DateTime   =   Now()
Time_Name             =   MakeFileName(Print_DateTime)
real_id                 =   "a "   &   Time_Name   &   Str  

c_id                       =   Cint(Request( "Select_cid "))
response.write   c_id
Article_Title     =   Request( "Article_Title ")
      Doc_Content   =   trim(Request.form( "cnWords "))  
      Doc_Content   =   Replace(Doc_Content, " <script ", " <sscript ")  
      Doc_Content   =   Replace(Doc_Content, "/script> ", "/scripts> ")
      Doc_Content   =   Replace(Doc_Content, "/script   > ", "/scripts> ")
RealLink               =   Request( "RealLink ")
'-------------------------------这一段有问题
Href_Add               =   "Content.asp?id=&   real_id   & "
'-------------------------------
AddUser                 =   Session( "Admin_UserName ")
AddTime                 =now()

Call   Find_UpClass()
Call   Add_Content

Function   Find_UpClass()
      Call   Open_Conn()
'-------------------------------这一段有问题
      Sql1= "Select   id,menuname     From   Menu_Unlimited   a   Where   exists(Select   *   From   Menu_Unlimited   b   Where   b.p_id   =   a.id   and   b.id   =   "&   c_id   & ") "
'-------------------------------
      Set   Rs1=server.CreateObject( "adodb.recordset ")
      Rs1.open   sql1,Conn,1,1
End   Function

Function   Add_Content
      Call   Open_Conn()
      Call   Find_UpClass()
'-------------------------------这一段有问题，提示“类型不匹配:   'Rs1 '”
      Sql2= "Insert   into   ContentTable   (p_id,p_name,c_id,c_name,Article_Title,Article_Content,Href_Add,AddUser,AddTime,RealLink,real_id)   values   ( "&   Rs1( "id ")   & ", "&   Rs1( "menuname ")   & ", ' "&   c_id   & " ', ' "&   c_name   & " ', ' "&   Article_Title   & " ', ' "&   Doc_Content   & " ', ' "&   Href_Add   & " ', ' "&   AddUser   & " ', ' "&   AddTime   & " ', ' "&   RealLink   & " ', ' "&   real_id &