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
DRAGON AGE™: INQUISITION – Matadragones
 

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


Preguntas similares

 

Busqueda sugerida :