<% dim strDataPath, objConnection strDataPath = SErver.MapPath("data.mdb") set objConnection=Server.CreateObject("ADODB.Connection") strConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;"_ + " Data Source= " & strDataPath & ";"_ + " Mode=Share Deny None;User Id=admin;PASSWORD=;" objConnection.ConnectionTimeout = 15 objConnection.CommandTimeout = 10 objConnection.Mode = 3 'adModeReadWrite if objConnection.state = 0 then objConnection.Open strConnectString end if dim strSQL, objRS strSQL= "SELECT * FROM tblFuel" set objRS=Server.CreateObject("ADODB.RecordSet") objRS.Open strSQL,objConnection,3,3 %>
Liters/100k
Distance
Fuel TypePetrolDiesel


Total Cost
<% objRS.Close set objRS = Nothing objConnection.Close set objConnection = Nothing %>