
13/03/2002, 08:43
|
| | 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. |