<% '---- CursorTypeEnum Values ---- Const adOpenForwardOnly = 0 Const adOpenKeyset = 1 Const adOpenDynamic = 2 Const adOpenStatic = 3 '---- LockTypeEnum Values ---- Const adLockReadOnly = 1 Const adLockPessimistic = 2 Const adLockOptimistic = 3 Const adLockBatchOptimistic = 4 Const rblPageSize = 5 Dim conn Open_Conn(sPath) Set RS = Server.CreateObject("ADODB.RecordSet") If Request("id") = "" Then uId = 1 else uId = Request("id") End If sql = "select A.* from User A Where A.idUser =" & uId RS.Open sql, Conn, adOpenKeyset,adLockReadOnly If RS.EOF Then Response.Redirect("index.html") End If xNom = RS(1) & ", " & RS(2) xSite = RS(4) xURL = RS(5) xMail = RS(6) xComm = RS(7) RS.close sql = "select A.* from Message A Where A.idUser =" & uId sql = sql & " order by a.dtCreat desc" RS.Open sql, Conn, adOpenKeyset,adLockReadOnly RS.PageSize = rblPageSize ' Number of rows per page If Request("Page") > "" Then PageNo = Request("Page") PageNo = PageNo +0 else PageNo = 1 end if RS.AbsolutePage = PageNo %> Liste des Messages
Pagina <%=PageNo%> / <%=RS.PageCount%> <% xP = RS.PageCount if xP > 1 Then Response.write "Page : " If PageNo > 1 Then iP = PageNo - 1 Response.write "Prev., " End If iP = 0 Do While xP > iP iP = iP + 1 If iP = PageNo Then Response.write iP & ", " Else Response.write "" & iP & ", " End If Loop iP = PageNo + 1 If PageNo < xP Then Response.write "Next" End If End If %> Aggiungi messaggio

<% RowCount = rs.PageSize Do While Not RS.EOF and rowcount > 0 %> <% RowCount = RowCount - 1 RS.MoveNext Loop %>
<% If RS(4) > "" Then Response.Write "" & RS(2) & "" Else Response.Write RS(2) End If %> <% =RS(3) %> ,li <% =DateValue(RS(7)) %>
<% =RS(6) %>
URL : <% =RS(5) %>

<% Conn.Close set RS = nothing set Conn = nothing %>


<% Function Open_Conn(sBase) Set conn = Server.CreateObject("ADODB.Connection") conn.open sBase,"","" End Function %>