<% Param = Request.QueryString("Param") Data = Request.QueryString("Data") %> <% Session.timeout = 1 If IsObject(Session("Radius_conn")) Then Set conn = Session("Radius_conn") Else Set conn = Server.CreateObject("ADODB.Connection") conn.open "Radius","will","prodidgy" Set Session("Radius_conn") = conn End If %> <% sql = "SELECT RadLogs.LogDate, RadLogs.Username, RadLogMsgs.Description, RadLogs.NASIdentifier, RadLogs.NASPort, RadLogs.CallerID FROM RadLogMsgs INNER JOIN RadLogs ON RadLogMsgs.RadLogMsgID = RadLogs.RadLogMsgID WHERE ((DATEDIFF(day, RadLogs.LogDate, GetDate()) = 0) AND (RadLogMsgs.RadLogMsgID=RadLogs.RadLogMsgID))" If cstr(Param) <> "" And cstr(Data) <> "" Then sql = sql & " And [" & cstr(Param) & "] = " & cstr(Data) End If sql = sql & " ORDER BY RadLogs.LogDate " Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 %> <% On Error Resume Next rs.MoveFirst do while Not rs.eof %> <% rs.MoveNext loop%>

Connecting Errors For Today

Date	UserName	Description of Problem	NASIdentifier	NASPort	CallerID
<%=Server.HTMLEncode(rs.Fields("LogDate").Value)%>	<%=Server.HTMLEncode(rs.Fields("Username").Value)%>	<%=Server.HTMLEncode(rs.Fields("Description").Value)%>	<%=Server.HTMLEncode(rs.Fields("NASIdentifier").Value)%>	<%=Server.HTMLEncode(rs.Fields("NASPort").Value)%>	<%=Server.HTMLEncode(rs.Fields("CallerID").Value)%>

<% Param = Request.QueryString("Param") Data = Request.QueryString("Data") %> <% Session.timeout = 1 If IsObject(Session("Radius_conn")) Then Set conn = Session("Radius_conn") Else Set conn = Server.CreateObject("ADODB.Connection") conn.open "Radius","will","prodidgy" Set Session("Radius_conn") = conn End If %> <% sql = "SELECT RadLogs.LogDate, RadLogs.Username, RadLogMsgs.Description, SubAccounts.Password, RadLogs.Data FROM SubAccounts, RadLogMsgs INNER JOIN RadLogs ON RadLogMsgs.RadLogMsgID = RadLogs.RadLogMsgID WHERE ((DATEDIFF(day, RadLogs.LogDate, GetDate()) = 0) AND ((RadLogMsgs.RadLogMsgID)=RadLogs.RadLogMsgID) AND (RadLogs.RadLogMsgID =11 And RadLogs.Username = SubAccounts.Login))" If cstr(Param) <> "" And cstr(Data) <> "" Then sql = sql & " And [" & cstr(Param) & "] = " & cstr(Data) End If sql = sql & " ORDER BY RadLogs.LogDate " Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 %> <% On Error Resume Next rs.MoveFirst do while Not rs.eof %> <% rs.MoveNext loop%>

Bad Passwords For Today

Date	UserName	Description of Problem	Correct Password	Password Being Entered
<%=Server.HTMLEncode(rs.Fields("LogDate").Value)%>	<%=Server.HTMLEncode(rs.Fields("Username").Value)%>	<%=Server.HTMLEncode(rs.Fields("Description").Value)%>	<%=Server.HTMLEncode(rs.Fields("Password").Value)%>	<%=Server.HTMLEncode(rs.Fields("Data").Value)%>