<%
Dim objConn, Query, Aboutpages, Islampages, Speakerpages, Activistpages, 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)
%>
Diversity Seminars
<%
password="speakers"
Validated = "OK"
if Request.Form("password") = Password then
'Set the validation cookie and redirect the user to the original page.
Response.Cookies("ValidUser") = Validated
'Check where the users are coming from within the application.
If (Request.QueryString("from")<>"") then
Response.Redirect Request.QueryString("from")
else
'If the first page that the user accessed is the Logon page,
'direct them to the default page.
Response.Redirect "healthcare_downloads.asp"
End if
End if
%>
Copyright