<%@ LANGUAGE="VBScript" %> <% 'Set the Data Connection Set conntemp = Server.CreateObject("ADODB.Connection") conntemp.open "Provider=SQLNCLI11;Data Source=(local),1433;Initial Catalog=speedway;User Id=sa;Password=DontKnow!" 'conntemp.open "Provider=sqloledb;Data Source=(local),1433;Initial Catalog=speedway;User Id=sa;Password=DontKnow!;" SQLCounter = "SELECT * FROM rImageCounter" rsCounter = conntemp.execute(SQLCounter) imageCounter = rsCounter("rImageCount") imageCounter = imageCounter + 1 if ImageCounter > 30 Then imageCounter = 1 SQLUpdateCounter = "UPDATE rImageCounter set rImageCount = " & imageCounter rsUpdateCounter = conntemp.execute(SQLUpdateCounter) SQLImage = "SELECT * FROM rImage WHERE rImageID = " & imageCounter rsImage = conntemp.execute(SQLImage) rImage = rsImage("rImageName") %> Welcome to Shelby County Speedway!
2015 Purse
  Late Models Modifieds
15 or less
Modifieds
Over 15
Stock Cars Sport Mods Hobby Stocks Sport
Compacts
   Bombers  
1 600 400 500 350 300 250 75 125
2 400 300 400 225 200 150 50 100
3 300 200 300 175 150 125 40 75
4 225 150 250 140 125 100 30 50
5 200 140 200 110 100 80 25 40
6 175 130 160 100 90 70 25 30
7 150 120 120 90 80 60 25 25
8 130 110 110 80 70 50 25 25
9 120 100 100 70 60 50 25 25
10 110 100 100 60 50 50 25 25
11 100 90 100 60 50 50 10 25
12 100 80 100 60 50 50 10 25
13 100 80 100 60 50 50 10 25
14 100 80 100 60 50 50 10 25
15 100 80 100 60 50 50 10 25
16 100 80 100 60 50 50 10 25
17 100 80 100 60 50 50 10 25
18 100 80 100 60 50 50 10 25
19 100 80 100 60 50 50 10 25
20 100 80 100 60 50 50 10 25
21 100 80 100 60 50 50 10 25
22 100 80 100 60 50 50 10 25
23 100 80 100 60 50 50 10 25
24 100 80 100 60 50 50 10 25
Tow 75 50 50 40 30 30 10 25


We reserve the right to make changes to this at any time.

 

<% conntemp.close %>