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