Divisione per zero.

[[trodat]]

Questo codice restitusce l'errore in oggetto sulla linea indicata, come mai?:

	iDBLoc = CInt(Request("iDBLoc"))
	iTtlNumItems = CInt(Request("iTtlNumItems"))
	
	if (iTtlNumItems = 0) then
		Set rsObj = Server.CreateObject("ADODB.Recordset")
		sSqlTemp = "SELECT COUNT(*) FROM GestioneTbl"
		rsObj.Open sSqlTemp, conn, 3, 3
		If Not(rsObj.EOF) Then
			iTtlNumItems = rsObj(0)
		End If
		rsObj.Close
		Set rsObj = Nothing
	end if

	iTtlTemp = iTtlNumItems / iNumPerPage <----- riga errore-------<	

	iDBLocTemp = iDBLoc / iNumPerPage		
	If (sQuerystring <> "") Then
		sURLBeg = "<a href = """ & sURL & "?" & sQuerystring & "&iTtlNumItems=" & iTtlNumItems & "&iDBLoc="
	Else
		sURLBeg = "<a href = """ & sURL & "?iTtlNumItems=" & iTtlNumItems & "&iDBLoc="
	End If

[Roby_72]

iNumPerPage da dove arriva???

Roby

[[trodat]]

Originariamente inviato da Roby_72
iNumPerPage da dove arriva???

Roby

E' un codice di paginazione che ho scaricato da un sito...

<%

Sub PrintRecordsetNav( iNumPerPage, adodbConnection, adodbCommand, sTable, sURL, sQuerystring )
	
	Dim iTtlNumItems, iDBLoc, sSqlTemp, iTtlTemp
	Dim iDBLocTemp, sURLBeg, iA, iB, x, iTemp, rsObj
	
	iDBLoc = CInt(Request("iDBLoc"))
	iTtlNumItems = CInt(Request("iTtlNumItems"))
	' Get ttl num of items from the database if it's not already in the QueryString
	if (iTtlNumItems = 0) then
		Set rsObj = Server.CreateObject("ADODB.Recordset")
		sSqlTemp = "SELECT COUNT(*) FROM " & sTable
		adodbCommand.CommandText = sSqlTemp
		rsObj.Open adodbCommand
		If Not(rsObj.EOF) Then
			iTtlNumItems = rsObj(0)
		End If
		rsObj.Close
		Set rsObj = Nothing
	end if
	iTtlTemp = iTtlNumItems \ iNumPerPage	' this is the number of numbers overall (use the "\" to return int)
	iDBLocTemp = iDBLoc \ iNumPerPage		' this is which number we are currently on (use the "\" to return int)
	If (sQuerystring <> "") Then
		sURLBeg = "<a href = """ & sURL & "?" & sQuerystring & "&iTtlNumItems=" & iTtlNumItems & "&iDBLoc="
	Else
		sURLBeg = "<a href = """ & sURL & "?iTtlNumItems=" & iTtlNumItems & "&iDBLoc="
	End If
	
	'***** BEGIN DISPLAY *****
	' Print the "Previous"
	if (iDBLoc <> 0) then
		Response.Write sURLBeg & (iDBLoc - iNumPerPage) & """>Previous</a>  "
	end if
	' Print the <<
	if (iDBLocTemp >= iNumPerPage) then
		Response.Write sURLBeg & (( iDBLocTemp \ iNumPerPage ) * iNumPerPage ^ 2) - (iNumPerPage * 9) & """><<</a> "
	end if
	
	' Print the numbers in between. Print them out in sets of 10.
	iA = ( iDBLocTemp \ iNumPerPage ) * iNumPerPage
	iB = ( iDBLocTemp \ iNumPerPage ) * iNumPerPage + iNumPerPage
	for x = iA to iB
		iTemp = (x * iNumPerPage)
		if (iTemp < iTtlNumItems) then	' takes care of extra numbers after the overall final number
			if (iDBLoc = iTemp) then
				Response.Write " [" & x+1 & "]"
			else
				Response.Write " " & sURLBeg & (x * iNumPerPage) & """>" & x+1 & "</a>"
			end if
		else
			exit for
		end if
	next
	
	' Print the >>
	if (iTtlTemp > iDBLocTemp) then
		if ((iDBLocTemp + iNumPerPage) <= iTtlTemp) then
			Response.Write " " & sURLBeg & (( iDBLocTemp \ iNumPerPage ) * iNumPerPage + iNumPerPage ) * iNumPerPage & """>>></a> "
		end if
	end if
	' Print the "Next"
	if ((iDBLoc + iNumPerPage) < iTtlNumItems) then
		Response.Write "  " & sURLBeg & (iDBLoc + iNumPerPage) & """>Next</a>"
	end if
	'***** END DISPLAY *****
	
End Sub

%>

[[trodat]]

In questo modo ho risolto!!! Grazie !!! :

iDBLoc = CInt(Request("iDBLoc"))
	iTtlNumItems = CInt(Request("iTtlNumItems"))

iNumPerPage = 6
	
	if (iTtlNumItems = 0) then
		Set rsObj = Server.CreateObject("ADODB.Recordset")
		sSqlTemp = "SELECT COUNT(*) FROM GestioneTbl"
		rsObj.Open sSqlTemp, conn, 3, 3
		
		If Not(rsObj.EOF) Then
			iTtlNumItems = rsObj(0)
        End If
				
		
		rsObj.Close
		Set rsObj = Nothing
	end if

[[trodat]]

Non vabene...

Il codice infatti non dà errore estrae il numero di records ma non avanza nella paginazione...

<%
	
	iDBLoc = CInt(Request("iDBLoc"))
	iTtlNumItems = CInt(Request("iTtlNumItems"))
	
	iNumPerPage = 3
	
	if (iTtlNumItems = 0) then
		Set rsObj = Server.CreateObject("ADODB.Recordset")
		sSqlTemp = "SELECT COUNT(*) FROM GestioneTbl"
		rsObj.Open sSqlTemp, conn, 3, 3
		
		If Not(rsObj.EOF) Then
			iTtlNumItems = rsObj(0)
        End If
					
		rsObj.Close
		Set rsObj = Nothing
	end if
	
	iTtlTemp = iTtlNumItems \ iNumPerPage	
	iDBLocTemp = iDBLoc \ iNumPerPage		
	
	If (sQuerystring <> "") Then
		sURLBeg = "<a href = """ & sURL & "?" & sQuerystring & "&iTtlNumItems=" & iTtlNumItems & "&iDBLoc="
	Else
		sURLBeg = "<a href = """ & sURL & "?iTtlNumItems=" & iTtlNumItems & "&iDBLoc="
	End If
	


	Set rs = Server.CreateObject("ADODB.Recordset")
	sSql = "SELECT * FROM GestioneTbl"
	rs.Open sSql, conn, 3, 3
	
if not RS.eof then

RecordsXPagina = iNumPerPage
RS.PageSize = RecordsXPagina
RS.AbsolutePage = iNumPerPage
	
'INIZIO INTESTAZIONI TABELLA

 ....

'FINE INTESTAZIONI TABELLA

For i = 1 to RecordsXPagina
if not RS.eof then

'INIZIO VALORI TABELLA

...

'FINE VALORI TABELLA

RS.movenext
end if
next


             
              
	if (iDBLoc <> 0) then
		Response.Write sURLBeg & (iDBLoc - iNumPerPage) & """>Indietro</a>  "
	end if
	if (iDBLocTemp >= iNumPerPage) then
		Response.Write sURLBeg & (( iDBLocTemp \ iNumPerPage ) * iNumPerPage ^ 2) - (iNumPerPage * 9) & """><<</a> "
	end if

	iA = ( iDBLocTemp \ iNumPerPage ) * iNumPerPage
	iB = ( iDBLocTemp \ iNumPerPage ) * iNumPerPage + iNumPerPage
	for x = iA to iB
		iTemp = (x * iNumPerPage)
		if (iTemp < iTtlNumItems) then	' takes care of extra numbers after the overall final number
			if (iDBLoc = iTemp) then
				Response.Write " [" & x+1 & "]"
			else
				Response.Write " " & sURLBeg & (x * iNumPerPage) & """>" & x+1 & "</a>"
			end if
		else
			exit for
		end if
	next
	
	if (iTtlTemp > iDBLocTemp) then
		if ((iDBLocTemp + iNumPerPage) <= iTtlTemp) then
			Response.Write " " & sURLBeg & (( iDBLocTemp \ iNumPerPage ) * iNumPerPage + iNumPerPage ) * iNumPerPage & """>>></a> "
		end if
	end if
	if ((iDBLoc + iNumPerPage) < iTtlNumItems) then
		Response.Write "  " & sURLBeg & (iDBLoc + iNumPerPage) & """>Avanti</a>"
	end if
	

              
end if

rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
	
%>

[DarioN1]

Dubito seriamente che qualcuno abbia voglia di guardare al codice che hai postato

[[trodat]]

Originariamente inviato da DarioN1
Dubito seriamente che qualcuno abbia voglia di guardare al codice che hai postato

quanto sei crudele...

[DarioN1]

No dai , più che crudele realista

[[trodat]]

Originariamente inviato da DarioN1
No dai , più che crudele realista

Eppure ho visto pubblicare codici molto più lunghi e più complessi... non ti va di provarlo?

[[trodat]]

up

http://www34.websamba.com/trodat/test/pagination2.asp