This is my code, I simply want to open the table.
<HTML>
<HEAD><TITLE>A Simple First Page</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Option Explicit
Function SQLQuote(var)
If InStr(var, "'" <> 0 Then
var = Replace(var, "'", "''"
End If
SQLQuote = var
End Function
'framework variables...
Dim objDB
Dim objRS
Dim sDBName
Dim sAction
Dim sRowColor
Dim html
Dim sql
Dim sError
sDBName = "driver={Microsoft Access Driver (*.mdb)};dbq=c:\websites\kdc\fpdb\backend.mdb"
Set objDB = Server.CreateObject("ADODB.Connection"
objDB.Open sDBName
-->
</SCRIPT>
</HEAD>
<BODY>
</BODY>
</HTML>
<HTML>
<HEAD><TITLE>A Simple First Page</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Option Explicit
Function SQLQuote(var)
If InStr(var, "'" <> 0 Then
var = Replace(var, "'", "''"
End If
SQLQuote = var
End Function
'framework variables...
Dim objDB
Dim objRS
Dim sDBName
Dim sAction
Dim sRowColor
Dim html
Dim sql
Dim sError
sDBName = "driver={Microsoft Access Driver (*.mdb)};dbq=c:\websites\kdc\fpdb\backend.mdb"
Set objDB = Server.CreateObject("ADODB.Connection"
objDB.Open sDBName
-->
</SCRIPT>
</HEAD>
<BODY>
</BODY>
</HTML>