View User	<%if lvl=2 then%><%end if%>
User Info Publisher ID # <%=publisherid%> Name : <%=name%> E-Mail : <%=email%> User Level : <%=plevel%> Username : <%=username%> Additional Information : <%=additional%>	User Stats Articles Published : Publish : <%=publish%> Pending : <%=pending%> Expired : <%=expired%> <%if appsettings.archiveaccess<>"" then%>Archived :<%=archived%> <%end if%> Total Articles : <%=totalarticles%> Publisher Photo Assigned Zones : <%=zones%> Signature : <%=replace(signature,vbcrlf," ")%> <%if (appsettings.pblaccess<>"" and publisherid-usrid=0) or (appsettings.pblaccess="") or lvl>0 then%> <% dim forusrid as integer=0 if appsettings.edtsearch<>"" and lvl=1 then forusrid=usrid dim conn as New SqlConnection(connectionstr) dim mycommand as New SqlCommand("xlaANMsp_view_publisher_articles",conn) mycommand.Parameters.Add( "@publisherid" , publisherid) mycommand.Parameters.Add( "@archiveaccess", appsettings.archiveaccess) mycommand.Parameters.Add( "@usrid", usrid) mycommand.CommandType = CommandType.StoredProcedure mycommand.connection = conn conn.open() dim dr as SqlDataReader=mycommand.ExecuteReader() do while dr.read() %> <%loop dr.close() conn.close()%> Latest 25 articles Article Source Posted Updated Displayed Status View "><%=dr("headline")%> <%=dr("summary")%> <%=dr("source")%> <%=revertdate(dr("posted"))%> <%=revertdate(dr("lastupdate"))%> <%=revertdate(dr("startdate")) & " " & revertdate(dr("enddate"))%> .gif" alt="<%=whichstatus(dr("status"))%>"> <%=whichstatus(dr("status"))%> "> <%end if%>