<%
Dim strDatabaseType
strDatabaseType = "SQL"
If strDatabaseType = "Access" Then
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" &_
"Data Source=D:\Inetpub\wwwroot\jeff\maps\NPI_PAN.mdb;" &_
"Persist Security Info=False"
' >>> Test/debug only. - [KV] <<<
' Leave here, but comment out/remove when testing complete! - [KV]
'
'Response.Write("Maintenance work in progress. Please disregard message below and try your inquiry later.") & "
"
'Response.Write("Connecting to MS Access") & " "
'
' Stop processing here
'Response.End()
' <<<
Else
' Comment/Uncomment out for appropriate server
' WEBSQLQA/Test
'strConnect = "Provider=SQLOLEDB;" &_
' "User ID=PAN;Password=PAN;Initial Catalog=NPI;" &_
' "Data Source=WEBSQLQA"
' WEBSQL/Prod.
strConnect = "Provider=SQLOLEDB;" &_
"User ID=PAN;Password=PAN;Initial Catalog=NPI;" &_
"Data Source=WEBSQL"
' >>> Test/debug only. - [KV] <<<
' Leave here, but comment out/remove when testing complete! - [KV]
'
'Response.Write("Maintenance work in progress. Please disregard message below and try your inquiry later.") & "
"
'Response.Write("Connecting to MSSQL WEBSQL or WEBSQLQA") & " "
'
' Stop processing here
'Response.End()
' <<<
End If
%>
Department of Neighborhoods | Neighborhood Plan Implementation
