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 th