<html><head><script langauge="vb" runat="server"> Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Dim stringConnectionString As StringDim stringSql As StringDim objConnection As System.Data.OleDb.OleDbConnectionDim objCommand As System.Data.OleDb.OleDbCommandDim objDataReader As System.Data.OleDb.OleDbDataReaderDim i As IntegerDim sTemp As StringDim stringMapPath As StringstringConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="stringMapPath = Server.MapPath("sampledb.mdb")stringConnectionString = stringConnectionString & stringMapPathobjConnection = New System.Data.OleDb.OleDbConnection(stringConnectionString)objConnection.Open()stringSql = "SELECT * FROM tblSample"objCommand = New System.Data.OleDb.OleDbCommand(stringSql, objConnection)objDataReader = objCommand.ExecuteReader()Response.Write("<table border=1 cellpadding=1 cellspacing=1>")Do While objDataReader.ReadResponse.Write("<tr>")Response.Write("<td>" & objDataReader.Item("url") & "</td>")Response.Write("<td>" & objDataReader.Item("desc") & "</td>")LoopResponse.Write("</table><br><br>")objDataReader.Close()objConnection.Close()End Sub</script></head>