Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Formulario de Datos 2

25/07/2003 - 22:00 por Erick | Informe spam
Ayuda Hacer una pregunta
Hola Grupo:

Tengo el siguiente codigo y no me corre bien alguien puede ayudarme?

<%@ Language=VBScript %>

<%
'Application("cn_ConnectionString") = "Provider=SQLOLEDB.1;Persist Security
Info=True;User ID=prueba;Initial Catalog=ListaDePrecios;Data
Source=GOPDATACAR;Use Procedure for Prepare=1;Auto Translate=True;Packet
Size@96;Workstation ID=GOPDATACAR;Use Encryption for Data=False;Tag with
column collation when possible=False;User Id=prueba;PASSWORD=prueba;"
dim cn
dim rs
set cn = server.CreateObject("ADODB.connection")
set rs = server.CreateObject("ADODB.recordset")
cn.Open Application("cn_ConnectionString")
rs.ActiveConnection = cn
' en el cliente
rs.CursorLocation = 3
rs.Open "SELECT * FROM Referencia ORDER BY Referencia ASC"
if Request.QueryString("Primero")="true" then
rs.MoveFirst
end if
if Request.QueryString("Anterior")="true" then
rs.MovePrevious
if rs.BOF then
rs.MoveFirst
end if
end if
if Request.QueryString("Siguiente")="true" then
rs.MoveNext
if rs.EOF then
rs.MoveLast
end if
end if
if Request.QueryString("Ultimo")="true" then
rs.MoveLast
end if
%>

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>

<P align=center>
<form name=lista>
Referencia:<input name=referencia value=<%=rs.Fields(0).Value%>><br>
Descripcion:<input name=descripcion value=<%=rs.Fields(1).Value%>><br>
Cor:<input name=cor value=<%=rs.Fields(2).Value%>><br>
Pcl:<input name=pcl value=<%=rs.Fields(4).Value%>><br>
Iva:<input name=iva value=<%=rs.Fields(5).Value%>><br>
Ppl:<input name=Ppl value=<%=rs.Fields(6).Value%>><br>
</form>
<a href="Index.asp?Primero=true">Primero</a>
<a href="Index.asp?Anterior=true">Anterior</a>
<a href="Index.asp?Siguiente=true">Siguiente</a>
<a href="Index.asp?Ultimo=true">Ultimo</a>
&nbsp;
</P>

</BODY>
</HTML>

Att: Erick
email Siga el debateRespuesta 8 respuestasRespuesta Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Erick
25/07/2003 - 22:15 | Informe spam
se me olvido comentar, cuando le doy click en siguiente parece que solo
hubiera un registro pues no anda

Att: Erick
"Erick" escribió en el mensaje
news:
Hola Grupo:

Tengo el siguiente codigo y no me corre bien alguien puede ayudarme?

<%@ Language=VBScript %>

<%
'Application("cn_ConnectionString") = "Provider=SQLOLEDB.1;Persist


Security
Info=True;User ID=prueba;Initial Catalog=ListaDePrecios;Data
Source=GOPDATACAR;Use Procedure for Prepare=1;Auto Translate=True;Packet
;Workstation ID=GOPDATACAR;Use Encryption for Data=False;Tag with
column collation when possible=False;User Id=prueba;PASSWORD=prueba;"
dim cn
dim rs
set cn = server.CreateObject("ADODB.connection")
set rs = server.CreateObject("ADODB.recordset")
cn.Open Application("cn_ConnectionString")
rs.ActiveConnection = cn
' en el cliente
rs.CursorLocation = 3
rs.Open "SELECT * FROM Referencia ORDER BY Referencia ASC"
if Request.QueryString("Primero")="true" then
rs.MoveFirst
end if
if Request.QueryString("Anterior")="true" then
rs.MovePrevious
if rs.BOF then
rs.MoveFirst
end if
end if
if Request.QueryString("Siguiente")="true" then
rs.MoveNext
if rs.EOF then
rs.MoveLast
end if
end if
if Request.QueryString("Ultimo")="true" then
rs.MoveLast
end if
%>

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>

<P align=center>
<form name=lista>
Referencia:<input name=referencia value=<%=rs.Fields(0).Value%>><br>
Descripcion:<input name=descripcion value=<%=rs.Fields(1).Value%>><br>
Cor:<input name=cor value=<%=rs.Fields(2).Value%>><br>
Pcl:<input name=pcl value=<%=rs.Fields(4).Value%>><br>
Iva:<input name=iva value=<%=rs.Fields(5).Value%>><br>
Ppl:<input name=Ppl value=<%=rs.Fields(6).Value%>><br>
</form>
<a href="Index.asp?Primero=true">Primero</a>
<a href="Index.asp?Anterior=true">Anterior</a>
<a href="Index.asp?Siguiente=true">Siguiente</a>
<a href="Index.asp?Ultimo=true">Ultimo</a>
&nbsp;
</P>

</BODY>
</HTML>

Att: Erick


Respuesta Responder a este mensaje
#2 Webmaster Tiendainformaticatotal.com
26/07/2003 - 00:23 | Informe spam
en que línea te da el error??

Erick escribió en el mensaje de noticias

Hola Grupo:

Tengo el siguiente codigo y no me corre bien alguien puede ayudarme?

<%@ Language=VBScript %>

<%
'Application("cn_ConnectionString") = "Provider=SQLOLEDB.1;Persist


Security
Info=True;User ID=prueba;Initial Catalog=ListaDePrecios;Data
Source=GOPDATACAR;Use Procedure for Prepare=1;Auto Translate=True;Packet
;Workstation ID=GOPDATACAR;Use Encryption for Data=False;Tag with
column collation when possible=False;User Id=prueba;PASSWORD=prueba;"
dim cn
dim rs
set cn = server.CreateObject("ADODB.connection")
set rs = server.CreateObject("ADODB.recordset")
cn.Open Application("cn_ConnectionString")
rs.ActiveConnection = cn
' en el cliente
rs.CursorLocation = 3
rs.Open "SELECT * FROM Referencia ORDER BY Referencia ASC"
if Request.QueryString("Primero")="true" then
rs.MoveFirst
end if
if Request.QueryString("Anterior")="true" then
rs.MovePrevious
if rs.BOF then
rs.MoveFirst
end if
end if
if Request.QueryString("Siguiente")="true" then
rs.MoveNext
if rs.EOF then
rs.MoveLast
end if
end if
if Request.QueryString("Ultimo")="true" then
rs.MoveLast
end if
%>

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>

<P align=center>
<form name=lista>
Referencia:<input name=referencia value=<%=rs.Fields(0).Value%>><br>
Descripcion:<input name=descripcion value=<%=rs.Fields(1).Value%>><br>
Cor:<input name=cor value=<%=rs.Fields(2).Value%>><br>
Pcl:<input name=pcl value=<%=rs.Fields(4).Value%>><br>
Iva:<input name=iva value=<%=rs.Fields(5).Value%>><br>
Ppl:<input name=Ppl value=<%=rs.Fields(6).Value%>><br>
</form>
<a href="Index.asp?Primero=true">Primero</a>
<a href="Index.asp?Anterior=true">Anterior</a>
<a href="Index.asp?Siguiente=true">Siguiente</a>
<a href="Index.asp?Ultimo=true">Ultimo</a>
&nbsp;
</P>

</BODY>
</HTML>

Att: Erick


Respuesta Responder a este mensaje
#3 Erick
26/07/2003 - 16:32 | Informe spam
no me da error, si no que no me muestra sino dos registros cuando hay como
4000 registros en la tabla

att:Erick
"Erick" escribió en el mensaje
news:
Hola Grupo:

Tengo el siguiente codigo y no me corre bien alguien puede ayudarme?

<%@ Language=VBScript %>

<%
'Application("cn_ConnectionString") = "Provider=SQLOLEDB.1;Persist


Security
Info=True;User ID=prueba;Initial Catalog=ListaDePrecios;Data
Source=GOPDATACAR;Use Procedure for Prepare=1;Auto Translate=True;Packet
;Workstation ID=GOPDATACAR;Use Encryption for Data=False;Tag with
column collation when possible=False;User Id=prueba;PASSWORD=prueba;"
dim cn
dim rs
set cn = server.CreateObject("ADODB.connection")
set rs = server.CreateObject("ADODB.recordset")
cn.Open Application("cn_ConnectionString")
rs.ActiveConnection = cn
' en el cliente
rs.CursorLocation = 3
rs.Open "SELECT * FROM Referencia ORDER BY Referencia ASC"
if Request.QueryString("Primero")="true" then
rs.MoveFirst
end if
if Request.QueryString("Anterior")="true" then
rs.MovePrevious
if rs.BOF then
rs.MoveFirst
end if
end if
if Request.QueryString("Siguiente")="true" then
rs.MoveNext
if rs.EOF then
rs.MoveLast
end if
end if
if Request.QueryString("Ultimo")="true" then
rs.MoveLast
end if
%>

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>

<P align=center>
<form name=lista>
Referencia:<input name=referencia value=<%=rs.Fields(0).Value%>><br>
Descripcion:<input name=descripcion value=<%=rs.Fields(1).Value%>><br>
Cor:<input name=cor value=<%=rs.Fields(2).Value%>><br>
Pcl:<input name=pcl value=<%=rs.Fields(4).Value%>><br>
Iva:<input name=iva value=<%=rs.Fields(5).Value%>><br>
Ppl:<input name=Ppl value=<%=rs.Fields(6).Value%>><br>
</form>
<a href="Index.asp?Primero=true">Primero</a>
<a href="Index.asp?Anterior=true">Anterior</a>
<a href="Index.asp?Siguiente=true">Siguiente</a>
<a href="Index.asp?Ultimo=true">Ultimo</a>
&nbsp;
</P>

</BODY>
</HTML>

Att: Erick


Respuesta Responder a este mensaje
#4 Erick
26/07/2003 - 22:13 | Informe spam
Estimado WebMaster no se a que te refieres con paginar, lo que hago es que
tengo unos registros en una tabla y quiero mirarlos uno por uno, moviendome
al siguiente, primero y cosas asi, pero solo me anda al primero, segundo y
al ultimo

Att: Erick
"Erick" escribió en el mensaje
news:
Hola Grupo:

Tengo el siguiente codigo y no me corre bien alguien puede ayudarme?

<%@ Language=VBScript %>

<%
'Application("cn_ConnectionString") = "Provider=SQLOLEDB.1;Persist


Security
Info=True;User ID=prueba;Initial Catalog=ListaDePrecios;Data
Source=GOPDATACAR;Use Procedure for Prepare=1;Auto Translate=True;Packet
;Workstation ID=GOPDATACAR;Use Encryption for Data=False;Tag with
column collation when possible=False;User Id=prueba;PASSWORD=prueba;"
dim cn
dim rs
set cn = server.CreateObject("ADODB.connection")
set rs = server.CreateObject("ADODB.recordset")
cn.Open Application("cn_ConnectionString")
rs.ActiveConnection = cn
' en el cliente
rs.CursorLocation = 3
rs.Open "SELECT * FROM Referencia ORDER BY Referencia ASC"
if Request.QueryString("Primero")="true" then
rs.MoveFirst
end if
if Request.QueryString("Anterior")="true" then
rs.MovePrevious
if rs.BOF then
rs.MoveFirst
end if
end if
if Request.QueryString("Siguiente")="true" then
rs.MoveNext
if rs.EOF then
rs.MoveLast
end if
end if
if Request.QueryString("Ultimo")="true" then
rs.MoveLast
end if
%>

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>

<P align=center>
<form name=lista>
Referencia:<input name=referencia value=<%=rs.Fields(0).Value%>><br>
Descripcion:<input name=descripcion value=<%=rs.Fields(1).Value%>><br>
Cor:<input name=cor value=<%=rs.Fields(2).Value%>><br>
Pcl:<input name=pcl value=<%=rs.Fields(4).Value%>><br>
Iva:<input name=iva value=<%=rs.Fields(5).Value%>><br>
Ppl:<input name=Ppl value=<%=rs.Fields(6).Value%>><br>
</form>
<a href="Index.asp?Primero=true">Primero</a>
<a href="Index.asp?Anterior=true">Anterior</a>
<a href="Index.asp?Siguiente=true">Siguiente</a>
<a href="Index.asp?Ultimo=true">Ultimo</a>
&nbsp;
</P>

</BODY>
</HTML>

Att: Erick


Respuesta Responder a este mensaje
#5 Sashka
27/07/2003 - 19:48 | Informe spam
Lo que te está pasando es que al volver a llamar a la página vuelves a abrir
el recordset (que dicho sea de paso, no cierras al terminar de cargar la
página cada vez) y al hacer un movenext te mueves al registro siguiente que
siempre es el segundo..

Lo que debes hacer, en primer lugar es cerrar tu recordset y tu conexión al
final de la página...

<% rs.close
set rs=nothing
cn.close
set cn=nothing %>
</BODY>
</HTML>

Luego debes pasarle la posición a la que quieres ir cada vez

<a href="Index.asp?Primero=true">Primero</a>
<a
href="Index.asp?Anterior=true&nro=<%=RS.AbsolutePosition-1%>">Anterior</a>
<a
href="Index.asp?Siguiente=true&nro=<%=RS.AbsolutePosition%>">Siguiente</a>
<a href="Index.asp?Ultimo=true">Ultimo</a>

Y por último

if Request.QueryString("Anterior")="true" then
rs.Move Request.QueryString("nro")-1
if rs.BOF then
rs.MoveFirst
end if
end if
if Request.QueryString("Siguiente")="true" then
rs.Move Request.QueryString("nro")
if rs.EOF then
rs.MoveLast
end if
end if

Sashka

"Erick" escribió en el mensaje
news:
Estimado WebMaster no se a que te refieres con paginar, lo que hago es que
tengo unos registros en una tabla y quiero mirarlos uno por uno,


moviendome
al siguiente, primero y cosas asi, pero solo me anda al primero, segundo y
al ultimo

Att: Erick
"Erick" escribió en el mensaje
news:
> Hola Grupo:
>
> Tengo el siguiente codigo y no me corre bien alguien puede ayudarme?
>
> <%@ Language=VBScript %>
>
> <%
> 'Application("cn_ConnectionString") = "Provider=SQLOLEDB.1;Persist
Security
> Info=True;User ID=prueba;Initial Catalog=ListaDePrecios;Data
> Source=GOPDATACAR;Use Procedure for Prepare=1;Auto Translate=True;Packet
> ;Workstation ID=GOPDATACAR;Use Encryption for Data=False;Tag


with
> column collation when possible=False;User Id=prueba;PASSWORD=prueba;"
> dim cn
> dim rs
> set cn = server.CreateObject("ADODB.connection")
> set rs = server.CreateObject("ADODB.recordset")
> cn.Open Application("cn_ConnectionString")
> rs.ActiveConnection = cn
> ' en el cliente
> rs.CursorLocation = 3
> rs.Open "SELECT * FROM Referencia ORDER BY Referencia ASC"
> if Request.QueryString("Primero")="true" then
> rs.MoveFirst
> end if
> if Request.QueryString("Anterior")="true" then
> rs.MovePrevious
> if rs.BOF then
> rs.MoveFirst
> end if
> end if
> if Request.QueryString("Siguiente")="true" then
> rs.MoveNext
> if rs.EOF then
> rs.MoveLast
> end if
> end if
> if Request.QueryString("Ultimo")="true" then
> rs.MoveLast
> end if
> %>
>
> <HTML>
> <HEAD>
> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
> </HEAD>
> <BODY>
>
> <P align=center>
> <form name=lista>
> Referencia:<input name=referencia value=<%=rs.Fields(0).Value%>><br>
> Descripcion:<input name=descripcion value=<%=rs.Fields(1).Value%>><br>
> Cor:<input name=cor value=<%=rs.Fields(2).Value%>><br>
> Pcl:<input name=pcl value=<%=rs.Fields(4).Value%>><br>
> Iva:<input name=iva value=<%=rs.Fields(5).Value%>><br>
> Ppl:<input name=Ppl value=<%=rs.Fields(6).Value%>><br>
> </form>
> <a href="Index.asp?Primero=true">Primero</a>
> <a href="Index.asp?Anterior=true">Anterior</a>
> <a href="Index.asp?Siguiente=true">Siguiente</a>
> <a href="Index.asp?Ultimo=true">Ultimo</a>
> &nbsp;
> </P>
>
> </BODY>
> </HTML>
>
> Att: Erick
>
>


Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida