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
