|
|
|
|
|
| | |
| |
Active Server Pages asp search engine active server page asp application components tutorial CJWSoft ASPProtect ASPBanner ASPClassifieds
(Advanced)
(Components)
(Database)
(General)
(Vbscript)
|
|
|
|
Subject: |
Re: Advanced Password Protection |
|
From: |
Tim |
|
Date: |
9/10/1999 8:18:02 AM |
|
IP: |
207.51.162.13 |
<%
Dim RecObject
DatabasePath = "../your_database.mdb"
DatabaseName = "your_database"
Conn_ConnectionString = "DBQ=" & Server.MapPath(DatabasePath) & ";DefaultDir=" & Server.MapPath(DatabaseName) & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Conn_ConnectionString, "admin", "your_database_password"
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set RecObject = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "SELECT SomeField, FROM SomeTable"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = Conn
RecObject.Open cmdTemp, , 1, 1
%>
|
Previous Message
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
