Land Line Now on FacebookLand Line Now on TwitterLand Line Now Podcast Episodes
<% 'Declare Variables Const adCmdText = 1 Dim cn, cnString cnString = "driver={SQL Server};server=db006.zabco.net;uid=dba3302;pwd=lxy427;database=db3302" Set cn = Server.CreateObject("ADODB.Connection") Sub OpenDataBase() Set cn = Server.CreateObject("ADODB.Connection") cnString = "driver={SQL Server};server=db006.zabco.net;uid=dba3302;pwd=lxy427;database=db3302" cn.Open cnString End Sub Sub CloseDataBase() cn.close End Sub %> <% Function WriteSpiritSchedule Dim rstSpirit, cmdSpirit, wkDate, strSQLSpirit, strSQLDetail, rstDetail, wkDesc Set rstSpirit = Server.CreateObject("ADODB.Recordset") Set cmdSpirit = Server.CreateObject("ADODB.Command") strSQLSpirit = "SELECT Top(1) Spirit FROM LandLineNowSpirit WHERE (StartDate <= GETDATE()) AND (EndDate >= GETDATE())" cmdSpirit.ActiveConnection = cnString cmdSpirit.CommandText = strSQLSpirit cmdSpirit.CommandType = adCmdText OpenDataBase() Set rstSpirit = cn.Execute(strSQLSpirit) If Not rstSpirit.Eof Then response.write(rstSpirit.Fields("Spirit")) End If rstSpirit.Close Set rstSpirit = Nothing CloseDataBase() End Function %>

OOIDA on the Road

Where you can find us

<% WriteSpiritSchedule %>

This week's poll:

 

 

SAFE DRIVER AWARDS 2008


 

 

December

 

 

November

 

October

 

September

 

August

 

July