Vamos a ver, antes de nada comprueba que todo se realiza correctamente, es decir, probar los posibles errores:
Error 1: Que no recoja valores
Para eso haz lo siguiente en la página de recogida de valores. Elimina todas las lineas desde la ultima recogida de datos e imprime los valores, es decir
Cita: registro usuarios
<body bgcolor="#FFFFFF">
<%
Dim cnn
Dim str
textlogin = Request.Form("Login")
textpassword = Request.Form("Password")
textnombres = Request.Form("Nombres")
textapellidop = Request.Form("ApellidoP")
textapellidom = Request.Form("ApellidoM")
textacceso = Request.Form("Nivel_Acceso")
Response.Write(textlogin & "<br />" & textpassword & "<br />" & textnombres & "<br/> " textapellidop & "<br />" & textapellidom & "<br />" & textacceso) %>
</BODY>
Pueden ocurrir varias cosas:
No imprime nada - No esta recuperando bien los valores del formulario y ahi esta el ppal problema
O imprime todo - La recogida de valores es correcta y por tanto esa parte de codigo esta correcta.
Paso 2. Comprobar que la instruccion SQL se genera correctamente. Para eso, desde el punto de partida de tu código y eliminadole unas cuantas filas, el código sería el siguiente:
Cita: registro usuarios
<body bgcolor="#FFFFFF">
<%
Dim cnn
Dim str
textlogin = Request.Form("Login")
textpassword = Request.Form("Password")
textnombres = Request.Form("Nombres")
textapellidop = Request.Form("ApellidoP")
textapellidom = Request.Form("ApellidoM")
textacceso = Request.Form("Nivel_Acceso")
SQL="INSERT INTO ta_usuarios (Login,Password,Nombres,ApellidoP,ApellidoM,Nivel_ Acceso) VALUES('"&textLogin&"','"&textPassword&"','"&textn ombres&"','"&textapellidop&"','"&textapellidom&"', '"&textnivel_acceso&"')"
Response.Write(SQL)
%>
<%
%>
</BODY>
Es decir, en vez de conectar a la BBDD y ejecutar la consulta solo queremos comprobar que la sentencia SQL se realiza correctamente. Tres posibles resultados:
No imprime nada - No lo entenderia XDD
Las otras dos es comprobar si la sentencia SQL es correcta, es decir, si te falta algún espacio en algún lado. Eso sí, copia el resultado que te de y desde el analizador de consultas de SQL Server la ejecutas y compruebas si te da resultados o te da error.
Paso 3. Si hemos llegado hasta aquí, es "fácil", es decir, es un problema con la conexión a la base de datos. Comprueba la cadena de conexión e incluso antes de realizar un Insert, para probar la conexión realiza un select y recuperalo en un recordset, a ver si con suerte te sale el error de la conexión.
Espero que valga de algo esto.