<% '******************************************************* '* ASP 101 Sample Code - http://www.asp101.com/ * '* * '* This code is made available as a service to our * '* visitors and is provided strictly for the * '* purpose of illustration. * '* * '* http://www.asp101.com/samples/license.asp * '* * '* Please direct all inquiries to webmaster@asp101.com * '******************************************************* %> <% Dim objDC, objRS ' Create and establish data connection Set objDC = Server.CreateObject("ADODB.Connection") objDC.ConnectionTimeout = 15 objDC.CommandTimeout = 30 'Use this line to use Access 'objDC.Open "DBQ=" & Server.MapPath("database.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;", "username", "password" 'Our SQL Server code - use above line to use sample on your server objDC.Open "Provider=SQLOLEDB;Data Source=10.2.2.133;" _ & "Initial Catalog=samples;Connect Timeout=15;" _ & "Network Library=dbmssocn;", "samples", "password" ' Create recordset and retrieve values using the open connection Set objRS = Server.CreateObject("ADODB.Recordset") ' Opening record set with a forward-only cursor (the 0) and in read-only mode (the 1) ' If a request for a specific id comes in, then do it o/w just show pulldown If Len(Request.QueryString("id")) <> 0 Then ' request record for requested id objRS.Open "SELECT * FROM sample WHERE id = " & Replace(Request.QueryString("id"), "'", "''"), objDC, 0, 1 ' Show selected record If Not objRS.EOF Then objRS.MoveFirst %>
ID Number First Name Last Name Month's Sales
<%= objRS.Fields("id") %> <%= objRS.Fields("first_name") %> <%= objRS.Fields("last_name") %> <%= objRS.Fields("sales") %>
<% End If objRS.Close End If objRS.Open "sample", objDC, 0, 1 ' Loop through recordset and display results If Not objRS.EOF Then objRS.MoveFirst ' the form below calls this file only this time with an id in the QueryString %>
<% End If ' Close Data Access Objects and free DB variables objRS.Close Set objRS = Nothing objDC.Close Set objDC = Nothing %>