<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%on error resume next%>
Legislative Assembly for the ACT - Mr Andrew Barr MLA
<% FUNCTION assemblyprevious()
Dim Conn, db
db = dbpath
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & db
Set rsassemblycurrent = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM tblAssemblyCurrent;"
rsassemblycurrent.Open sql, Conn, 3, 3
If not(rsassemblycurrent.eof) then rsassemblycurrent.movefirst
dim previous
previous = rsassemblycurrent("intAssemblyCurrentNumber") - 1
response.write previous
END FUNCTION
%>
<% FUNCTION assemblycurrentname()
Dim Conn, db
db = dbpath
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & db
Set rsassemblycurrent = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM tblAssemblyCurrent;"
rsassemblycurrent.Open sql, Conn, 3, 3
If not(rsassemblycurrent.eof) then rsassemblycurrent.movefirst
response.write rsassemblycurrent("strAssemblyCurrentName")
END FUNCTION
%>
<% FUNCTION assemblycurrent()
Dim Conn, db
db = dbpath
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & db
Set rsassemblycurrent = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM tblAssemblyCurrent;"
rsassemblycurrent.Open sql, Conn, 3, 3
If not(rsassemblycurrent.eof) then rsassemblycurrent.movefirst
response.write rsassemblycurrent("intAssemblyCurrentNumber")
END FUNCTION
%>
