Ver Mensaje Individual
  #4 (permalink)  
Antiguo 13/03/2002, 08:43
RonaldMM
 
Fecha de Ingreso: marzo-2002
Mensajes: 3
Antigüedad: 23 años, 2 meses
Puntos: 0
Re: Consulta de campos tipo texto..

Gracias por sus respuestas,

No uso Input para mostrar, el código es el siguiente:

--------------------------
SQLStr ="SELECT Id, Nit, ClientName, IsEmailOrFax " &_
"FROM Dispatcher " &_
"ORDER BY Id"

Set Rs = GetRecordset( Session("ConnString"), SQLStr )

Rs.PageSize = CInt( RowsNumber )

if ( Rs.EOF = false ) then
Rs.AbsolutePage = CInt( PageNumber )

Do While ( RS.EOF = False ) and
( Counter < Rs.PageSize )

Response.Write "<td align=center width=20% class=tdReportes>" & Rs("Nit") & "</td>" & _
"<td width=55% class=tdReportes>" & Rs( "ClientName" ) & "</td></tr>"

Rs.MoveNext()
Loop

Function GetRecordSet(byval strConnectionString, byval strSQL)

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConnectionString

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation = adUseClient
objRS.Open strSQL, _
objConn, _
adOpenForwardOnly, _
adLockBatchOptimistic

Set objRS.ActiveConnection = Nothing
objConn.Close
set objConn = Nothing
Set GetRecordSet = objRS

End Function

------------------

Gracias por su ayuda.