<%@LANGUAGE="VBSCRIPT"%> <% Dim rsReadingRoom__MMColParam rsReadingRoom__MMColParam = "0" if(Request.QueryString("ID") <> "") then rsReadingRoom__MMColParam = Request.QueryString("ID") %> <% set rsReadingRoom = Server.CreateObject("ADODB.Recordset") rsReadingRoom.ActiveConnection = "dsn=Interventions;uid=wdyuser;pwd=wdy123;" rsReadingRoom.Source = "SELECT ID, title, contents FROM dbo.ReadingRoom WHERE ID = " + Replace(rsReadingRoom__MMColParam, "'", "''") + "" rsReadingRoom.CursorType = 0 rsReadingRoom.CursorLocation = 2 rsReadingRoom.LockType = 3 rsReadingRoom.Open rsReadingRoom_numRows = 0 %> Whatsdrivingyou.org - Welcome
 
Intervention Instruction Inc.
join the party
test yourself
info for parents
expert advice
links
useful articles
laws where you live
graduated licensing
zero tolerance
DUI news
supporters, volunteers
what do you think?

<%=(rsReadingRoom.Fields.Item("title").Value)%>

<%=(rsReadingRoom.Fields.Item("contents").Value)%>

 

  Back To Top