<%
Validated = "OK"
if Request.Cookies("ValidUser") <> Validated then
'Construct the URL for the current page.
dim s
s = "http://"
s = s & Request.ServerVariables("HTTP_HOST")
s = s & Request.ServerVariables("URL")
if Request.QueryString.Count > 0 THEN
s = s & "?" & Request.QueryString
end if
'Redirect unauthorized users to the logon page.
Response.Redirect "law_seminar.asp?from=" &Server.URLEncode(s)
Response.Cookies("ValidUser").Expires=2
End if
%>
<%
Dim objConn, Query, Aboutpages, Islampages, Speakerpages, Latestnews, Sideevents, num, repeatnum, indexnum
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 Latestnews WHERE sidebar = 'True' AND displayfrom <= '" & Date & "' AND displayuntil >= '" & Date & "' ORDER BY displayfrom DESC"
Set Latestnews = objConn.Execute(Query)
repeatnum = 6
If Latestnews.EOF Then
Set Latestnews = Nothing
Query = "SELECT * FROM Latestnews ORDER BY displayfrom DESC"
Set Latestnews = objConn.Execute(Query)
repeatnum = 2
End If
Query = "SELECT * FROM Events WHERE sidebar = 'True' AND enddate >= '" & Date & "' ORDER BY begdate ASC"
Set Sideevents = objConn.Execute(Query)
objConn.CommandTimeout = 0
%>
Diversity Seminars
Text 
Copyright