Advanced Search

Return to Snippet

Revision: 17527
at March 9, 2010 08:56 by wizard04
Updated Code 
'****************************************
' 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

Revision: 17526
at September 8, 2009 15:45 by wizard04
Updated Code 
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

Revision: 17525
at September 8, 2009 15:37 by wizard04
Updated Code 
dim strConn, objConn, 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

Revision: 17524
at September 8, 2009 15:35 by wizard04
Initial Code 
dim strConn, objConn, rst

if lcase(Request.ServerVariables("SERVER_NAME")) = "localhost" then
	strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\inetpub\wwwroot\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
Initial URL 









Initial Description














Initial Title





VBScript MS Access Database Connection









Initial Tags





database, ASP









Initial Language





ASP