<%
Dim objConn, Query, Aboutpages, Islampages, Speakerpages, Activistpages, Latestnews, Sideevents, num
num = 1
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="PROVIDER=SQLOLEDB;DRIVER={SQL Server};" & _
"SERVER=sql1100.mssqlservers.com;DATABASE=ingorg;" & _
"UID=ingorg;PWD=toipo786;"
objConn.Open
Query = "SELECT * FROM Aboutpages ORDER BY ordnumber"
Set Aboutpages = objConn.Execute(Query)
Query = "SELECT * FROM Islampages ORDER BY ordnumber"
Set Islampages = objConn.Execute(Query)
Query = "SELECT * FROM Speakerpages ORDER BY ordnumber"
Set Speakerpages = objConn.Execute(Query)
Query = "SELECT * FROM Activistpages ORDER BY ordnumber"
Set Activistpages = objConn.Execute(Query)
Query = "SELECT * FROM Latestnews WHERE sidebar = 'True' AND displayfrom <= '" & Date & "' AND displayuntil >= '" & Date & "' ORDER BY displayfrom DESC"
Set Latestnews = objConn.Execute(Query)
Query = "SELECT * FROM Events WHERE sidebar = 'True' AND enddate >= '" & Date & "'"
Set Sideevents = objConn.Execute(Query)
%>
ING Online Administration
<% Response.Cookies("AdminInformation").Expires = Date - 1 %>
Copyright