Ayuda con error en el código de página web al subirlo a un servidor en internet

Este código que te mando a mi me funciona en mi servidor, pero he subido el web a internet y me da este error: Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][Controlador ODBC Microsoft Access] Pocos parámetros. Se esperaba 2.
/elcae/todlib.asp, line 130
Mira a ver si puedes hecharme una mano xq esque yo ya estoy saturao.
<BODY vLink=#494965 aLink=#494965 link=#494965 leftMargin=0
topMargin=0 rightMargin=0 marginwidth="0" marginheight="0" color="#000000">
<%
dim tipo, nombre
tipo=request.querystring("tipo")
nombre=request.querystring("nombre")
%>
<center>
<script src="cab1.js">
</script>
<script>
cabecera('<a href="Default.htm">HOME</a>');
</script>
<SCRIPT language=JavaScript>
var now = new Date();
</SCRIPT>
<td valign=top>
<TABLE cellSpacing=0 cellPadding=0 width=645 border=0 align=left>
<TBODY>
<!--frame central-->
<TD vAlign=top width=645 bgColor=#ffffff >
<TABLE cellSpacing=0 cellPadding=0 width=645 12/05/03 border=0 height=22>
<TBODY>
<TR>
<TD vAlign=top width=500 bgColor=#c9d6f5 align=left><font face="Verdana" size="1" color="white"> <b><a href="default.asp">Homepage</a> / <a href=<%=tipo & ".asp" %>> Librerias <%=tipo %> </a> /  <font color="#0000a0"> <%=nombre %></font> </b></FONT> </TD>
<TD vAlign=top align=right bgColor=#c9d6f5><FONT face=Arial color=#ffffff
size=2>
<SCRIPT language=JavaScript>
document.write(Fecha());
</SCRIPT>
  </FONT></TD>
</TBODY></TABLE>
<!-- #INCLUDE File="ADOVBS.inc" -->
<%
' Nos conectamos a la base de datos
Set ob_con= Server.CreateObject("ADODB.Connection")
Set ob_comand=Server.CreateObject("ADODB.Command")
ob_con.Open "usuarios"
ob_comand.ActiveConnection = ob_con
ob_comand.CommandType = adCmdText
IF Request.QueryString("tipo") = "fabricantes" THEN
sql="SELECT Nombre, Fecha, Descripcion, Montaje FROM Librerias WHERE Fabricante= '" & nombre & "'"
ob_comand.CommandText = sql
SET ob_rs =ob_comand.Execute()
ELSE
IF Request.QueryString("tipo") = "control" THEN
sql="SELECT Nombre, Fecha, Descripcion, Fabricante, Montaje FROM Librerias WHERE Control='" & nombre & "'"
ob_comand.CommandText = sql
SET ob_rs =ob_comand.Execute()
ELSE
IF Request.QueryString("tipo")="potencia" THEN
sql="SELECT Nombre, Fecha, Descripcion, Fabricante, Montaje FROM Librerias WHERE Potencia='" & nombre & "'"
ob_comand.CommandText = sql
SET ob_rs =ob_comand.Execute()
ELSE
IF Request.QueryString("tipo")="data" THEN
sql="SELECT Nombre, Fecha, Descripcion, Fabricante FROM Librerias WHERE Data='" & nombre & "'"
ob_comand.CommandText = sql
SET ob_rs =ob_comand.Execute()
ELSE
IF Request.QueryString("tipo")="montaje" THEN
sql="SELECT Nombre, Fecha, Descripcion, Fabricante FROM Librerias WHERE Montaje='" & nombre & "'"
ob_comand.CommandText = sql
SET ob_rs =ob_comand.Execute()
END IF
END IF
END IF
END IF
END IF %>
<CENTER><BR><BR><BR>
<TABLE cellSpacing=0 cellPadding=0 width=602 border=0 height="137">
<TBODY>
<TR>
<TD vAlign=top align=left width="602" height="102" >
<center>
<table border="1" cellspacing="1" width="100%" bordercolor="#003049" bordercolorlight="#CDDEEA" bordercolordark="#003049" style="border-style: outset; border-color: #003049" >
<TR><% num_campos=ob_rs.Fields.Count
FOR Campo=0 TO num_campos -1
IF ob_rs(Campo).Name="Descripcion" THEN %>
<th width="30%" height="15" bgcolor="#ffffdd" style="text-align: center"><font face="AvantGarde Md BT" size="2"><%=ob_rs(Campo).Name %> </th>
<% ELSE
IF ob_rs(Campo).Name="Fecha" THEN %>
<th width="15%" height="15" bgcolor="#ffffdd" style="text-align: center"><font face="AvantGarde Md BT" size="2"><%=ob_rs(Campo).Name %> </th>
<% ELSE %>
<th width="18%" height="15" bgcolor="#ffffdd" style="text-align: center"><font face="AvantGarde Md BT" size="2"><%=ob_rs(Campo).Name %> </th>
<% END IF
END IF
NEXT
IF ob_rs.RecordCount <> 0 THEN
DO WHILE NOT ob_rs.EOF %>
<TR>
<%FOR Campo=0 TO num_campos -1 %>
<% IF Campo=0 THEN %>
<td height="46" bgcolor="#FFFFFF" style="text-align: center"><A HREF="L_Usreg.asp?nombre=<%=ob_rs(Campo) %>"><%=ob_rs(Campo) %></A> </TD>
<% ELSE %>
<td height="46" bgcolor="#FFFFFF" style="text-align: center"><%=ob_rs(Campo) %> </TD>
<%END IF
NEXT
ob_rs.MoveNext
LOOP
END IF%>
Y una pequeña consulta, ¿cómo puedo comprobar en un if si un checkboton esta marcado o no?
Muchas gracias !
Respuesta
1
Es que es Nombre as NAME, no hay otra forma a menos que lo hagas mal
Muchas gracias, era un problema que tenían en el servidor pero ahora que ya tienes el código ahí, que tengo que hacer para cambiar el nombre de los campos al realizar la consulta, me explico, yo quiero que en pantalla la tabla salga en ingles me habían dicho que se hacia así: Nombre as NAME pero así no me funciona, ¿sabes cómo puedo hacerlo? O tengo que hacer la tabla ahora en ingles también.
Muchas gracias anticipadas
Bueno indicame la linea porque es porque no me voy a poner a contarla, respecto a los check debes darles al value y luego hacer
If request.form("nombrecheck")=="true" then
true es el valor del value
el error lo da el ejecutar la select,
en: SET ob_rs =ob_comand.Execute()
Por favor si puedes miralo hoy.
Muchas gracias
Cambialo por:
IF Request.QueryString("tipo") = "fabricantes" THEN
sql="SELECT Nombre, Fecha, Descripcion, Montaje FROM Librerias WHERE Fabricante= '" & nombre & "'"
ELSE
IF Request.QueryString("tipo") = "control" THEN
sql="SELECT Nombre, Fecha, Descripcion, Fabricante, Montaje FROM Librerias WHERE Control='" & nombre & "'"
ELSE
IF Request.QueryString("tipo")="potencia" THEN
sql="SELECT Nombre, Fecha, Descripcion, Fabricante, Montaje FROM Librerias WHERE Potencia='" & nombre & "'"
ELSE
IF Request.QueryString("tipo")="data" THEN
sql="SELECT Nombre, Fecha, Descripcion, Fabricante FROM Librerias WHERE Data='" & nombre & "'"
ELSE
IF Request.QueryString("tipo")="montaje" THEN
sql="SELECT Nombre, Fecha, Descripcion, Fabricante FROM Librerias WHERE Montaje='" & nombre & "'"
END IF
END IF
END IF
END IF
ob_comand.CommandText = sql
SET ob_rs =ob_comand.Execute()

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ventajas o Desventajas de ASP.NET sobre PHP

Me gustaría saber cuales son las ventajas de ASP.NET sobre PHP y por cual decidirme para crear un portal. También querría saber algunas direcciones de ASP.NET pero avanzado ya que ya lo controlo.
2 respuestas

Microsoft OLE DB Provider for ODBC Drivers error '80004005' en windows server

Me marca este error al tratar de trabajar en windows server 2008 r2 con paginas ASP, estas paginas las estuve trabajando en Windows 7 32 bits pero al tratar de cambiarla a windows server, ya investigando encontré que tiene que ver los driver de ODBC...
2 respuestas

Sumar registros hasta ASP clásico

Contar registros hasta ASP clásico Hace años que no toco esto y estoy haciendo pruebas de aquí y allá, pero no consigo hacerlo. Tengo una base de datos en access y tengo registros de llamadas de una centralita telefónica. La tabla tiene 5 columnas...
1 respuesta

Error Microsoft OLE DB Provider for ODBC Drivers error '80004005'

He estado trabajando en un equipo con w7, pero ahora voy trabajar con un equipo w10 todo iba bien hasta que me salio este error, estado buscando y lo que encontrado no me resulta, es obvio que no tiene nada que ver con el código por que si me...
1 respuesta

Como poner una condición if dentro de un select option o desplegable en asp

Estoy intentando poner la condición if en un desplegable para que cuando pulse sobra el botón aceptar y no tenga nada seleccionado dentro del desplegable me lleve a una página la cual me informe que no hay datos seleccionados. Por más que lo intento...
1 respuesta

Cómo diseñar una página para que se adapte a cualquier tamaño de pantalla

Como puedo hacer que el contenido se ajuste a cualquier tamaño de pantalla y zoom que se le pueda dar bueno básicamente tengo unos css que están en pixeles no se si es necesario cambiarlos a porcentajes pero se me dificulta saber que porcentaje es...
2 respuestas

Error en aplicación web al usar framework 4.5

Error de servidor en la aplicación '/asp.netwebadminfiles'. Error de compilaciónDescripción: Error durante la compilación de un recurso requerido para dar servicio a esta solicitud. Revise los detalles de error específicos siguientes y modifique el...
2 respuestas

Como puedo definir el zoom con css?

Como puedo definir para que el zoom que se cargue una página se ha el que yo defina con CSS, por ejemplo si el navegador del usuario actualmente tiene el 100%, yo con css decir que se cargue con 80%, ¿Se puede hacer esto?
2 respuestas

¿Qué Sistema operativo será mejor para un servidor?

Bueno claro que escuchado que linux es mejor para un servidor, pero quiero saber si seria una buena opción para mi ya que yo estoy trabajando con ASP, IIS 7.5 ACCESS bueno también podría ser SQL server, actualmente donde trabajó usa CENTOS 6.5, pero...
2 respuestas

ASP base de datos access y actualización en tiempo real

Hace tiempo realice una base de datos con access y los usuarios van metiendo sus datos desde unos formularios en ASP, los registros luego los visualizo en una pantalla en una pagina resultados de ASP. Hasta aquí todo bien, pero para ver los cambios...
1 respuesta