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

#6 Erick
28/07/2003 - 16:16 | Informe spam
Sashka este es mi nuevo codigo y sigue igual, alguna idea?

<%@ 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"
rs.MoveFirst

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>
Numero de registros:<%=rs.RecordCount%><Br>
Registro Actual:<%=rs.AbsolutePosition %>
////////////////////esta es la parte nueva///////////

<%
rs.Close
set rs = nothing
cn.Close
set cn=nothing
%>
/////////////////////////////////////////////////////
</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

"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
#7 Webmaster Tiendainformaticatotal.com
28/07/2003 - 21:03 | Informe spam
seria mucho mejor hacerlo como yo te dije, osea paginando, el resultado es
el mismo o simplemente, cuando le digas siguiente, coges el codigo
"Referencia " y le sumas uno, pero yo lo haria mejor usando un sistema de
paginacion, osea que muestre X registros en cada pagina ya sean 1 o 2.


Erick escribió en el mensaje de noticias
OrD$
Sashka este es mi nuevo codigo y sigue igual, alguna idea?

<%@ 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"
rs.MoveFirst

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>
Numero de registros:<%=rs.RecordCount%><Br>
Registro Actual:<%=rs.AbsolutePosition %>
////////////////////esta es la parte nueva///////////

<%
rs.Close
set rs = nothing
cn.Close
set cn=nothing
%>
/////////////////////////////////////////////////////
</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

"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
#8 Erick
29/07/2003 - 16:29 | Informe spam
Gracias sashka, espero que por fin funcione¡¡

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


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una pregunta AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida