insertar datos en un tabla

[Fr@Nc3$c0]

Verás veo algunos fallos, pues te diré cuales són respondiendo a tu mensaje en este hilo anteriormente, en la page 1.
Maestro, yaya estaba dentro del hilo, aunque casi no tuvo participación, quizá por eso no lo recuerdes, no os enfadeis!! :D:D

Veamos, a continuación muestro tu código y en rojo lo que esta mal para que lo tengas en cuenta, algunas cosas por falta de un simple espacio, otras ya las verás:

<%
'definimos la variable de conexion
Dim conexion , RS, basedatos
basedatos = Server.MapPath("juego.mdb")
'Primero nos fijamos si todos los campos fueron completados.
'Si no se cumple, redireccionamos a cargar.asp
If Request.Form("dato1") = "" OR Request.Form("dato2") = "" OR Request.Form("dato3") = "" OR Request.Form("dato4") = "" OR Request.Form("dato5") = "" OR Request.Form("dato6") = "" then
Response.Redirect ("cargar.asp")
response.write("Debes llenar todos los campos")
' este ultimo respnse sobra pues no es visible al usuario si antes le has enviado a otra página.
End IF

'Conectamos a nuestra BD.
Set conexion = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= "& basedatos & ";"
'definimos la variable de carga de datos
Dim Temp
'buscamos los datos
Temp = "Select * From alumnos Where UCase(Nombre)='" & UCase(Request("Dato1")) & "' And UCase(paterno)='" & UCase(Request("Dato2")) & "' And UCase(materno)='" & UCase(Request("Dato3")) & "' And UCase(usuario)='" & UCase(Request("Dato4")) & "' And UCase(password)='" & UCase(Request("Dato5")) &"' And UCase(grado)='" & UCase(Request("Dato6")) &"'"
RS.Open Temp,Conexion,2,3,1
si no se repiten agregamos los datos a nuestro B.D
If RS.BOF And RS.EOF Then
RS.AddNew
RS("Nombre") = Request("Dato1")
RS("paterno") = Request("Dato2")
RS("materno") = Request("Dato3")
RS("usuario") = Request("Dato4")
RS("password") = Request("Dato5")
RS("grado") = Request("Dato6")
RS.Update
'fin del Script
%>

<font face="Tahoma" size="2"><b><i>Ingreso de datos completado</i></b></font>
<%
'si el campo ya existe para no hacer dobles nos da este mensaje
Else
Response.Write ("El registro ya existe" )
End If
'cerramos la conexion
RS.Close
conexion.Close
%>


Ahora no puedo mirar más pues me voy de marcha!

Mañana hablamos! mira eso mientras.

Saludos.