Here is the code. If I comment out response.redirect, the busy error
message will not appear. IUSR has all the right for the folder now.
<!--#include file=acnOpen.asp-->
<%
Dim acn, ars, acd
set ars = Server.CreateObject("ADODB.Recordset")
set acd = Server.CreateObject("ADODB.Command")
sSql = "Select * From AdminLogIn Where UserName = '" &
Trim(Request.Form("UserName")) & "' And Password = '" &
Trim(Request.Form("Password")) & "'"
set ars = acn.Execute(sSql)
if not ars.EOF and not ars.BOF Then
Session("UserID") = ars.Fields("AdminLogInID")
Session("LogIn") = True
if trim(Request.Form("UserName")) = "ministers" and
trim(Request.Form("Password")) = "fbministers" then
Response.Redirect ("ministries.asp")
else
Response.Redirect ("AdminMain.asp")
end if
else
Response.Redirect ("Admin.asp")
end if
ars.Close
set ars = nothing
set acn = nothing
%>
*** Sent via Developersdex
http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!