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.Bem se
> 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]
--------------------------------------------------------------------------------------------------------------------------
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
