ASP - Problemas cuando subo ASP en el servidor no funci

Hola a todo agradeceria mucho su ayuda estoy en los primeros pasos de ASP, tengo dos paginas creadas en DreamWeaver visitas.asp y ver_visitas.asp
en visitas.asp hago ingresar los datos nombre email comentarios y la otra ver_visitas.asp muestra el libro de visitas con el nuevo comentario y el nombre.
Lo probe en mi pc con el servidor IIS y funciona perfectamente lo hice con una cadena de conexion con DSN y funciona perfecto.
El problema es cuando subo la pagina al servidor pongo la cadena de conexion sin DSN y me muestra la pagina del formulario ingreso los datos y me da un error

ADODB.Command error '800a0bb9'

The application is using arguments that are of the wrong type, are out of acceptable range, or are in conflict with one another.

/visitas.asp, line 117

si me podrian ayudar estare eternemente agradecido Saludos!!!


PAGINA visitas.asp

<%@ LANGUAGE="VBScript" %>
<%
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("\data\tuaimaxe.mdb")
Set RS = Server.CreateObject ("ADODB.RecordSet")
%>
<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(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")) = "form1") Then

MM_editConnection = MM_tuaimaxe_STRING
MM_editTable = "Comentarios"
MM_editRedirectUrl = "ver.asp"
MM_fieldsStr = "FIRST_NAME|value|LAST_NAME|value|EMAIL|value|COMMENTS|value"
MM_columnsStr = "FIRST_NAME|',none,''|LAST_NAME|',none,''|EMAIL|',none,''|COMMENTS|',none,''"

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

' set the form values
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_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_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

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

' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>

PAGINA ver_visitas.asp

<%@ LANGUAGE="VBScript" %>
<%
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("\data\tuaimaxe.mdb")
Set RS = Server.CreateObject ("ADODB.RecordSet")
%>
Dim tuaimaxe1
Dim tuaimaxe1_numRows

Set tuaimaxe1 = Server.CreateObject("ADODB.Recordset")
tuaimaxe1.ActiveConnection = MM_tuaimaxe_STRING
tuaimaxe1.Source = "SELECT * FROM Comentarios ORDER BY LAST_NAME ASC"
tuaimaxe1.CursorType = 0
tuaimaxe1.CursorLocation = 2
tuaimaxe1.LockType = 1
tuaimaxe1.Open()

tuaimaxe1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 10
Repeat1__index = 0
tuaimaxe1_numRows = tuaimaxe1_numRows + Repeat1__numRows
%>

no se mucho de ASP, pero me parece que esta linea tiene problemas
MM_editConnection = MM_tuaimaxe_STRING
de donde sacas el valor de MM_tuaimaxe_STRING ??, este es el valor q le estas asignando al activeconnection q falla, me parece a mi porq no tiene valor.

Espero haberte ayudado en algo, bye..

Hola maree gracias por tu preocupacion y tu tiempo yo estoy en mis inicion con ASP es un libro de visitas cuando lo corro en el servidor de mi Maquina funciona perfecto ingresa los datos en un formulario los coloca en una base access 2000 y luego muestra los comentarios en otra pagina, pero en el servidor remoto carga el formulario pero le doy enviar y me devuelve un error, no estoy seguro si la cadena de conexion esta bien de todos modos muchas gracias Saludos!!!

Checa la direccion virtual de tu base de datos si esta direccionada correctamente: algo como esto
\sitio\basededatosdeaccess.mdb

Vos probaste en tu maquina con dns... por que no probas primero en tu maquina si te anda sin dns?

Gracias a todos ya solucione el problema estaba en la ruta virtual de la base de datos que esta en el sevidor!!!! ahora la base de datos funciona perfecta!!

AHORA TENGO OTRO PROBLEMA
NO PUEDO ENVIAR UN FORMULARIO POR MAIL EN ASP ME SALE ESTE ERROR
Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/sendMailASP_.asp, line 8

Invalid class string

ESTE ES EL CODIGO EN QUE ESTOY FALLANDO?

<%@ LANGUAGE="VBScript" %>
<%
strConexion = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("/")
Set oConn = Server.CreateObject ("ADODB.Connection")
%>

<%
set mail=server.CreateObject("CDONTS.NewMail")
mail.From= Request("[email protected]")
mail.To = Request("[email protected]")
mail.Subject = Request("Suscripcion al Boletin de Tua Imaxe")
mail.Body = Request("Gracias por llenar el fromulario a la brevedad nos comunicaremos con usted")
mail.BodyFormat = 0 ' 0 = HTML, 1 = Plain
mail.MailFormat = 1 ' 0 = MIME, 1 = Text
mail.Importance = 1 ' 0 =High, 1 = Medium, 2 = Low
mail.Send
set mail=nothing
%>

Gracias a todos ya solucione el problema estaba en la ruta virtual de la base de datos que esta en el sevidor!!!! ahora la base de datos funciona perfecta!!

AHORA TENGO OTRO PROBLEMA
NO PUEDO ENVIAR UN FORMULARIO POR MAIL EN ASP ME SALE ESTE ERROR
Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/sendMailASP_.asp, line 8

Invalid class string

ESTE ES EL CODIGO EN QUE ESTOY FALLANDO?

<%@ LANGUAGE="VBScript" %>
<%
strConexion = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("/")
Set oConn = Server.CreateObject ("ADODB.Connection")
%>

<%
set mail=server.CreateObject("CDONTS.NewMail")
mail.From= Request("[email protected]")
mail.To = Request("[email protected]")
mail.Subject = Request("Suscripcion al Boletin de Tua Imaxe")
mail.Body = Request("Gracias por llenar el fromulario a la brevedad nos comunicaremos con usted")
mail.BodyFormat = 0 ' 0 = HTML, 1 = Plain
mail.MailFormat = 1 ' 0 = MIME, 1 = Text
mail.Importance = 1 ' 0 =High, 1 = Medium, 2 = Low
mail.Send
set mail=nothing
%>