Есть файл CnnInc.asp в котором прописана строка подключения к БД, содержащая определение Provider и Data Source
strADH2KCnn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Ch14\Ch14.MDB;"
а вот файл в котором используется данное подключение
<%@ LANGUAGE="VBScript" %>
<% Option Explicit %>
<HTML>
<HEAD>
<TITLE>CustomerEdit3.asp</TITLE>
</HEAD>
<BODY bgColor=#87ceeb>
<!--#include file="ADO2Inc.asp"-->
<!--#include file="UtilInc.asp"-->
<!--#include file="CnnInc.asp"-->
<H1>Customer Update</H1>
<%
' From Access 2000 Developer's Handbook, Volume II
' by Litwin, Getz, and Gilbert. (Sybex)
' Copyright 1999. All rights reserved.
' This page updates the Customer record
' using one of three Access action queries.
' ------------------------------------------------
' This page won't work with the SQL Server
' version of the database because the
' SQL Server database doesn't contain the queries.
' ------------------------------------------------
Dim cnn
Dim cmd
Dim varRecords
Dim prm
Set cnn = Server.CreateObject("ADODB.Connection")
Set cmd = Server.CreateObject("ADODB.Command")
cnn.Open strADH2KCnn
Set cmd.ActiveConnection = cnn
cmd.CommandType = adCmdStoredProc
Select Case Request.Form("cmdSubmit")
Case "Save Changes"
cmd.CommandText = "qryCustomerUpdate"
Set prm = cmd.CreateParameter("CustomerId", adInteger, _
adParamInput, ,Z2Null(Request.Form("txtCustomerId")))
cmd.Parameters.Append prm
Set prm = cmd.CreateParameter("FirstName", adVarWChar, _
adParamInput, 50, Z2Null(Request.Form("txtFirstName")))
cmd.Parameters.Append prm
Set prm = cmd.CreateParameter("LastName", adVarWChar, _
adParamInput, 50, Z2Null(Request.Form("txtLastName")))
cmd.Parameters.Append prm
Set prm = cmd.CreateParameter("Address", adVarWChar, _
adParamInput, 50, Z2Null(Request.Form("txtAddress")))
cmd.Parameters.Append prm
Set prm = cmd.CreateParameter("City", adVarWChar, _
adParamInput, 50, Z2Null(Request.Form("txtCity")))
cmd.Parameters.Append prm
Set prm = cmd.CreateParameter("State", adVarWChar, _
adParamInput, 2, Z2Null(Request.Form("txtState")))
cmd.Parameters.Append prm
Set prm = cmd.CreateParameter("ZipCode", adVarWChar, _
adParamInput, 10, Z2Null(Request.Form("txtZipCode")))
cmd.Parameters.Append prm
Set prm = cmd.CreateParameter("Phone", adVarWChar, _
adParamInput, 10, Z2Null(Request.Form("txtPhone")))
cmd.Parameters.Append prm
Set prm = cmd.CreateParameter("Extension", adVarWChar, _
adParamInput, 5, Z2Null(Request.Form("txtExtension")))
cmd.Parameters.Append prm
Set prm = cmd.CreateParameter("Notes", adVarWChar, _
adParamInput, 100, Z2Null(Trim(Request.Form("tarNotes"))))
cmd.Parameters.Append prm
cmd.Execute varRecords
If varRecords <> 0 Then
Response.Write "Record updated!"
Else
Response.Write "Unable to update record."
End If
Case "Delete Record"
cmd.CommandText = "qryCustomerDelete"
Set prm = cmd.CreateParameter("CustomerId", adInteger, _
adParamInput, ,Z2Null(Request.Form("txtCustomerId")))
cmd.Parameters.Append prm
cmd.Execute varRecords
If varRecords <> 0 Then
Response.Write "Record deleted!"
Else
Response.Write "Unable to delete record."
End If
End Select
Set prm = Nothing
Set cmd = Nothing
Set cnn = Nothing
%>
<P>
<A HREF="CustomerEdit1.asp">Select Another Customer</A>
<P>
<A HREF="AspMenu.asp">Return to ASP Menu</A>
</BODY>
</HTML>
Прерывание выполняется на строке выделенной красным цветом, с сообщением указанным ранее.
