Benvenuto <%=Session("Cognome") & Space(1) & Session("Nome")%>
USERNAME
PASSWORD
NOME
COGNOME
LIVELLO
E-MAIL
<%
Set objAdoRs = Server.CreateObject("ADODB.Recordset")
With objAdoRs
.ActiveConnection = objAdoConn
.PageSize = 10
.CursorType = 3
.LockType = 3
End With
sqlQuery = "SELECT TB_Utenti.USER_ID, TB_Utenti.USERNAME, TB_Utenti.PASSWORD, TB_Utenti.NOME, TB_Utenti.COGNOME, TB_Utenti.INDIRIZZO, TB_Utenti.NUMERO, TB_Utenti.CITTA, TB_Utenti.CAP, TB_Utenti.PROVINCIA, TB_Utenti.TELEFONO, TB_Utenti.CELLULARE, TB_Utenti.FAX, TB_Utenti.[E-MAIL], TB_Utenti.NOTE, TB_Utenti.USERLEVEL_ID, Tb_USERLEVEL.USERLEVEL_DESCRIZIONE " & _
"FROM Tb_USERLEVEL INNER JOIN TB_Utenti ON Tb_USERLEVEL.USERLEVEL_ID = TB_Utenti.USERLEVEL_ID ORDER BY TB_Utenti.USERLEVEL_ID DESC;"
'Testa la query se scommenti
'response.Write sqlQuery
'response.end
objAdoRs.Open sqlQuery
If (objAdoRs.EOF) AND (objAdoRs.BOF) Then
Response.Write("" & vbcrlf)
Response.Write(" Non ci sono utenti! ")
Response.Write(" " & vbcrlf)
Else
objAdoRs.AbsolutePage = pag
lastPage = objAdoRs.PageCount
Dim alterna
alterna = 0
For i=1 to objAdoRs.PageSize
if objAdoRs.EOF Then exit for
if alterna = 0 Then
Response.Write(" " & vbcrlf)
Response.Write("" & objAdoRs("USERNAME") & " ")
Response.Write("" & objAdoRs("PASSwORD") & " ")
Response.Write("" & objAdoRs("NOME") & " ")
Response.Write("" & objAdoRs("COGNOME") & " ")
Response.Write("" & objAdoRs("USERLEVEL_DESCRIZIONE") & " ")
Response.Write("" & objAdoRs("E-MAIL") & " ")
alterna = 1
else
Response.Write(" " & vbcrlf)
Response.Write("" & objAdoRs("USERNAME") & " ")
Response.Write("" & objAdoRs("PASSwORD") & " ")
Response.Write("" & objAdoRs("NOME") & " ")
Response.Write("" & objAdoRs("COGNOME") & " ")
Response.Write("" & objAdoRs("USERLEVEL_DESCRIZIONE") & " ")
Response.Write("" & objAdoRs("E-MAIL") & " ")
alterna = 0
end if
objAdoRs.MoveNext
Next
End If
If lastPage > 1 Then
'dim parametripagina
'parametripagina = "l_misura=" & l_misura & "&l_Colore=" & l_Colore & "&l_Purezza=" & l_Purezza & "&l_carati=" & l_carati
Response.Write ""
Response.Write ""
Response.Write ""
If ( lastPage > 1) Then
If ( pag > 1 ) Then
'Response.Write "Prima << Prima << Prima << "
End If
End If
For i = 1 To lastPage
If i = pag Then
Response.Write "[" & i & "] "
Else
'Response.Write "" & i & " " & i & " >> Ultima >> Ultima >> "
Response.Write "Ultima
"
Response.Write " "
Response.Write " "
End If
Response.Write ""
Response.Write " "
Response.Write " "
Response.Write " Nuovo Utente
"
Response.Write " "
Response.Write " "
%>