<% set Conn = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.recordset") connectString = "Provider=SQLOLEDB.1;Password=HIK#1;Persist Security Info=True;User ID=HIK2;Initial Catalog=votr;Data Source=localhost" Conn.Open connectString %>
Home
Tourney Vitals
Registration
Player Pool
Results/Entries
Photo Gallery
Directions
Contact Us
Event Schedule
Lodging
History
Prizes
E-List
Merchandise
Copyright 2008, Volleyball Of The Rockies (VOTR)
VOTR is a Colorado based company offering volleyball leagues, volleyball tournaments and volleyball vacations. Information on related volleyball entities can be found at VOTR.com, IslandVolleyball.com SportsOasisVolleyball.com, ShootersVolleyball.com, SOBVolleyballVacations.com, SteamboatDoubles.com, BreckenridgeDoubles.com, BeachBashDoubles.com.
<% Function getxWords (strInput, wCount) ' response.write (strInput) & "
" Dim strTemp Dim strT if GetWordCount(strInput) < wCount then getxWords = strInput exit function end if ' Deal with tabs and carriage returns ' by replacing them with spaces. strTemp = Replace(strInput, vbTab, " ") strTemp = Replace(strTemp, vbCr, " ") strTemp = Replace(strTemp, vbLf, " ") ' Remove leading and trailing spaces strTemp = Trim(strTemp) ' Combine multiple spaces down to single ones Do While InStr(1, strTemp, " ", 1) <> 0 strTemp = Replace(strTemp, " ", " ") Loop done = 0 while done < wCount strT = strT & left(strTemp, instr(strTemp, " ")) strTemp = right(strTemp, len(strTemp) - instr(strTemp, " ")) ' response.write ">>>> " & strT & " " & strTemp & "
" done = done + 1 wend getxWords = strT end function Function GetWordCount(strInput) Dim strTemp ' Deal with tabs and carriage returns ' by replacing them with spaces. strTemp = Replace(strInput, vbTab, " ") strTemp = Replace(strTemp, vbCr, " ") strTemp = Replace(strTemp, vbLf, " ") ' Remove leading and trailing spaces strTemp = Trim(strTemp) ' Combine multiple spaces down to single ones Do While InStr(1, strTemp, " ", 1) <> 0 strTemp = Replace(strTemp, " ", " ") Loop ' Get a count by splitting the string into an array ' and retreiving the number of elements in it. ' I add one to deal with the 0 lower bound. GetWordCount = UBound(Split(strTemp, " ", -1, 1)) + 1 End Function ' GetWordCount %>