%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim landressearch
Dim landressearch_numRows
Set landressearch = Server.CreateObject("ADODB.Recordset")
landressearch.ActiveConnection = MM_landres_STRING
landressearch.Source = "SELECT KeyID, State, Issue, Datatype, Description FROM dbo.LandResource"
landressearch.CursorType = 0
landressearch.CursorLocation = 2
landressearch.LockType = 1
landressearch.Open()
landressearch_numRows = 0
%>
<%
Dim landressearch_head
Dim landressearch_head_numRows
Set landressearch_head = Server.CreateObject("ADODB.Recordset")
landressearch_head.ActiveConnection = MM_landres_STRING
landressearch_head.Source = "SELECT headline1, headline1url, headline2, headline2url, headline3, headline3url, headline4, headline4url, headline5, headline5url, headline5, headline5url, hottopic1, hottopic1url, hottopic2, hottopic2url, hottopic3, hottopic3url, hottopic4, hottopic4url, hottopic5, hottopic5url, hottopic5, hottopic5url, headline1text, headline2text, headline3text, headline4text, headline5text, hot1text, hot2text, hot3text, hot4text, hot5text FROM dbo.headlines"
landressearch_head.CursorType = 0
landressearch_head.CursorLocation = 2
landressearch_head.LockType = 1
landressearch_head.Open()
landressearch_head_numRows = 0
%>
Propertyrights.org