<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Trainers__MMColParam Trainers__MMColParam = "yes" If (Request("MM_EmptyValue") <> "") Then Trainers__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Trainers Dim Trainers_cmd Dim Trainers_numRows Set Trainers_cmd = Server.CreateObject ("ADODB.Command") Trainers_cmd.ActiveConnection = MM_TrainerControl_STRING Trainers_cmd.CommandText = "SELECT * FROM Trainers WHERE [2HOTT] LIKE ? ORDER BY [State] ASC" Trainers_cmd.Prepared = true Trainers_cmd.Parameters.Append Trainers_cmd.CreateParameter("param1", 200, 1, 255, "%" + Trainers__MMColParam + "%") ' adVarChar Set Trainers = Trainers_cmd.Execute Trainers_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Trainers_numRows = Trainers_numRows + Repeat1__numRows %> <% While ((Repeat1__numRows <> 0) AND (NOT Trainers.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Trainers.MoveNext() Wend %>

Moose Education & Training
2-HOTT Trainers By State
STATE	First Name	Last Name	City	E-Mail
<%=(Trainers.Fields.Item("State").Value)%>	<%=(Trainers.Fields.Item("FirstName").Value)%>	<%=(Trainers.Fields.Item("LastName").Value)%>	<%=(Trainers.Fields.Item("City").Value)%>	" class="Content12Bold"> <%=(Trainers.Fields.Item("EMail").Value)%>

 

<% Trainers.Close() Set Trainers = Nothing %>