<%
'Define connection object
Set oConnection = Server.CreateObject("ADODB.Connection")
'Membuka connection
oConnection.Execute
"DSN=nama_dsn;DBQ=f:\directory\nama_file.dbf;DriverId=277;FIL=dBase
IV;MaxBufferSize=2048;PageTimeout=5;"
'Define recordset object
Set oRecordset = Server.CreateObject("ADODB.RecordSet")
'Membuka recordset
oRecordset.Execute "SELECT * FROM nama_file_tanpa_extension", oConnection,
1, 3
'Menampilkan isi recordset
Do While Not oRecordset.EOF
Response.Write(oRecordset.Fields("Field_1") & " " &
oRecordset.Fields("Field_2"))
oRecordset.MoveNext
Loop
'Menutup recordset
oRecordset.Close
'Membuang object recordset
Set oRecordset = Nothing
'Menutup recordset
oConnection.Close
'Membuang object connection
Set oConnection = Nothing
%>
>>>>>>> BuBu Web Design Competition http://www.bubuawards.com <<<<<<<
Berhenti langganan kirim email ke [EMAIL PROTECTED]
Arsip di http://www.mail-archive.com/[email protected]/
