<%@LANGUAGE="VBSCRIPT"%> <% Dim Player__MMColParam Player__MMColParam = "1" If (Request.QueryString("ID") <> "") Then Player__MMColParam = Request.QueryString("ID") End If %> <% Dim Player Dim Player_cmd Dim Player_numRows Set Player_cmd = Server.CreateObject ("ADODB.Command") Player_cmd.ActiveConnection = MM_mssql_STRING Player_cmd.CommandText = "SELECT * FROM dbo.Players WHERE ID = ?" Player_cmd.Prepared = true Player_cmd.Parameters.Append Player_cmd.CreateParameter("param1", 5, 1, -1, Player__MMColParam) ' adDouble Set Player = Player_cmd.Execute Player_numRows = 0 %> <% Dim Players Dim Players_cmd Dim Players_numRows Set Players_cmd = Server.CreateObject ("ADODB.Command") Players_cmd.ActiveConnection = MM_mssql_STRING Players_cmd.CommandText = "SELECT ID, name, jersey FROM dbo.Players ORDER BY jersey ASC" Players_cmd.Prepared = true Set Players = Players_cmd.Execute Players_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Players_numRows = Players_numRows + Repeat1__numRows %> Bennett Uhler | DGF Post 397 Baseball

 
The Players
 

Bennett Uhler

 

 
Name:
Bennett Uhler
Jersey No:
21
Position:
SS
Height:
6'0
Weight:
165
Bats:
Right
Throws:
Right
Birthdate:
12/05/91
Graduation: 2010
Parents:
Mark & Sarah Uhler
 
Copyright 2010-11, DGF Post 397 American Legion Baseball Club. All Rights Reserved. | DGFbaseball.com is sponsored by the DGF Baseball Club.
<% Player.Close() Set Player = Nothing %> <% Players.Close() Set Players = Nothing %>