<%@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
%>
Matt Dahl | DGF Post 397 Baseball
