- Home
- Video Highlights
- Recruiting Central
- Coaching Staff
- Strength and Conditioning
- Schedule
- Camps
- Former Lady Eagles
- Blog
- Photos

 



     

 
ATHLETICS TEAMS :: WOMEN'S WRESTLING
 
 
RECENT STORY

10/03/2007 Story Test # 2

LOCK HAVEN, Pa. - Testing Stories

  <% 'Dimension variables Dim adoCon 'Holds the Database Connection Object Dim rsGuestbook 'Holds the recordset for the records in the database Dim strSQL 'Holds the SQL query for the database Dim recordsonpage Dim allrecords Dim selectsport Dim season Dim gender selectsport="Wrestling" season="Winter Sports" gender="Athletics - Men" recordsonpage=1 allrecords=0 'Create an ADO connection odject Set adoCon = Server.CreateObject("ADODB.Connection") 'Set an active connection to the Connection object using a DSN-less connection adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/sports/havensports/dbase/sportsdata.mdb") 'Set an active connection to the Connection object using DSN connection 'adoCon.Open "DSN=guestbook" 'Create an ADO recordset object Set rsGuestbook = Server.CreateObject("ADODB.Recordset") 'Initialise the strSQL variable with an SQL statement to query the database strSQL = "SELECT official.* FROM official WHERE official.sport='" & selectsport & "'" & "ORDER BY releaseyear DESC, releasemonth DESC, releaseday DESC;" 'Open the recordset with the SQL query rsGuestbook.Open strSQL, adoCon 'Loop through the recordset Do Until allrecords=recordsonpage 'Do While not rsGuestbook.EOF allrecords=allrecords+1 %> <% If rsGuestbook("photomatch")>"0" Then %>

">
<% End IF %>

<%= rsGuestbook("releasemonth") & "/" & rsGuestbook("releaseday") & "/" & rsGuestbook("releaseyear")%> <%= rsGuestbook("title")%>

<% Dim vCnt , vDone, vCntr, vPos, vTmp vCnt = 1 vDone = 0 vCntr = 1 vPos = 1 vTmp = "" vTmp = rsGuestbook("body") While vCntr <=1 AND vDone = 0 vPos = Instr(vCnt, vTmp, CHR(13) & CHR(10),1) If vPos > 1 then vCnt = vPos + 2 vCntr = vCntr + 1 Else vDone = 1 End If Wend If vPos <> 0 then vTmp = Left(vTmp, vPos-1) End If response.write vTmp %>

">


<% rsGuestbook.MoveNext Loop 'Reset server objects rsGuestbook.Close Set rsGuestbook = Nothing Set adoCon = Nothing %>

10/03/2007 Women's Website Up and Running

LOCK HAVEN, Pa. - The Lock Haven University Women's Wrestling team has developed a website for your convenience.

 



(C) 2005 Lock Haven University of Pennsylvania | All LHU Sites | LHU Home | LHU Webmaster | Archives