|
|
Este codigo 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.
<%
dim tipo, nombre
tipo=request.querystring("tipo")
nombre=request.querystring("nombre")
%>
<%
' 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 %>
<% num_campos=ob_rs.Fields.Count
FOR Campo=0 TO num_campos -1
IF ob_rs(Campo).Name="Descripcion" THEN %>
| <%=ob_rs(Campo).Name %> |
<% ELSE
IF ob_rs(Campo).Name="Fecha" THEN %>
<%=ob_rs(Campo).Name %> |
<% ELSE %>
<%=ob_rs(Campo).Name %> |
<% END IF
END IF
NEXT
IF ob_rs.RecordCount <> 0 THEN
DO WHILE NOT ob_rs.EOF %>
<%FOR Campo=0 TO num_campos -1 %>
<% IF Campo=0 THEN %>
| <%=ob_rs(Campo) %> |
<% ELSE %>
<%=ob_rs(Campo) %> |
<%END IF
NEXT
ob_rs.MoveNext
LOOP
END IF%>
y una pequeña consulta, como puedo comprobar en un if si un checkboton esta marcado o no??
muchas gracias !!!!!!!!
|
Re: dos cositas nada mas
|
|
|
Bueno indicame la linea pq es pq 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
|
|
dos cositas nada mas
|
|
|
el error lo da el ejecutar la select,
en: SET ob_rs =ob_comand.Execute()
porfavor si puedes miralo hoy.
Muchas gracias
|
|
|
Re: dos cositas nada mas
|
|
|
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()
|
|
|
dos cositas nada mas
|
|
|
muchas gracias, era un problema que tenian en el servidor pero ahora que ya tienes el codigo ahi, 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 habian dicho que se hacia asi: Nombre as NAME pero asi no me funciona, ¿sabes como puedo hacerlo? o tengo que hacer la tabla ahora en ingles tambien.
Muchas gracias anticipadas
|
|
|
Re: dos cositas nada mas
|
|
|
esq es Nombre as NAME , no hay otra forma a menos q lo hagas mal
|
|
|
dos cositas nada mas
|
|
|
Pues entonces es que lo hago mal, como tengo que hacerlo, ponme un ejemplo para ver la sintaxis porfavor,
muchas gracias.
y que tengo que hacer para la tabla que genera muestre el borde de los campos que esten vacios tb, esque hay algunos campos en la base de datos vacios y cuando los muestra en pantalla esas celdas salen completamente en blanco sin borde ni nada y no queda muy bien que digamos .
muchas gracias de nuevo
|
|
|
Pregunta finalizada. Valoración: 3.
|
|
|
Bien. Una respuesta aceptable.
|
Volver al mensaje
http://www.todoexpertos.com/categorias/tecnologia-e-internet/desarrollo-de-sitios-web/asp/respuestas/511839/dos-cositas-nada-mas
| | | |