Bom dia a todos!! Quero agradecer a colaboração de todos..Já foi tudo
resolvido, claro, com ajuda de cada um..Abraço e tenham um ótimo dia de
trabalho..
Atenciosamente,
Luiz Claudio
Marcelo Okano <[EMAIL PROTECTED]> escreveu:
Luiz,
Vc aplicou esta função na mão ou usou o Dreamweaver?
On 8/4/06, Luiz Claudio Felicio <[EMAIL PROTECTED]> wrote:
>
> Rsrsrsr..Alex!! Desculpe, na verdade esse top era para o meu teste, pois
> como a minha paginacao nao estava funcionando, entao eu estava trazendo
> apenas as 10 linhas. Mas no script da paginacao eu já defino a quantidade de
> linhas que ira me trazer. entao como eu devino parametro no meu codigo e
> apartir do momento que eu avnço ao proximo, me apresenta o erro..Realmente
> estou usando o SQL SERVER 2000.
>
> Obrigado..
>
> Alex Fernando Kirsten <[EMAIL PROTECTED]> escreveu:
>
> Opa...
>
> SQLTEL="SELECT TOP 10 NUMERO,QUANTREC,TOTALREC FROM RECARGASUMARIA"
>
> Esse TOP 10 ali é coisa de SQL Server. Tenta reescrever o sql da seguinte
> maneira:
>
> SQLTEL="SELECT NUMERO,QUANTREC,TOTALREC FROM RECARGASUMARIA"
> SQLTEL= SQLTEL & " WHERE TIPOREC =" & Request.FORM("TXTVALOR")
> SQLTEL= SQLTEL & " AND MES =" & Request.FORM("TXTMES")
> SQLTEL=SQLTEL & " order by 1"
> SQLTEL= "select * from (" & SQLTEL & ") where rownum <= 10 "
>
> []'s
>
>
> --
> Alex Fernando Kirsten
> Oracle 9i Database Administrator Certified Professional
> MSN: [EMAIL PROTECTED]
> Email: [EMAIL PROTECTED]
>
>
> On 8/4/06, Luiz Claudio Felicio <[EMAIL PROTECTED]> wrote:
>
> > Bom dia a todos!! Colegas, sei que aqui deve ter alguem que trabalha
> com
> > ASP. Bem estou com um problema que até agora nao consegui resolver.
> >
> > tenho um form.htl aonde atres dele eu passo os valores que eu quero. O
> > mesmo me chama uma outra em ASP. Sendo que, como o volume de registro é
> > muito grande eu consegui uma codigo de paginacao e apliquei no meu.Bemse
> > eu rodar o meu codigo asp sem os paramentro que eu passo no meu sql ele
> me
> > mostra as paginaçoes perfeitas, mas quando eu utlizo o meu form.htl e
> > passo os paramentro dai me dar problemas, pois ele me traz somente os
> > registro que eu defino e quando passo para o proxime me dar uma erro
> tipo
> >
> >
> > Error Type:
> > Microsoft OLE DB Provider for SQL Server (0x80040E14)
> > Incorrect syntax near the keyword 'AND'.
> > /dsi/page_teste.asp, line 21..
> >
> > Mas sei que nao de estar ai exatamente e sim em alguma parte abaixo que
> eu
> > nao estou localizando bem..Por favor se alguem puder me ajudar, precis
> > entregar isso hoje...Agradeço desde ja.
> > Luiz Claudio Felicio
> > <[EMAIL PROTECTED]"VBSCRIPT" CODEPAGE="1252"%>
> > <%
> > Dim pageTest
> > dim objconn
> > Dim pageTest_numRows
> > dim SQLTEL
> >
> > Set objConn = Server.CreateObject("ADODB.Connection")
> > set pageTest = Server.CreateObject("ADODB.Recordset")
> >
> >
> > SQLTEL="SELECT TOP 10 NUMERO,QUANTREC,TOTALREC FROM RECARGASUMARIA"
> > SQLTEL= SQLTEL & " WHERE TIPOREC =" & Request.FORM("TXTVALOR")
> > SQLTEL= SQLTEL & " AND MES =" & Request.FORM("TXTMES")
> > 'SQLTEL = " SELECT * FROM RECARGASUMARIA"
> >
> > objConn.Open "Provider=SQLOLEDB;Data Source=localhost; Initial
> > Catalog=DSI;Integrated Security=SSPI"
> > set pageTest = objConn.execute(sqltel)
> >
> >
> >
> > 'pageTest.CursorType = 0
> > 'pageTest.CursorLocation = 2
> > 'pageTest.LockType = 1
> > 'pageTest.Open()
> >
> > pageTest_numRows = 0
> > %>
> > <%
> > Dim Repeat1__numRows
> > Dim Repeat1__index
> > Repeat1__numRows = 20
> > Repeat1__index = 0
> > pageTest_numRows = pageTest_numRows + Repeat1__numRows
> > %>
> > <%
> > ' *** Recordset Stats, Move To Record, and Go To Record: declare stats
> > variables
> > Dim pageTest_total
> > Dim pageTest_first
> > Dim pageTest_last
> > ' set the record count
> > pageTest_total = pageTest.RecordCount
> > ' set the number of rows displayed on this page
> > If (pageTest_numRows < 0) Then
> > pageTest_numRows = pageTest_total
> > Elseif (pageTest_numRows = 0) Then
> > pageTest_numRows = 1
> > End If
> > ' set the first and last displayed record
> > pageTest_first = 1
> > pageTest_last = pageTest_first + pageTest_numRows - 1
> > ' if we have the correct record count, check the other stats
> > If (pageTest_total <> -1) Then
> > If (pageTest_first > pageTest_total) Then
> > pageTest_first = pageTest_total
> > End If
> > If (pageTest_last > pageTest_total) Then
> > pageTest_last = pageTest_total
> > End If
> > If (pageTest_numRows > pageTest_total) Then
> > pageTest_numRows = pageTest_total
> > End If
> > End If
> > %>
> > <%
> > Dim MM_paramName
> > %>
> > <%
> > ' *** Move To Record and Go To Record: declare variables
> > Dim MM_rs
> > Dim MM_rsCount
> > Dim MM_size
> > Dim MM_uniqueCol
> > Dim MM_offset
> > Dim MM_atTotal
> > Dim MM_paramIsDefined
> > Dim MM_param
> > Dim MM_index
> > Set MM_rs = pageTest
> > MM_rsCount = pageTest_total
> > MM_size = pageTest_numRows
> > MM_uniqueCol = ""
> > MM_paramName = ""
> > MM_offset = 0
> > MM_atTotal = false
> > MM_paramIsDefined = false
> >
> > If (MM_paramName <> "") Then
> > MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
> > End If
> > %>
> > <%
> > ' *** Move To Record: handle 'index' or 'offset' parameter
> > if (Not MM_paramIsDefined And MM_rsCount <> 0) then
> > ' use index parameter if defined, otherwise use offset parameter
> > MM_param = Request.QueryString("index")
> > If (MM_param = "") Then
> > MM_param = Request.QueryString("offset")
> > End If
> > If (MM_param <> "") Then
> > MM_offset = Int(MM_param)
> > End If
> > ' if we have a record count, check if we are past the end of the
> > recordset
> > If (MM_rsCount <> -1) Then
> > If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or
> > move last
> > If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a
> > full repeat region
> > MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
> > Else
> > MM_offset = MM_rsCount - MM_size
> > End If
> > End If
> > End If
> > ' move the cursor to the selected record
> > MM_index = 0
> > While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1))
> > MM_rs.MoveNext
> > MM_index = MM_index + 1
> > Wend
> > If (MM_rs.EOF) Then
> > MM_offset = MM_index ' set MM_offset to the last possible record
> > End If
> > End If
> > %>
> > <%
> > ' *** Move To Record: if we dont know the record count, check the
> display
> > range
> > If (MM_rsCount = -1) Then
> > ' walk to the end of the display range for this page
> > MM_index = MM_offset
> > While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset +
> > MM_size))
> > MM_rs.MoveNext
> > MM_index = MM_index + 1
> > Wend
> > ' if we walked off the end of the recordset, set MM_rsCount and
> > MM_size
> > If (MM_rs.EOF) Then
> > MM_rsCount = MM_index
> > If (MM_size < 0 Or MM_size > MM_rsCount) Then
> > MM_size = MM_rsCount
> > End If
> > End If
> > ' if we walked off the end, set the offset based on page size
> > If (MM_rs.EOF And Not MM_paramIsDefined) Then
> > If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
> > If ((MM_rsCount Mod MM_size) > 0) Then
> > MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
> > Else
> > MM_offset = MM_rsCount - MM_size
> > End If
> > End If
> > End If
> > ' reset the cursor to the beginning
> > If (MM_rs.CursorType > 0) Then
> > MM_rs.MoveFirst
> > Else
> > MM_rs.Requery
> > End If
> > ' move the cursor to the selected record
> > MM_index = 0
> > While (Not MM_rs.EOF And MM_index < MM_offset)
> > MM_rs.MoveNext
> > MM_index = MM_index + 1
> > Wend
> > End If
> > %>
> > <%
> > ' *** Move To Record: update recordset stats
> > ' set the first and last displayed record
> > pageTest_first = MM_offset + 1
> > pageTest_last = MM_offset + MM_size
> > If (MM_rsCount <> -1) Then
> > If (pageTest_first > MM_rsCount) Then
> > pageTest_first = MM_rsCount
> > End If
> > If (pageTest_last > MM_rsCount) Then
> > pageTest_last = MM_rsCount
> > End If
> > End If
> > ' set the boolean used by hide region to check if we are on the last
> > record
> > MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
> > %>
> > <%
> > ' *** Go To Record and Move To Record: create strings for maintaining
> URL
> > and Form parameters
> > Dim MM_keepNone
> > Dim MM_keepURL
> > Dim MM_keepForm
> > Dim MM_keepBoth
> > Dim MM_removeList
> > Dim MM_item
> > Dim MM_nextItem
> > ' create the list of parameters which should not be maintained
> > MM_removeList = "&index="
> > If (MM_paramName <> "") Then
> > MM_removeList = MM_removeList & "&" & MM_paramName & "="
> > End If
> > MM_keepURL=""
> > MM_keepForm=""
> > MM_keepBoth=""
> > MM_keepNone=""
> > ' add the URL parameters to the MM_keepURL string
> > For Each MM_item In Request.QueryString
> > MM_nextItem = "&" & MM_item & "="
> > If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
> > MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(
> > Request.QueryString(MM_item))
> > End If
> > Next
> > ' add the Form variables to the MM_keepForm string
> > For Each MM_item In Request.Form
> > MM_nextItem = "&" & MM_item & "="
> > If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
> > MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(
> > Request.Form(MM_item))
> > End If
> > Next
> > ' create the Form + URL string and remove the intial '&' from each of
> > the strings
> > MM_keepBoth = MM_keepURL & MM_keepForm
> > If (MM_keepBoth <> "") Then
> > MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
> > End If
> > If (MM_keepURL <> "") Then
> > MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
> > End If
> > If (MM_keepForm <> "") Then
> > MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
> > End If
> > ' a utility function used for adding additional parameters to these
> > strings
> > Function MM_joinChar(firstItem)
> > If (firstItem <> "") Then
> > MM_joinChar = "&"
> > Else
> > MM_joinChar = ""
> > End If
> > End Function
> > %>
> > <%
> > ' *** Move To Record: set the strings for the first, last, next, and
> > previous links
> > Dim MM_keepMove
> > Dim MM_moveParam
> > Dim MM_moveFirst
> > Dim MM_moveLast
> > Dim MM_moveNext
> > Dim MM_movePrev
> > Dim MM_urlStr
> > Dim MM_paramList
> > Dim MM_paramIndex
> > Dim MM_nextParam
> > MM_keepMove = MM_keepBoth
> > MM_moveParam = "index"
> > ' if the page has a repeated region, remove 'offset' from the
> maintained
> > parameters
> > If (MM_size > 1) Then
> > MM_moveParam = "offset"
> > If (MM_keepMove <> "") Then
> > MM_paramList = Split(MM_keepMove, "&")
> > MM_keepMove = ""
> > For MM_paramIndex = 0 To UBound(MM_paramList)
> > MM_nextParam = Left(MM_paramList(MM_paramIndex),
> > InStr(MM_paramList(MM_paramIndex),"=") - 1)
> > If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then
> > MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex)
> > End If
> > Next
> > If (MM_keepMove <> "") Then
> > MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
> > End If
> > End If
> > End If
> > ' set the strings for the move to links
> > If (MM_keepMove <> "") Then
> > MM_keepMove = MM_keepMove & "&"
> > End If
> > MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove &
> > MM_moveParam & "="
> > MM_moveFirst = MM_urlStr & "0"
> > MM_moveLast = MM_urlStr & "-1"
> > MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size)
> > If (MM_offset - MM_size < 0) Then
> > MM_movePrev = MM_urlStr & "0"
> > Else
> > MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)
> >
> > End If
> > %>
> > <html>
> > <head>
> > <title>Untitled Document</title>
> > <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
> > </head>
> > <body>
> > <table border='1' cellpadding='1' cellspacing='0'>
> > <%
> > While ((Repeat1__numRows <> 0) AND (NOT pageTest.EOF))
> > %>
> > <tr>
> > <td>Numero<% = (pageTest.Fields.Item("Numero").value)%> </td>
> > <td>Quantidade<% = (pageTest.Fields.Item("QUANTREC").value)%> </td>
> > <td>Total<% = (pageTest.Fields.Item("TOTALREC").value)%> </td>
> > </tr>
> > <%
> > Repeat1__index=Repeat1__index+1
> > Repeat1__numRows=Repeat1__numRows-1
> > pageTest.MoveNext()
> > Wend
> > %>
> > <A HREF="<%=MM_movePrev%>"><<
> > página anterior</A> <A
> > HREF="<%=MM_moveNext%>">próxima
> > página>></A>
> > </table>
> > </body>
> > </html>
> > <%
> > pageTest.Close()
> > Set pageTest = Nothing
> > %>
> >
> >
> >
> >
> > ---------------------------------
> > Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu
> celular.
> > Registre seu aparelho agora!
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
>
> ---------------------------------
> Yahoo! Search
> Música para ver e ouvir: You're Beautiful, do James Blunt
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
---------------------------------
Yahoo! Search
Música para ver e ouvir: You're Beautiful, do James Blunt
[As partes desta mensagem que não continham texto foram removidas]
--------------------------------------------------------------------------------------------------------------------------
Atenção! As mensagens deste grupo são de acesso público e de inteira
responsabilidade de seus remetentes.
Acesse: http://www.mail-archive.com/oracle_br@yahoogrupos.com.br/
--------------------------------------------------------------------------------------------------------------------------__________________________________________________________________
OPORTUNIDADES DE TRABALHO, VAGAS, EMPREGOS PARA PROFISSIONAIS ORACLE VISITE:
http://www.oraclebr.com.br/
__________________________________________________________________
O grupo Oracle_br não aceita anexos. Quando oferecer algum arquivo, tenha o
link do mesmo para evitar trafego(pedidos) desnecessário.
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/oracle_br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
