<% Function WebDate(dRawDate) Dim sMonth, sDay, sYear sMonth = Month(dRawDate) sDay = Day(dRawDate) If Len(sMonth) = 1 Then sMonth = "0" & sMonth If Len(sDay) = 1 Then sDay = "0" & sDay sYear = Year(dRawDate) WebDate = sMonth & "/" & sDay & "/" & sYear End Function IF Len(Session("eventsubscriptions") & "") < 1 THEN Session("eventsubscriptions") = "0" END IF %> Welcome to the Athletic Group
 

TAGcast Videos - Order Form

The following is a list of all video clips available for ordering with the most recent events listed first. Please select the event(s) you would like to order. Once you have made your selection, you may purchase the order via credit card using our secure payment method.


<% IF Request.querystring("msg") = 1 THEN %>

*YOU MUST SELECT AT LEAST ONE VIDEO TO PURCHASE.

<% END IF %>

<% hm = 0 Set rsPhotos = Server.CreateObject("ADODB.Recordset") With rsPhotos .Open "SELECT * FROM TAGCAST_Events WHERE showonsite = 1 AND eventid NOT IN (" & Session("eventsubscriptions") & ") Order By eventdatebegin DESC", objConn, 1, 2 IF NOT .EOF THEN .Movefirst %> <% WHILE NOT .EOF %> <% .MOVENEXT WEND ELSE %> <% END IF .Close End With Set rsPhotos = Nothing %>
Number OrderedEvents Available for Order

<%=FormatCurrency(.fields("eventcost"))%> Total 		<%=UCASE(.fields("EventName"))%> <%=WebDate(.fields("EventDateBegin"))%> - <%=WebDate(.fields("EventDateEnd"))%>
<%=.fields("EventDesc")%> - <%=.fields("videonum")%> Video(s)
* There are currently no TAGCAST videos available for ordering.