اين الخطاء فى هذا الكود

يا جماعة هل هذا الكود فيه غلط علشان مش راضى يسجل فى قاعدة البيانات

<% @LANGUAGE = VBScript %>

<%

 	 



  Dim objConn1 , objRS1 , strQ2 , strConn1, strOutput1

  Set objConn1 = Server.CreateObject("ADODB.Connection")



  objConn1.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("SEARCH.MDB") & ";"

  Set objRS1 = Server.CreateObject("ADODB.Recordset")





  If Request.form("submit") = "send" Then



  Dim ni



  strQ1 = "SELECT *  FROM Users WHERE "



  For ni = 1 To Request.form("checkbox").Count



  strQ1 = strQ1 & "id = "

  strQ1 = strQ1 & Request.form("checkbox")(ni)





  strQ1 = strQ1 & " OR "

  Next



  strQ1 = strQ1 & "id = "

  strQ1 = strQ1 & "1"





  objRS1.Open strQ1 ,  objConn1 , 1, 2



  Do While Not objRS1.EOF

  

  Dim objConn , objRS , strQ , strConn, strOutput 

  Set objConn = Server.CreateObject("ADODB.Connection")



  objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("users.mdb") & ";"

  Set objRS = Server.CreateObject("ADODB.Recordset") 

    

  strQ = "SELECT *  FROM internalmail "



  objRS.Open strQ ,  objConn , 1, 2

  

  objRS.AddNew

  objRS("sender") = Session("temp")

  objRS("reciever") = Request.form("to")

  objRS("subject") = Request.form("subject")

  objRS("message") = Request.form("message")

  objRS("date") = Date()

  objRS.Update

 	 

  objRS1.MoveNext

  Loop

  objRS1.Close

  End If

  

  'Response.Write Request.QueryString("username")





%>