<%
'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%> |
|
|
Top Vmax Link 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%>
<%Response.Write rs.Fields("Submitter")%> |
<%Response.Write rs.Fields("CountOfLink Id")%> |
<%rs.MoveNext%>
<%Loop%>
|
|
|
|
|