<% 'Total Links SQL = "Select * FROM Vlinks" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL, oConn, 3, 3 TotalLinks = rs.RecordCount rs.close SQL = "SELECT VLinks.*, VLinks.Picture FROM VLinks WHERE (((VLinks.Picture)=True));" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL, oConn, 3, 3 PictureLinks = rs.RecordCount rs.close SQL = "SELECT VLinks.*, VLinks.OwnerPage FROM VLinks WHERE (((VLinks.OwnerPage)=True));" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL, oConn, 3, 3 VmaxLinks = rs.RecordCount rs.close SQL = "SELECT VLinks.*, VLinks.Carb FROM VLinks WHERE (((VLinks.Carb)=True));" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL, oConn, 3, 3 CarbLinks = rs.RecordCount rs.close SQL = "SELECT VLinks.*, VLinks.Engine FROM VLinks WHERE (((VLinks.Engine)=True));" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL, oConn, 3, 3 EngineLinks = rs.RecordCount rs.close SQL = "SELECT VLinks.*, VLinks.Electrical FROM VLinks WHERE (((VLinks.Electrical)=True));" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL, oConn, 3, 3 ElectricalLinks = rs.RecordCount rs.close SQL = "SELECT VLinks.*, VLinks.Tires FROM VLinks WHERE (((VLinks.Tires)=True));" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL, oConn, 3, 3 TiresLinks = rs.RecordCount rs.close SQL = "SELECT VLinks.*, VLinks.Exhaust FROM VLinks WHERE (((VLinks.Exhaust)=True));" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL, oConn, 3, 3 ExhaustLinks = rs.RecordCount rs.close SQL = "SELECT VLinks.*, VLinks.Frame FROM VLinks WHERE (((VLinks.Frame)=True));" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL, oConn, 3, 3 FrameLinks = rs.RecordCount rs.close SQL = "SELECT VLinks.*, VLinks.Body FROM VLinks WHERE (((VLinks.Body)=True));" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL, oConn, 3, 3 BodyLinks = rs.RecordCount rs.close SQL = "SELECT VLinks.*, VLinks.Reference FROM VLinks WHERE (((VLinks.Reference)=True));" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL, oConn, 3, 3 ReferenceLinks = rs.RecordCount rs.close SQL = "SELECT VLinks.*, VLinks.Bags FROM VLinks WHERE (((VLinks.Bags)=True));" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL, oConn, 3, 3 BagsLinks = rs.RecordCount rs.close SQL = "SELECT VLinks.*, VLinks.Misc FROM VLinks WHERE (((VLinks.Misc)=True));" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL, oConn, 3, 3 MiscLinks = rs.RecordCount rs.close SQL = "SELECT VLinks.*, VLinks.VmaxSpec FROM VLinks WHERE (((VLinks.VmaxSpec)=True));" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL, oConn, 3, 3 VmaxSpecLinks = rs.RecordCount rs.close SQL = "SELECT DISTINCT VLinks.Submitter FROM VLinks;" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL, oConn, 3, 3 Contributors = rs.RecordCount rs.close SQL = "SELECT VUsers.* FROM VUsers;" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL, oConn, 3, 3 RegUsers = rs.RecordCount rs.close %>

Vmax Link Database Statistics

   
Registered Users

<%Response.Write RegUsers%>

Total Links

<%Response.Write TotalLinks %>

Picture Links <%Response.Write PictureLinks%>
Vmax Owner Pages <%Response.Write VmaxLinks%>
Carb /Air Links <%Response.Write CarbLinks%>
Engine <%Response.Write EngineLinks%>
Electrical <%Response.Write ElectricalLinks%>
Tires <%Response.Write TiresLinks%>
Exhaust <%Response.Write ExhaustLinks%>
Frame <%Response.Write FrameLinks%>
Body <%Response.Write BodyLinks%>
Reference <%Response.Write ReferenceLinks%>
Bags <%Response.Write BagsLinks%>
Miscellaneous <%Response.Write MiscLinks%>
Vmax Specific <%Response.Write VmaxSpecLinks%>
Unique Contributors <%Response.Write Contributors%>

 
<% SQL = "SELECT DISTINCT TOP 10 VLinks.Submitter, Count(VLinks.[Link Id]) AS [CountOfLink Id] FROM VLinks GROUP BY VLinks.Submitter ORDER BY Count(VLinks.[Link Id]) DESC;" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL, oConn, 3, 3 Contributors = rs.RecordCount %> <%Do Until rs.EOF = True%>
<%rs.MoveNext%> <%Loop%>

Top Vmax Link Contributors

 

<%Response.Write rs.Fields("Submitter")%>

<%Response.Write rs.Fields("CountOfLink Id")%>