Urgente con jgo de registro ASP,MYSQL, DWMX

[rocanova]

Saludos
Estoy trabajando con ASP en Dreamweaver Mx, uso como BD mysql tengo instalado su driver (Mysql ODBC 3.51 Driver), Como servidor IIS.

Mi problema es el siguiente:
Cuando ordeno visualizar un juego de registro en una tabla, extraido de mi Base de Dato, en una pagina ASP por medio del comando "vista live data".
consigo el sigueinte error:

NO SE PUEDE MOSTRAR LA PAGINA

Hay un problema con la pagina...

Please try the following:
* Haga click...
* Abra la pagin...

HTTP 500.100. Error Interno del Servidor:error ASP
servicios de internet information server

Información tecnica (para el personal de soporte tecnico)
* Tipo de error:
ADODB.Recordset(0x800A0BB9)
argumento incorrecto fuera de intervalo permitido en
conflicto con otros.
/pruebabd/pruebapath_tzcdqk3xzt.asp, line 7

* Tipo de explorador:
MMhttp (windows; version 7,0)

* pagina:
GET/pruebabd/pruebapath_tzcdqk3xzt.as

* Hora...

En cambio hago lo mismo usando los archivos y la base de dato tutorial del Dreamweaver y el comando se ejecuta perfectamente. se despliega el juego de registro en la pagina ASP en la tabla que configure para exponer los datos.

No se que sucede estoy un poco nuevo en esto, desconfio de la interacción entre el IIs y el driver del mysql.

Agradeceria mucho la ayuda estoy estudiando para un proyecto.

[sjam7]

obviamente hay un error que no te lo explica el navegador, intenta colocando un
on error resume next al inicio y

if err<>0 then
response.write "<br>"& err.description
response.write "<br>"& err.number
response.write "<br>"& err.source
err.clear
end if


mas adelante

[El_Metallick]

dos cosas:
1- al cambiar de base de datos y mantener el codigo generalmente los tipos de los campos no coinsiden en todas las oportunidades si no es asi pues haz lo 2
2- Pon código porque adivinando es dificil que podamos ayudar...

Saludos

[trasgukabi]

sJam, lo que has puesto no te va a dar más información de la que ya ha puesto:
0x800A0BB9 (mucho mejor que un numero de error)
argumento incorrecto fuera de intervalo permitido en
conflicto con otros.
/pruebabd/pruebapath_tzcdqk3xzt.asp, line 7
Metallick: No ha dicho que cambie de base de datos. Con tu 2º punto estoy de acuerdo y aprovecho para hacer una sugerencia: por favor, administradores de forosdelweb.com, que cambie el nombre a adivinosdelweb.com. Mucho más apropiado viendo la forma en que se hacen ciertas preguntas. TOMA SARCASMO. Perdón, Rocanova. Era broma.

[rocanova]

Antes de mostrarles el codigo que por cierto lo generó todo la aplicación Dreamweaver mx. Creo que es pertinente que les comente que probe de nuevo el comando "Vista Live Data" y esta ves si ejecuto y desplego el juego de registro dentro de la tabla en la pagina ASP como estaba planificado, esto lo hizo en el mismo ambiente de DW. Pero luego ya no puedo ver la vista de codigo y se bloquea la vista de diseño no puedo acceder a la tabla por mas que desmarque "Vista Live Data". La unica manera de volverlos a ver es cerrando el arch. Y volverla abrir. Además si deseo ejecutar una vista en el explorador (del archivo en el server) me responde con:

Please try the following:
• Haga clic en el botón Actualizar o inténtelo de nuevo más tarde.
• Abra la página principal de localhost y, a continuación, busque vínculos a la información que desea.
HTTP 500.100. Error interno del servidor: error de ASP
Servicios de Internet Information Server

Información técnica (para personal de soporte técnico)
• Tipo de error:
Páginas Active Server, ASP 0141 (0x80004005)
El comando @ sólo puede usarse una vez en la página Active Server.
/pruebabd/Connections/zonainbd.asp, line 28
• Tipo de explorador:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)
• Página:
GET /pruebabd/pruebpath.asp
• Hora:
martes, 26 de julio de 2005, 23:53:51
• Más información:
Soporte técnico de Microsoft
BUENO AQUÍ ESTA EL CODIGO DE LA PAGINA asp QUE CREA DREAMWEAVER MX

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/zonainbd.asp" -->
<%
Dim all_contac
Dim all_contac_numRows

Set all_contac = Server.CreateObject("ADODB.Recordset")
all_contac.ActiveConnection = MM_zonainbd_STRING
all_contac.Source = "SELECT * FROM zonabd.contactos ORDER BY nombre ASC"
all_contac.CursorType = 0
all_contac.CursorLocation = 2
all_contac.LockType = 2
all_contac.Open()

all_contac_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 10
Repeat1__index = 0
all_contac_numRows = all_contac_numRows + Repeat1__numRows
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim all_contac_total
Dim all_contac_first
Dim all_contac_last

' set the record count
all_contac_total = all_contac.RecordCount

' set the number of rows displayed on this page
If (all_contac_numRows < 0) Then
all_contac_numRows = all_contac_total
Elseif (all_contac_numRows = 0) Then
all_contac_numRows = 1
End If

' set the first and last displayed record
all_contac_first = 1
all_contac_last = all_contac_first + all_contac_numRows - 1

' if we have the correct record count, check the other stats
If (all_contac_total <> -1) Then
If (all_contac_first > all_contac_total) Then
all_contac_first = all_contac_total
End If
If (all_contac_last > all_contac_total) Then
all_contac_last = all_contac_total
End If
If (all_contac_numRows > all_contac_total) Then
all_contac_numRows = all_contac_total
End If
End If
%>

<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (all_contac_total = -1) Then

' count the total records by iterating through the recordset
all_contac_total=0
While (Not all_contac.EOF)
all_contac_total = all_contac_total + 1
all_contac.MoveNext
Wend

' reset the cursor to the beginning
If (all_contac.CursorType > 0) Then
all_contac.MoveFirst
Else
all_contac.Requery
End If

' set the number of rows displayed on this page
If (all_contac_numRows < 0 Or all_contac_numRows > all_contac_total) Then
all_contac_numRows = all_contac_total
End If

' set the first and last displayed record
all_contac_first = 1
all_contac_last = all_contac_first + all_contac_numRows - 1

If (all_contac_first > all_contac_total) Then
all_contac_first = all_contac_total
End If
If (all_contac_last > all_contac_total) Then
all_contac_last = all_contac_total
End If

End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Documento sin t&iacute;tulo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<table width="90%" border="1" cellspacing="2" cellpadding="2">
<tr>
<th scope="col">indice</th>
<th scope="col">Nombre</th>
<th scope="col">Procedencia</th>
<th scope="col">Correos</th>
<th scope="col">Telefonos</th>
<th scope="col">Productos</th>
<th scope="col">Direccion</th>
<th scope="col">Fech_contac</th>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT all_contac.EOF))
%>
<tr>
<td><%=(all_contac_first)%></td>
<td><%=(all_contac.Fields.Item("nombre").Value)% ></td>
<td><%=(all_contac.Fields.Item("procede").Value)%> </td>
<td><%=(all_contac.Fields.Item("correos").Value)%> </td>
<td><%=(all_contac.Fields.Item("telefonos").Value) %></td>
<td><%=(all_contac.Fields.Item("producto").Value)% ></td>
<td><%=(all_contac.Fields.Item("direc").Value)%> </td>
<td><%=(all_contac.Fields.Item("fech_contac").Valu e)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
all_contac.MoveNext()
Wend
%>
</table>


</body>
</html>
<%
all_contac.Close()
Set all_contac = Nothing
%>

[trasgukabi]

mira a ver si en connections/zonainbd.asp tienes esta linea
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

y , si es así, bórrala.