• Home
 · 
• Active Server Pages
 · 
• DSN-less database connection with simple database example.

DSN-less database connection with simple database example.

DSN-less database connection with simple database example.

Rate DSN-less database connection with simple database example.

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

Generic.DSN
------------------------------------
[ODBC]
DRIVER=Microsoft Access Driver (*.mdb)
UID=admin
UserCommitSync=Yes
Threads=3
SafeTransactions=0
PageTimeout=5
MaxScanRows=8
MaxBufferSize=512
ImplicitCommitSync=Yes
FIL=MS Access
DriverId=25

GenericDSN.asp
------------------------------------
<%
  sDB   = "YourDatabase.mdb" 	' Be sure to substitute your database name here
  sScriptDir = "/virtual/dir/"	' This is the VIRTUAL directory the database is in
  sPath = Server.MapPath(sScriptDir) + "\"
  TheDSN = "filedsn=" & sPath & "Generic.Dsn;DefaultDir=" & sPath & ";DBQ=" & sPath & sDB & ";"
%>

Sample.asp
------------------------------------
<%
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.open AdDSN,"",""
	SQL = "SELECT * FROM Your_Table;"
	Set RS = CreateObject("ADODB.Recordset")
	RS.Open SQL, Conn, 3, 3
%>

Access your database fields here by using:
Fieldname: <% =RS("FieldName") %>

or loop through all records in the recordset.
<%
	If RS.RecordCount > 0 then 
		RS.MoveFirst
		Do While Not RS.eof
			Response.Write "Field Name:" & RS("FieldName") & "<BR>"
			RS.MoveNext
		Loop
	Else
		Response.Write "No Records Found"
	End If
%>

<%
RS.Close
Set RS = nothing
Conn.Close
Set Conn = nothing
%>