Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations bkrike on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Error 2147467259 - Not a valid file name

Status
Not open for further replies.

Sontec

IS-IT--Management
May 20, 2002
12
GB
I'm no programmer but I though i'd be able to manage setting up this simple asp client check asp script, but try as i might, I can't get the script to look at the database. I keep getting error 2147467259.

Below is the script that includes the db location (as you can see its aimed at beginners), can anybody tell me whats wrong from this? If you need more, let me know.

Thanks in advance.

<%
'ASP Client Check - Configuration File

Dim strDBConn, intLog, strLogURL, strAdminName, strAdminPass, strCookieExpire

'Database connection. Edit the url of the following line to point to the &quot;clients.mdb&quot; file on
'the server computer, or replace everything between the double quotes with the name of your system DSN.
strDBConn = &quot;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=http:\\
'Set intLog to &quot;1&quot; if you want to keep a log of attempts to enter.
intLog = 0

'Location of log file. For added security, you can make this a location inaccessible via the web.
strLogURL = &quot;d:\
'Administration username and password. Set these variables only if using the admin script.
'Administration script requires cookies to be enabled in browser for session variable.
strAdminName = &quot;admin&quot;
strAdminPass = &quot;admin&quot;

'The date user cookies will expire (for those who opt to save their username/passwords)
strCookieExpire = &quot;January 1, 2005&quot;


'======================================================================================================
'Your custom subroutine
'======================================================================================================
'Please test the script with this default subroutine prior to modifying it.
'The code contained in this subroutine will execute when your clients login successfully.
'Alter only the code within the &quot;Sub&quot; and &quot;End Sub&quot; delimiters.
'See website FAQ on how to secure a redirect page.
Sub subCustomCode

If objRS(&quot;URL&quot;) <> &quot;&quot; Then
Response.Redirect objRS(&quot;URL&quot;)
Session(&quot;sesUsername&quot;) = strUsername
Else
Response.Write objRS(&quot;HTML&quot;)
End If

End Sub
%>
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top