ASP - Aqui esta el codigo...

Hola, a todos, como me pidieron aqui les coloco el codigo que utilizo para incluir es un poco largo, otra cosa, la BD es en Access 2000...Gracias...
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/BD.asp" -->
<%
' *** Edit Operations: declare variables

MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) <> "") Then

MM_editConnection = MM_BD_STRING
MM_editTable = "Autores"
MM_editRedirectUrl = "../Mensajes/mensajeincluido.asp?Identificador=autor"
MM_fieldsStr = "cod_autor|value|nombre_autor|value"
MM_columnsStr = "cod_autor|',none,''|nombre_autor|',none,''"

' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")

' set the form values
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
Next

' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedir