Posted By

wizard04 on 09/08/09

Tagged

database
ASP

Versions (?)

Last Edited at 09/08/09 03:35pm

Statistics

Viewed 919 times

Favorited by 1 user(s)

Related snippets

VBScript MS Access Database Connection

/ Published in: ASP

Expand | Embed | Plain Text

Copy this code and paste it in your HTML

'****************************************
' VBScript MS Access database connection
'****************************************
 
dim strConn, objConn, sql, rst
 
if lcase(Request.ServerVariables("SERVER_NAME")) = "localhost" then
	strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\inetpub\wwwroot\mysite\db.mdb;"
else
	strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/") & "\db.mdb;"
end if
 
set objConn = server.createobject("adodb.connection")
objConn.open strConn