Pana Guiate por este y ten pendiente los campos '" & texto & "' y " & numero & " en tu BD
'------------mi code
<%@ Language="VBScript" %>
<!--#include file="../conexion/conexion.asp"-->
<%
Dim grado, sec, cupo
grado = Request.Form("grado")
sec = Request.Form("sec")
cupo = Request.Form("cupo")
idsec = grado+sec
%>
<title>Agregar Sección</title>
<%
Dim Conexion,Tabla
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.Recordset")
MiConexion = control
Conexion.Open = MiConexion
Dim Temp
Temp = "SELECT * FROM secciones WHERE idsec='" & idsec & "' AND codgrado=" & grado & " AND sec='" & sec & "'"
Tabla.Open Temp,Conexion,2,3,1
If Tabla.BOF And Tabla.EOF Then
Tabla.AddNew
Tabla("idsec") = idsec
Tabla("codgrado") = grado
Tabla("sec") = sec
Tabla("totalcupos") = cupo
Tabla.Update
%>
<p align="center">
<b><i>
<font size="5">Ingreso de datos completado<br>
</font>
<font size="2"><br>
</font></i></b><a href="agresecc.html" style="text-decoration: none">Ingresar
otra</a></p>
</p>
<%
Else
Response.Write "<body bgcolor=""#ffffff"" text=""BLACK"" background=""TRI_BG.jpg"">"
Response.Write "<center><img src=""stop.gif"">"
Response.Write "<center><br>La Siguente Sección: <b>" & idsec & "</b>, YA EXISTE"
Response.Write "<br><br><br><br><a href=""agresecc.html""><img border=""0"" src=""volver.gif""></a>"
End If
Tabla.Close
Conexion.Close
%>