insertar datos en un tabla

[yaya]

Hola!!

Tienes razon el error http 500 es demasiado general, este es el codigo que tengo me pueden decir es que lo que esta mal

<%
'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")

'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
%>

Cual puede ser el error

[maestro]

¿Y ESTO?

Yaya, creo que te has confundido y has puesto un mensajes sobre un hilo equiviocado.

[yaya]

Te refieres a este mensaje

<font face="Tahoma" size="2"><b><i>Ingreso de datos completado</i></b></font>

Si es el el mensaje que dices, lo que pasa es que dentro del archivo que contien el codigo asp anterior, tengo algunas directivas en html. si no es ese el menasaje porfa dime cual es el mensaje que puse en en hiloequivocado

[maestro]

Este hilo se titula insertar datos en un tabla , creo que has puesto el mensaje en un hilo equivocado, aqui no se habia tratado nada de ese codigo que tu comentas.

Ademas, a quien le contestabas lo de:
Tienes razon el error http 500 es demasiado general, este es el codigo que tengo me pueden decir es que lo que esta mal

Si efectivamente te has confundido puedes borrarlo y no pasa nada.

[yaya]

Maestro creo que solo me equivoque en el titulo del messaje, o almenos eso es lo que pienso

A y lo que decia del erro era para Fr@Nc$co

[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.

[maestro]

Si no hay ningun enfado, faltaria mas, es que revise los posts y no encontraba donde estaba la duda o a cuento de que venia el tema de la pregunta, pero ahora que lo has aclarado, esta todo resuelto.

[Fr@Nc3$c0]

Ok

Un saludo a tod@s.